Hallo Heiko,
vielen Dank für Deine Antwort. Callbacks sind neu für mich. Das Beispiel von Luckie kann ich nachvollziehen, aber bei meinem Problem komme ich nicht viel weiter:
Delphi-Quellcode:
type
...
TFNCallBack = function(alert, param: Integer; pTransfer, pUser: Pointer): Integer; stdcall;
TFNSetCallBack = procedure(pCallBack, pUser: Pointer); stdcall;
...
TShrinkTo5 = Class
private
...
FCallBack: TFNCallBack;
procedure SetCallBack(pCallBack, pUser: Pointer); stdcall;
public
property CallBack: TFNCallBack write FCallBack;
...
end;
procedure TShrinkTo5.SetCallBack(pCallBack, pUser: Pointer);
var
CallbackProc: TFNCallBack;
begin
@CallBackProc := PCallBack;
// FCallBack(CallBackProc.);
end;
Bevor der Transfer starten soll, habe ich jetzt vorerst
FNSetCallBack(@FCallBack, pUser);
zu stehen, wobei pUser = nil ist, weil ich noch nicht weiß, was ich damit anfangen soll.