Einem Callback eine Antwort geben?

[Christian Seehase]

Moin Mirage,

ein kleines Beispiel dazu:

Delphi-Quellcode:

// Anwendung
type
  TcsCallback = procedure(const AsMessage : PChar);

  procedure CBApp(const ACallbackProc : TcsCallback); external 'callbackdll.dll';

implementation

{$R *.DFM}

procedure CalledBack(const AsMessage : PChar);
begin
  ShowMessage(AsMessage);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CBApp(CalledBack);
end;

Delphi-Quellcode:

// DLL
type
  TcsCallBack = procedure(const AsMessage : PChar);

procedure CBApp(const ApCallback : TcsCallback);
begin
  ApCallback('TEST');
end;

exports CBApp;

Die Typendeklaration sollte man am Besten in eine Unit auslagern, die dann von beiden eingebunden wird.