Скачать: CL | DM;

Вызов в 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c