Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Явная загрузка dll 


GrishaK   (2001-12-26 12:58) [0]

Имеется следующая процедура.

procedure TMForm.NormsExecute(Sender: TObject);
var LibHandle:Thandle;
ShowListAnaliz:TShowListOfOutPut;
begin
LibHandle:=LoadLibrary("sicef.dll");
try
if LibHandle=0 then
raise EDllLoadErr.Create("Ошибка при загрузке sicef.dll");
@ShowListAnaliz:=GetProcAddress(LibHandle,"ShowListOfOutPut");
if not (@ShowListAnaliz = nil) then
ShowListAnaliz(Application.Handle)
else RaiseLastWin32Error;
finally
FreeLibrary(LibHandle);
end;
end;

Вопрос. Почему после выгрузки dll становится невидимым вызывающее приложение?



gek   (2001-12-26 13:06) [1]

Сделай так
if Assigned(ShowListAnaliz) then
ShowListAnaliz(nil)

и зачем передавать Application.Handle



GrishaK   (2001-12-26 13:19) [2]

Я не упомянул, что dll содержит модальную форму. Для того чтобы избежать появления самостоятельного объекта модальной формы я и использую Application.Handle. Кстати, при неявной загрузке все работает.



gek   (2001-12-26 13:23) [3]

Ну содержит, ну и что, зачем handle передавать.
Сделай проще ShowListAnaliz;
Ничего страшного не будет, вот увидишь.



GrishaK   (2001-12-26 13:29) [4]

Спасибо за помощь, поробую восполбзоваться твоим советом.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
4-42632           AlexKniga             2001-11-15 13:42  2002.01.14  
Тип PChar и пустая строка


1-42459           Dim                   2001-12-24 14:23  2002.01.14  
Контроль за перемещениями мышки.


14-42547          vasco                 2001-11-19 02:39  2002.01.14  
Выравнивание по ширине в hlp-файле...


1-42477           Анатолий              2001-12-24 05:41  2002.01.14  
Кнопка


14-42552          Феликс                2001-11-05 19:48  2002.01.14  
Возможно ли создать искуственный интеллект?