Hallo Zusammen,

ich habe wieder ein Brett vor dem Kopf...

Ich muss Proceduren in einer bestimmten Reihenfolge aufrufen und muss daher mit CallBacks arbeiten...

zusammenfalten · markieren

Delphi-Quellcode:

type
   TDataRecievedCallback = reference to procedure;
   TDataRecieved_JSResult = reference to procedure(JSResult: string);
   TDataRecieved_JSBoolean = reference to procedure(JSBoolean: Boolean);


procedure TMySQL.xData_Main_ConnectConnect(Sender: TObject);
var Design: TDesign_App;
begin
   Design:= TDesign_App.create;
   Try
      Get_Sprachen(nil);
      Get_Land(nil);
      Get_Company_Details( //TDataRecievedCallback
         @Get_CustProperties( //TDataRecievedCallback
            @Check_login_code( //TDataRecieved_JSBoolean ......... Diese Zeile markiert der Compiler und meint wahrscheinlich @Design.Create_Form_TVApp
               @Design.Create_Form_TVApp
            )
         )
      );
   Finally
      Design.Free;
   End;
end;

Beim Compilieren bekomme ich die Fehlermeldung:

markieren

Code:

[Fehler] TTVA_Data_ModuleUnit.pas(188): Incompatible type arg no. 1: Got "procedure(TDataRecieved_JSBoolean) of Object", expected "reference to procedure()"

Das sind die relvanten Procedure:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMySQL.Get_Company_Details(AOnDataRecieved: TDataRecievedCallback);
   procedure OnResponse(Response: TXDataClientResponse);
   begin
      //Daten verarbeiten
      if Assigned(AOnDataRecieved) then begin
         AOnDataRecieved();
      end;
   end;
begin
   //Aufruf eines Service
end;


procedure TMySQL.Get_CustProperties(AOnDataRecieved: TDataRecievedCallback);
   procedure OnResponse(Response: TXDataClientResponse);
   begin
      //Daten verarbeiten
      if Assigned(AOnDataRecieved) then begin
         AOnDataRecieved();
      end;
   end;
begin
   //Aufruf eines Services
end;

//Hier scheint etwas nicht zu stimmen - oder mit der angegebenen AOnDataRecieved Procedure, die danach folgt
procedure TMySQL.Check_login_code(AOnDataRecieved: TDataRecieved_JSBoolean);
   procedure OnResponse(Response: TXDataClientResponse);
   var JSObj: TJSObject;
         Ergebnis: boolean;
   begin
      JSObj:=TJSJSON.parseObject(Response.ResponseText);
      Ergebnis:= StrToBool(String(JSObj['value']));
      if (Assigned(AOnDataRecieved)) then begin
         AOnDataRecieved(Ergebnis);
      end;
   end;
begin
   //Aufruf eines Services
end;


procedure TDesign_App.Create_Form_TVApp(login_valid: boolean);
begin
   if login_valid=false then
      Create_LogIn;
   if Assigned(Form_TheVisitApp) then begin
      Form_TheVisitApp.WIC_Logo.URL:=MySQL.xWDS_Customerlogo_image.AsString;
   end;
end;

Könnt ihr mir helfen, das Ding zum Fliegen zu bringen?

Vielen Dank
Patrick

Ohne jetzt alles im Detail zu prüfen ...
Auch habe ich null Erfahrung mit "reference to X" ...
Aber Im Kommentar steht, dass Get_Company_Details vom Typ TDataRecievedCallback sein soll.
Nur TDataRecievedCallback hat keine Übergabeparameter.
Das dürfte schon das Problem sein.
Die Typen für die Prozeduren/Funktionen, die definiert sind, passen nicht zur Verwendung.

Das geht nicht:

markieren

Delphi-Quellcode:

type TMyProc = procedure;

Procedure DoSomething(theProc : TMyProc);
Begin
  theProc('Hallo');
End;

Das geht:

markieren

Delphi-Quellcode:

type TMyProc = procedure(const sText : String);

Procedure DoSomething(theProc : TMyProc);
Begin
  theProc('Hallo');
End;

Ich hoffe das hilft schon.

MfG Incocnito

PS: Die ganzen Typen muss man nicht selbst definieren, es gibt in System.SysUtils schon TProc = reference to procedure() und TProc<T> = reference to procedure(arg: T)