Лидеры по количеству баллов:

Если Вы хотите, чтобы Вашего имени (ника) не было в данной таблице, отправьте письмо по этой ссылке с зарегистрированного у нас адреса. В теле письма, пожалуйста, укажите причину удаления имени из таблицы. Нам важно ваше мнение.

Основные правила нашей рассылки:
1. Не присылайте ответов на вопросы вроде "да я не знаю" или "да/нет". Такие ответы не публикуются.
2. Вопросы, не касающиеся Delphi, не принимаются (для этого существуют другие рассылки).
3. Запрещено присылать вложенные файлы, объёмом выше установленного ограничения (ограничения указаны в правилах).
4. Не изменяйте тем присылаемых писем. Письма с "неправильными" темами не обрабатываются! Используйте текстовый (не HTML) формат писем. HTML-теги применяйте только в том случае, если Вы уже достигли статуса, где это разрешено (см. правила).

Новые вопросы.

Вопрос #145 (автор вопроса: TR; вопрос отправлен: 31.08.2005 15:24):

Здравстуйте, помогите, пожалуйста, с решением такого вопроса: Как мне сделать, чтобы при раскрытии одного из подпунктов моего попап-меню отображалость контекстное меню Проводника (например, как при щелчке правой кнопкой на файле)? И еще: Как сделать самому команды аналогичные Копировать, Вырезать, Отправить...? Заранее благодарю! [Ответить на вопрос]

Вопрос #146 (автор вопроса: mvp; вопрос отправлен: 31.08.2005 21:38):

Есть программа, есть dll. Каким образом можно передать объект (класс) исходной программе dll, чтобы dll могла вызывать корректно его методы? Использование процедур и функций (не методов класса) не предлагать. Дело в том, что в программе создаётся только один экземпляр класса, который должен использоваться сообща dll и программой. Что-то у меня не сильно получается. Если можно, небольшой исходничек. Спасибо. [Ответить на вопрос]

Вопрос #147 (автор вопроса: David; вопрос отправлен: 01.09.2005 20:46):

Подскажите, пожалуйста, как обработать комбинацию клавиш, например (Ctrl+Enter) через OnKeyDown? У меня получается обработать только Ctrl, либо только Enter. [Ответить на вопрос]

Вопрос #148 (автор вопроса: Vasiliy; вопрос отправлен: 02.09.2005 20:03):

Здравствуйте! После установки Delphi 2005 Офис 2003 начинает некоректно работать. А именно Excel - после работы в нём, когда закрываешь, постоянно выскакивает окно, что произошла ошибка. Подскажите пожалуйста, можно ли это исправить? [Ответить на вопрос]

Вопрос #149 (автор вопроса: Alexandr Prokhoda; вопрос отправлен: 04.09.2005 11:18):

Добрый день. Подскажите пожалуйста, каким образом программа (пишу в Delphi 5) может изменить параметры электропитания WindowsXP (или хоть какой-то)? Конкретно – время выключения монитора. Заранее благодарю, Александр Прохода. [Ответить на вопрос]

Вопрос #78 (автор вопроса: Hires; вопрос отправлен: 20.02.2005 16:33):

Как получить скорость работы GPU и памяти видео карты? [Ответить на вопрос]

Вопрос #88 (автор вопроса: Sergey; вопрос отправлен: 15.03.2005 19:57):

Вопрос по TChart. Как осуществить привязку указателя мыши к линии LineSeries? И еще. По оси X - время (DateTime). Как "вытащить" значение Y в любой точке LineSeries? [Ответить на вопрос]

Вопрос #90 (автор вопроса: Nanny_Jagg; вопрос отправлен: 17.03.2005 07:56):

Как в DBGrid из библиотеки Ehlib 3.6 добавить Lookup-поле, чтобы оно действительно работало? Поле вроде сделано, но ключевое поле, оставленное рядом для контрола не меняется, по какому событию обработчик писать? [Ответить на вопрос]

Вопрос #105 (автор вопроса: Crazy_Jack; вопрос отправлен: 03.04.2005 14:44):

Как прочитать под WinXP MBR? [Ответить на вопрос]

Вопрос #131 (автор вопроса: YaricZ; вопрос отправлен: 21.05.2005 15:01):

У меня такой вопрос: я использую библиотеку KOL и MCK, но компонентов в этих библиотеках немного - только стандартные. Внимание - вопрос знатокам: возможно ли использование компонентов Delphi совместно с KOL? Если добавить обычный компонент из вкладки, к примеру, "стандартные" - программа не компилируется. И второй вопрос: если совместное использование KOL со стандартными компонентами Delphi невозможно, то где можно скачать аналог компонентов DataSource, ClientDataSet, DBGrid. DBEdit, DBMemo? На официальном сайте ничего нет. Заранее выражаю благодарность всем, кто сможет мне помочь. [Ответить на вопрос]

Вопрос #138 (автор вопроса: YaricZ; вопрос отправлен: 04.06.2005 21:47):

