| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как правильно передать параметры в функцию длл? [D5, Win2k]
Duncann © (2003-10-21 11:57:00)
У меня в основной программе следующий код вызывает процедуру из длл и пытается передать ей параметры:
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;
И проблема в том, что этот ШоуМессадж постоянно выдает одну и ту жу аброкадабру, в независимости от того что я пытаюсь передать! Почему и как бороться? Спасибо.
Duncann (2003-10-21 12:09:00) [1]
СПАСИБО!!! Получилось ....
Duncann (2003-10-21 12:08:00) [2]
где? PlugExec : procedure(s:PChar); stdcall;?
Игорь Шевченко (2003-10-21 12:08:00) [3]
var PlugExec : procedure(s:PChar); stdcall
Zz_ (2003-10-21 12:04:00) [4]
stdcall
| |
