DLL callback

← →
Andrew2 (2002-11-30 03:17) [0]

Никак не могу передать в DLL адрес процедуры из загрузившего его приложения, чтобы дергать его из DLL. Поделитесь примером кода!
Спасибо.

← →
Юрий Зотов (2002-11-30 10:44) [1]

В DLL:

type
TEnumProc = function(I: integer; Data: pointer): boolean;

procedure EnumNumbers(Proc: TEnumProc; Data: pointer);
var
i: integer;
begin
if Assigned(Proc) then
for i := 1 to 3 do
if Proc(i, Data) then Break
end;

===========

В Exe:

function CallBack(I: integer; Data: pointer): boolean;
begin
Result := Data = nil;
if not Result then TMemo(Data).Lines.Add(IntToStr(I)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumNumbers(@CallBack, Memo1)
end;

DLL callback Найти похожие ветки