Форум: "Основная";
Текущий архив: 2009.02.22;
Скачать: [xml.tar.bz2];
ВнизВызов в DLL функции основного приложения Найти похожие ветки
← →
Fynjy84 (2008-04-11 08:14) [0]Есть DLL
....
type PF_SearchInfo=Procedure(score,depth,speed:integer;pv,cm:Pchar); stdcall;
Var procE:PF_SearchInfo;
...
Procedure EI_Initialization(PF_SearchInfo:PF_SearchInfo;mem_lim:integer);stdcall;
begin
ProcE:=PF_SearchInfo;//далее ProcE вызывается в других функциях дллки
........
end;
.......
exports
.....
EI_Initialization,
.....
есть основная программа
type
...... PF_SearchInfo=Procedure(score,depth,speed:integer;pv,cm:Pchar); stdcall;
..............
implementation
Procedure EI_Initialization (PF_SearchInfo:PF_SearchInfo;mem_lim:integer); external "DLL1.dll";
Procedure A1(score,depth,speed:integer;pv,cm:Pchar);stdcall;
begin
showmessage(inttostr(score));
end;
procedure TMyForm.Button1Click(Sender: TObject);
begin
EI_Initialization(@A1,32);//здесь приложение зависает
end;
Как мне вызвать функцию из DLL EI_Initialization(@A1,32) точнее как мне передать указатель на A1 чтобы процедура А1 вызывалась из дллки?
← →
Сергей М. © (2008-04-11 08:20) [1]Procedure EI_Initialization(PF_SearchInfo:PF_SearchInfo;mem_lim:integer);stdcall;
begin
ProcE:=PF_SearchInfo;//далее ProcE вызывается в других функциях дллки
........
end;
Procedure EI_Initialization (PF_SearchInfo:PF_SearchInfo;mem_lim:integer); stdcall; external "DLL1.dll";
← →
Fynjy84 (2008-04-11 08:47) [2]Спасибо, вот она невмнимательность
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2009.02.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c