Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

MDI + DLL   Найти похожие ветки 

 
snake1977   (2004-01-15 17:16) [0]

Здравствйте! поскажите почему вываливается ошибка при выгрузке DLL.
После загрузки DLL вызывается из нее процедура

Procedure Start(App:TApplication; Frm:TForm); export; StdCall;
Begin
SaveApp:=Application;
InitApp:=App;
Application:=App;
PrForm:=TPrForm.Create(Application);
PrForm.Show;
Application:=SaveApp;
End;

перед выгрузкой DLL вызывается процедура
Procedure Stop; export; StdCall;
Begin
Application:=InitApp;
PrForm.Close;
Application:=SaveApp;
end;

В основной программе , после выполнения следующих строк, выдается ошиба типа Acces violation
....
@Proc:=GetProcAddress(Handle1, "Stop");
try
if @proc<>nil Then Proc;
except
end;
FreeLibrary(Handle1);
end;


 
vl_chel ©   (2004-01-17 13:30) [1]

Вполне естественно!!
НЕЛЬЗЯ копировать ссылку на объект Application, подменять можно только Application.Handle.

var
SaveApp : THandle;

Procedure Start(App:THandle; Frm:TForm); export; StdCall;
Begin
SaveApp:=Application.Handle;
Application.Handle :=App;
Application:=App;
PrForm:=TPrForm.Create(Application);
PrForm.Show;
End;

Procedure Stop; export; StdCall;
Begin
PrForm.Close;
Application.Handle :=SaveApp;
end;



непонятно значение параметра Frm:TForm
может его надо описывать с var и в конце процедуры Frm := PrForm;



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

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
14-93631
Zeon
2004-01-08 01:01
2004.01.29
Алгоритм сортировки


9-93324
Bones
2003-07-13 03:07
2004.01.29
Физика движения летательного аппарата


1-93554
Mox Fulder
2004-01-17 13:18
2004.01.29
TerminateProcess


3-93400
smu
2003-12-30 09:49
2004.01.29
DBGrid Контроль ввода данных.


14-93660
@ndrey
2004-01-08 01:31
2004.01.29
как удалённо (по сети) выключить комп?