Скачать: CL | DM;

Проблемы с формой из DLL   Найти похожие ветки 

← →
AlexanderSK ©   (2003-02-05 17:27) [0]

Вот DLL:
procedure Init(H: THandle); stdcall;
begin
Application.Handle := H;
Application.CreateForm(TTestForm, TestForm);
TestForm.Show;
end;

procedure DeInit; stdcall;
begin
TestForm.Free;
end;

А вот использующая ее программа:

var
Dll: THandle;

procedure TMainForm.Button1Click(Sender: TObject);
var
P: procedure(H: THandle); stdcall;
begin
Dll := LoadLibrary("dll\test.dll");
@P := GetProcAddress(Dll, "Init");
P(Application.Handle);
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
P: procedure; stdcall;
begin
@P := GetProcAddress(Dll, "DeInit");
P;
FreeLibrary(Dll);
end;

Проблема в следующем все замечательно рабюотает пока нет строчки FreeLibrary(Dll)! Как только я пытаюсь выгрузить Dll у меня с экрана проподает Основная форма приложения! Причем приложение продолжает нормально работать и вызов - ShowWindow(MainForm.Handle, SW_SHOWDEFAULT) все приводит в норму! В чем дело? Как с этим можно бороться?

Всем заранее большое спасибо!

---

← →
gsu ©   (2003-02-05 17:30) [1]

А где проверки на наличие ... ?

---

← →
AlexanderSK ©   (2003-02-05 17:31) [2]

Наличие чего?

---

← →
AlexanderSK ©   (2003-02-05 18:13) [3]

Неужето никто с этим не сталкивался раньше?
Подскажите - что я делаю не так?

---

← →
gsu ©   (2003-02-05 18:17) [4]

возможно же, что библиотека не загрузилась или функции нет или ... ?

---

← →
AlexanderSK ©   (2003-02-05 18:24) [5]

все это есть! выброшено здесь для эконимии места! все прекрасно работает! Но как только вызывается FreeLibrary(Dll) с экрана исчезает основная форма приложения! И это при том что приложение продолжает работать!!!

ЧТО ДЕЛАТЬ?

---

← →
Skier ©   (2003-02-05 18:26) [6]

procedure Init(H: THandle); stdcall;
begin
Application.Handle := H;
TestForm := TTestForm.Create(Application);
TestForm.Show;
end;

---

← →
AlexsanderSK   (2003-02-05 18:31) [7]

Тот же эффект! После FreeLibrary(Dll) основная форма исчезает с экрана!!!

---

← →
AlexsanderSK   (2003-02-05 18:35) [8]

П все было просто!!!!

procedure DeInit; stdcall;
begin
TestForm.Free;
Application.Handle := 0;{!!!!!}
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.984 c