Как правильно передать параметры в функцию длл?

← →
Duncann (2003-10-21 11:57) [0]

У меня в основной программе следующий код вызывает процедуру из длл и пытается передать ей параметры:
procedure TForm1.PlugClick(sender: TObject); var PlugExec : procedure(s:PChar); FileName, str : string; handle : Thandle; begin with (sender as TmenuItem) do filename:= plugList.Strings[MenuIndex]; handle := LoadLibrary(Pchar(FileName)); if handle <> 0 then begin @plugExec := GetProcAddress(handle,"PluginExec"); str:="ля-ля-ля"; PlugExec(PChar(str)); end; FreeLibrary(handle); end;

Соответственно в длл есть процедура:
procedure PluginExec(s:Pchar); stdcall; begin showMessage(s); end;
И проблема в том, что этот ШоуМессадж постоянно выдает одну и ту жу аброкадабру, в независимости от того что я пытаюсь передать! Почему и как бороться? Спасибо.

← →
Zz_ (2003-10-21 12:04) [1]

stdcall

← →
Duncann (2003-10-21 12:08) [2]

где? PlugExec : procedure(s:PChar); stdcall;?

← →
Игорь Шевченко © (2003-10-21 12:08) [3]

var PlugExec : procedure(s:PChar); stdcall

← →
Duncann (2003-10-21 12:09) [4]

СПАСИБО!!! Получилось ....

Как правильно передать параметры в функцию длл? Найти похожие ветки