Как сделать анализатор звука (спадающие пики как в Winamp) ? [Ответить на вопрос]

Вопрос #144 (автор вопроса: Angen; вопрос отправлен: 03.07.2005 22:41):

Пишу программу "Редактор настроек Windows" наподобие "WinSEr". Подскажите, пожалуйста, как в свойствах "Пароли" под Win98 в закладке "Удаленное управление" программно добавить определенного пользователя или удалить его? [Ответить на вопрос]

Вопрос #142:
При подключении к базам Access через ADO все работает нормально, если не используется пароль БД. При использовании пароля Delphi сообщает об ошибке в строке подключения. Как решить эту проблему?

1. [Отвечает: Ermakova Dasha, 31.08.2005 14:44]: В компоненте ADOConnection1 поставь KeepConnection = true. Мне помогло.

2. [Отвечает: Ares, 31.08.2005 16:58]: Решается проблема следующим образом:
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0' +
';Data Source=C:\Test.mdb' +
';Mode=ReadWrite' +
';Persist Security Info=False' +
';Jet OLEDB:System database=System.mdw' +
';Jet OLEDB:Database Password=testpwd' +
';Jet OLEDB:Engine Type=5';
Здесь упоминается System.mdw и засада именно в этом, если на компе не установлен Access, то придётся эту базу таскать вместе с приложением (около ста кил). А взять её можно тут:
C:\Documents and Settings\User\Application Data\Microsoft\Access\System.mdw.

Вопрос #143:
Здравствуйте! Как из одной ТБД в ComboBox высветить 2 поля и как их по выбору перенести в DBGrid (т.е. делаем выборку из справочника, высветив 2 его поля (наименование, цена) и заносим выбранные данные в формируемую БД)?

1. [Отвечает: Ermakova Dasha, 31.08.2005 15:01]:
procedure TForm1.Button1Click(Sender: TObject); //сохраняем значения нужных полей
begin //в ComboBox
ComboBox1.Clear;
with Table1 do
begin
DisableControls;
First;
while not Eof do
begin
ComboBox1.Items.Add(Fields[0].AsString+' '+Fields[1].AsString);
Next;
end;
EnableControls;
end;
end;

procedure TForm1.ComboBox1Select(Sender: TObject); //добавляем новую запись из выбранных
var //значений
num: integer;
s: string;
begin
num:=Pos(' ',ComboBox1.Text);
s:=ComboBox1.Text;
with Table1 do
begin
Append;
Fields[0].AsString:=Copy(s,1,num-1);
Fields[1].AsString:=Copy(s,num+1,Length(s)-num);
end;
end;

2. [Отвечает: Вадим Фурив, 31.08.2005 15:12]: Алгоритм следующий: в поле SQL объекта ADOQuery или аналогичного ему объекта из BDE вводится SQL запрос:

SELECT [поле_наименования]+' '+Str([поле_цены])+' р.', [поле_наименования], [поле_цены] FROM [ваша_база]

Таким образом вы получаете в DataSet данные из трех полей объединенное поле, наименование, цена. Далее в цикле вносим все полученые при запуске строки из первого поля в компонент ComboBox. У меня на SQLServer вставились кучи пробелов, так что их лучше убирать перед занесением. При выборе нужной Вам строки в ComboBox свойство ItemIndex покажет, какая по счету строка выбрана. Затем находим в цикле перебором эту же строку в нашем DataSet. Внимание: строки в ItemIndex нумеруются с 0. Найдя эту же строку по счету мы получим отдельно и наименование и цену (если вносить их куда-то нужно отдельно). А вообще для данной цели рекомендую использовать стандартный компонент DBLookupComboBox. Его можно напрямую связать с DataSet и без всяких переборов выбирать нужную строку. При этом вы застрахуете себя от выбора пользователем несуществующей записи, что в ComboBox проблематично. При этом с тем же DataSourse можно связать и DBGrid, и тогда информация в нем будет меняться вместе с DBLookupComboBox. Ну надеюсь как вносить данные в формируемую базу данных объяснять не надо? INSERT... и дальше по тексту. Вроде все.

