| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вызов в DLL функции основного приложения [D7]

Fynjy84 ©   (2008-04-11 08:14:00) 

Есть 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 вызывалась из дллки?

---

Fynjy84   (2008-04-11 08:47:00) [1]

Спасибо, вот она невмнимательность

---

Сергей М.   (2008-04-11 08:20:00) [2]

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';

---

Наверх