Форум: "WinAPI";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизКак правильно передать параметры в функцию длл? Найти похожие ветки
← →
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]СПАСИБО!!! Получилось ....
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c