Вопрос #141:
В главной директории некоторого сайта, например www.name.ru, расположен текстовый документ, например 1.txt (т.е. путь к нему http://www.name.ru/1.txt). Как сделать, чтобы данный файл скачивался в папку с программой. Мне это нужно для следующей цели: есть программаа с базой данных (*.txt). Я хочу обновлять эту базу через интернет, т.е. при нажатии кнопки "ОБНОВИТЬ" будет скачиваться файл по указанному мной (программистом) адресу. Спасибо.

1. [Отвечает: Ares, 31.08.2005 15:20]: Можно воспользоваться такой ф-цией:

function TForm1.DownloadFile(const FileURL, FileName: String): Cardinal;
var
hSession, hFile: HInternet;
Buffer: array[1..1024] of Byte;
BufferLen, fSize: LongWord;
f: File;
begin
Result := 0;
hSession := InternetOpen('Test', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(hSession) then
begin
hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(hFile) then
begin
AssignFile(f, FileName);
Rewrite(f, 1);
fSize := 0;
repeat
InternetReadFile(hFile, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
fSize := fSize + BufferLen;
until (BufferLen = 0);
CloseFile(f);
Result := fSize;
InternetCloseHandle(hFile);
end;
InternetCloseHandle(hSession);
end;
end;

где FileURL - прямая ссылка на файл, а FileName - это имя под которым файл будет сохранён на диске (если путь к файлу не указывать, то сохраниться он в папке с прогой).

P.S. в USES нужно добавить WinInet.

2. [Отвечает: mvp, 31.08.2005 20:21]:
uses NMHttp
class TForm1 = class(TForm)
//---

sc : TNMHttp;
procedure Ura(Cmd : CmdType);
procedure Neud(Cmd : CmdType);

//---
procedure Tform1.Button1Click;
begin
sc := TNMHttp.Create(nil);
sc.OnSuccess := Ura;
sc.OnFailure := Neud;
sc.InputFileMode := true;
sc.Body := ExtractFileDir(Application.ExeName) + '\1.txt';{ (куда и под
каким именем сохранять)}
sc.Get('http://name.ru/1.txt'); {что скачать}
sc.Disconnect;
sc.Free
end;
//---
procedure TForm1.Ura;
begin
if cmdType = cmdGet then
begin
//закачан
end;
end;
//---
procedure TForm1.Neud;
begin
if cmdType = cmdGet then
begin
//неудача
end;
end;
//---

Подробнее по-русски о компоненте TNMHttp см. http://mylib.kiev.ua/view.php?id=273

3. [Отвечает: Screw aka Viktor, 01.09.2005 00:29]:
function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var FileOnNet, LocalFileName: string;
begin
FileOnNet:='http://www.name.ru/1.txt';
LocalFileName:='1.txt';
if GetInetFile(FileOnNet,LocalFileName)=True then
ShowMessage('Закачал')
else
ShowMessage('Не закачал...')
end;

4. [Отвечает: Dron, 03.09.2005 15:45]: Посмотрите вопрос №19 данной рассылки. Там есть исходник небольшой программы, которая скачивает файлы с сайтов: http://www.delphi.int.ru/download.php?id=40.

Вопрос #63:
День добрый ! Прошу помощи, кто знает как к Делфе (7) пристроить самописный плагин, или кто знает где взять плагин к D-7, чтоб как в D-8 в редакторе кода можно было сворачивать текст процедур и отдельных блоков кода?. Первый вариант желательнее...

1. [Отвечает: Yurchik, 03.09.2005 00:33]: Я не уверен, что это то, что надо, но, возможно, эта статья поможет разобраться, с какой стороны подойти к рассмотрению вопроса... http://www.codenet.ru/progr/delphi/stat/inter.php

Вопрос #82:
Подскажите, как получить оцифровку сигнала с линейного входа звуковой карты в реальном времени (без записи в файл WAV и последующего его декодирования)? Спасибо.

1. [Отвечает: Ermakova Dasha, 31.08.2005 15:06]: Может подойдет. По этой ссылке лежит компонент, который занимается кодированием звуковых данных: http://www.noil.pri.ee/?mod=down/down_one&id=99.

Все вопросы и ответы на них Вы можете найти на нашем сайте в разделе "Эксперт": http://www.delphi.int.ru/modules/expert/.

Присылайте свои статьи по адресу info@delphi.int.ru с темой 'Articles' (без кавычек), и они будут опубликованы в ближайших выпусках рассылки и на сайте. Также вы можете заполнить вот эту форму. Большая просьба: статью оформляйте в -txt или -doc формате и используйте -zip или -rar сжатие (без самораспаковки). Если статья находится в формате HTML, пожалуйста, не используйте формат текста Performatted.

Из данного раздела Вы можете скачать различные файлы: компоненты, plug-in'ы для Delphi, документацию по программированию, программы, игры, написанные на Delphi и всё остальное... Вы можете добавить свои файлы в данный раздел, будем очень признательны! Чтобы сделать это, пожалуйста, заполните форму на сайте. Новые файлы на сайте:

Чтобы перейти к разделу "Файловый архив" на сайте, нажмите на эту ссылку.

Юмор.

Высшая степень опьянения: не смог попасть в экран курсором мышки.

:))

Слышь... это... www.zarplaty.net?
- www.kak.vsegda.net!
- www.kak.zhe.ya.domoy.po.edu?
- www.pesh.com!

:))

Обнаружен драйвер. Вставьте устройство.

:))

Решил хакер блины испечь. Первый блин у него вышел, как водится, комом. А вот второй - екзешником.

Пожалуйста, присылайте свои анекдоты по этой ссылке: info@delphi.int.ru и они обязательно будут опубликованы! Желательно на компьютерную тему.

Вы можете оказать помощь нашему проекту через систему WebMoney:
R760630419845
Z947123691104
Будем очень благодарны!