ошибка при попытке выгрузки Dll [D6, Win2k]
Dark123us © (2005-05-28 03:17:00)
сообщение Access violation at address 00404420 in module и
т.д.
var LibHandle:tHandle;
begin
If OpenDialog1.Execute then
begin
LibHandle:=LoadLibrary(pChar(OpenDialog1.FileName));
try
if LibHandle=0 then
raise
eDllLoadError.Create('Невозможно загрузить библиотеку');
@GetNameDll:=GetProcAddress(LibHandle,'GetNameDll');
if not (@GetNameDll=nil) then
edit1.Text:=GetNameDll
else
RaiseLastWin32Error;
finally
freeLibrary(LibHandle); //<-
здесь возникает ошибка
end;
end;
end;
Dark123us (2005-05-28 04:46:00) [1]
упс звиняйте все дело оказалось, что DLL коряво с работают со
string, поменял на pchar и все заработало без ошибок
Наверх 
ЧАТ |
Орешник |
|
