| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Зависает программа при выгрузке DLL [D7]

depo72 ©   (2006-03-14 23:00:00) 

Доброго времени суток!
Есть проект, из которого я хочу вызвать функцию из DLL. Динамически загружаю библиотеку по нажатию кнопки на форме, вызываю функцию. Все выполняется, но потом, при вызове FreeLibrary программа зависает. Для теста я создал простой проект с одной кнопкой - все работает. Подскажите, пожалуйста, где можно поискать проблему. Никаких ошибок не выдается.

---

API   (2006-03-15 19:40:00) [1]


  <...>
 finally
   frmUtils.Release; // frmUtils.Free;
   // + желательно восстановить DLL Application.Handle, как в [9]
 end;


И


<...>
 finally
   Application.ProcessMessages;
   FreeLibrary(DLLHandle);
 end;


---

depo72   (2006-03-15 18:38:00) [2]

Application.ProgressMessage перед FreeLibrary не помогло. Хендл тоже вернул - лучше не стало.


> Лучше передавать указатель.


Это как? var Database:TIBDatabase? Или имеется ввиду что-то другое?

---

chelovek   (2006-03-15 14:22:00) [3]

depo72 ©   (15.03.06 10:40) [2]
procedure MyProc(AHandle:THandle; DataBase:TIBDataBase);

Лучше передавать указатель.

Раз вы выполняете Application.Handle:=AHandle;в библиотеке, то за вами остается и возврат DD(ский) хендл.
var
 DLLHandle: cardinal;
 ....
begin
DLLHandle := Application.Handle;
Application.Handle:=AHandle;
.....
Application.Handle := DLLHandle;
end;

Ну и напоследок, если не стоит цель создать универсальную DLL (если эти библиотеки только для вашего приложения), то вернее использовать bpl.
IMHO

---

EvS   (2006-03-15 13:03:00) [4]

У тебя сразу после уничтожения формы идет выгрузка библиотеки. Может не все сообщения успевают обработаться. Попробуй перед FreeLibrary(DLLHandle) вставить
Application.ProcessMessage.

---

clickmaker   (2006-03-15 11:54:00) [5]

> Application.Handle:=AHandle

кстати, рекомендую возвращать DLL ее хэндл в момент выгрузки

---

depo72   (2006-03-15 11:48:00) [6]

> т.е. в момент вызова freelibrary форма может быть на экране?

Нет, не может. Форма модальная. Я ее должен закрыть, после чего она (форма) уничтожается, а уж потом вызывается freelibrary.

---

clickmaker   (2006-03-15 11:34:00) [7]

> depo72 ©   (15.03.06 11:17) [4]

т.е. в момент вызова freelibrary форма может быть на экране?

---

depo72   (2006-03-15 11:17:00) [8]

> при нажатии кнопки Выполнить форма закрывается?


Нет. Закрывается при нажатии кнопки "Отмена" или на крестик.

---

clickmaker   (2006-03-15 10:58:00) [9]

при нажатии кнопки Выполнить форма закрывается?

---

depo72   (2006-03-15 10:40:00) [10]

> Код бы привел


В DLL имеется следующая процедура:


procedure MyProc(AHandle:THandle;DataBase:TIBDataBase);
var
 frmUtils: TfrmUtils;
begin
 try
   Application.Handle:=AHandle;
   frmUtils:= TfrmUtils.Create(Application);
   try
     frmUtils.DataBase:=DataBase;
     frmUtils.ShowModal;
     frmUtils.DataBase:=Nil;
   finally
     frmUtils.Free;
   end;
 except
   on E:Exception do
     ShowMessage(E.Message);
 end;
end;


TfrmUtils - это форма, на которой расположены TIBTransaction, несколько TIBQuery, кнопки, чекбоксы и т.п. При нажатии кнопки "Выполнить" формируются определенные данные.

Функция вызывается следующим образом:

procedure TfrmTestPriUtils.Button1Click(Sender: TObject);
var
 DLLHandle:THandle;
 ExternalProc:procedure (AHandle:THandle;Database:TIBDatabase);
begin
 DLLHandle:=LoadLibrary('priutils.dll');
 if DLLHandle = 0 then
   raise Exception.Create('Невозможно загрузить библиотеку priutils.dll');
 try
   @ExternalProc:=GetProcAddress(DLLHandle,PChar('MyProc'));
   ExternalProc(Application.Handle,db1);
 finally
   FreeLibrary(DLLHandle);
 end;
end;



> Breakpoint'ы и анализ кода


Виснит именно на FreeLibrary. В простом проекте из одной формы все работает.   Может есть какие-нибудь "стандартные" причины, из-за которых библиотека может не выгружаться?

---

balepa   (2006-03-15 05:42:00) [11]

Код бы привел

> Подскажите, пожалуйста, где можно поискать проблему.

Breakpoint'ы и анализ кода

---

Наверх