Zeiger auf Proceduren

[tomsel]

Du hast TCallbackTyp1 als Zeigertyp auf Procedure, und PCallbackTyp1 als Zeiger auf einen Zeiger vom Typ TCallbackTyp1, ist das so gewollt oder bereits der erste Fehler?

Bei
RegisterConnectCallback(@OnConnect); übergibst du einen Zeiger auf einen Zeiger auf eine Prozedur, deklariert ist aber ein Zeiger auf einen Zeiger des Typs TCallbackTyp1. Damit das kompatibel wird, brauchst du m.E. eine Variable vom Typ TCallBackTyp1, deren Adresse du an RegisterConnectCallback übergeben kannst.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var pOnConnect:TCallbackTyp1;
begin
  Initialisation('testapplication');

  pOnConnect := OnConnect;
  RegisterConnectCallback(@pOnConnect);

  RegisterNewDatabaseCallback(@OnNewDatabase);
  RegisterNewDataCallback(@tform1.OnNewData);

  StartLocalDataService(true);
  connect;
end;

Ich hoffe, mich damit richtig geirrt zu haben.