Как мне избечь ошибок при поодключении DLL, содержащей функцию

← →
kss1515 (2002-08-18 20:27) [0]

Здравствуйте,

Есть к вам такой вот вопрос:
Как мне избечь ошибок при поодключении DLL, содержащей функцию
GetSimpleText(LangRus:Boolean):PChar, используя такой код:

var
Form1: TForm1;
GetSimpleText:function(LangRus:boolean):PChar;
LibHandle:THandle;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
@GetSimpleText:=nil;
LibHandle:=LoadLibrary("mydll.dll");
If LibHandle>=32 then
@GetSimpleText:=GetProcAddress(LibHandle,"GetSimpleText");
If @GetSimpleText<>nil then ShowMessage(StrPas(GetSimpleText(True)));
end;

Ошибка заключается в следующем: В функцию GetSimpleText в любом случае
передается параметр False (или вообще не передается, скорее всего,
глюк при его передаче), а через
несколько секунд программа вообще вылетает, сообщая об "Ошибке в
модуле KERNEL32".
У меня система Delphi 5.0 Build 5.62 Enterprise, ОС Windows ME

Заранее спасибо за помощь!
--
С уважением,
KSS!

← →
Юрий Зотов © (2002-08-18 22:00) [1]

Похоже, причина в отсутствии stdcall и/или в неверном выделении/освобождении памяти под строку PChar.

Как мне избечь ошибок при поодключении DLL, содержащей функцию Найти похожие ветки