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

Вниз

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

← →
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 вся ветка

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

Наверх

Память: 0.47 MB
Время: 0.017 c