Hallo Zusammen,

das Thema CallBack ist für mich neu und ich stehe gerade völlig auf dem Schlauch...


Ich möchte etwas ausprobieren. Dazu rufe ich einen Service auf dem Server auf, der mir eine Datenmenge aus der Datenbank zurückliefert. Diese Daten werden in ein TWebStringGrid (TMS) geladen. Dort sollen sie rausgeholt und in ein TTMSFNCGrid (TMS) geschrieben werden. Weil ich ja warten muss, bis die Daten auch wirklich übermittelt wurden, wollte ich das mit einer CallBack Procedure machen.

Das ist mein Versuch (ich bin mir ziemlich sicher, dass ich das Zusammenspiel hier falsch mache...)
Das ist der Aufruf

markieren

Delphi-Quellcode:

procedure TLogic.Get_Beobachtete_FA(Sender: TObject);
var
   URL: string;
begin
   URL:=Data_Module.xConnection.url;
   URL:=URL+'Data_xChangeService/Get_BeobachteteFAs';
   URL:=URL+'?User_ID=';
   URL:=URL+Data_Module.xDST_User.FieldByName('UserID').AsString;
   Data_Module.Get_Grid_Data(URL, (Sender as TTMSFNCGrid), WebGrid_FNCGrid());
end;

Hier werden die Daten erst einmal in das TWebStringGrid geladen

zusammenfalten · markieren

Delphi-Quellcode:

type
   TConnectCallback = reference to procedure;
   TDataRecievedCallback = reference to procedure;

...

procedure TData_Module.Get_Grid_Data (URL: string; FNCGrid: TTMSFNCGrid; AOnDataRecieved: TDataRecievedCallback);
var
   WGrid: TWebStringGrid;
begin
   WGrid:= TWebStringGrid.Create(nil);
   Try
      WGrid.LoadFromJSON(URL);
      if Assigned(AOnDataRecieved) then begin
         AOnDataRecieved(WGrid, FNCGrid);
      end;
   Finally
      //WGrid.Free;
   End;
end;

Wenn die Daten im TWebStringGrid sind, soll die AOnDataReceived aufgerufen werden. Das ist die procedure WebGrid_FNCGrid.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TLogic.WebGrid_FNCGrid(WGrid: TWebStringGrid;
  FNCGrid: TTMSFNCGrid);
var
   I, J: integer;
begin
   FNCGrid.Columns.Count:=WGrid.ColCount;
   FNCGrid.RowCount:=Wgrid.RowCount;
   for I := 0 to WGrid.RowCount -1 do begin
      for J := 0 to WGrid.ColCount -1 do begin
         FNCGrid.Cells[J,I]:=WGrid.Cells[J,I];
      end;
   end;
end;

Aber egal wie rum ich es auch ausprobiere (das ist jetzt gerade nur der aktuelle Stand), ich bekomme es nicht ans Laufen...

Hehlermeldung:

Zitat:

[Fehler] TLogicUnit.pas(38): Wrong number of parameters specified for call to "procedure WebGrid_FNCGrid(TStringGrid;TTMSFNCGrid) of Object"

Kann mir jemand einen Tip geben?

Vielen Dank
Patrick

Stimmt doch, diese Fehlermeldung.

Du hast einen Zeiger-Typen mit 0 Parametern
TDataRecievedCallback = reference to procedure; aka TDataRecievedCallback = reference to procedure();

und versucht aber 2 Parameter zu übergeben
AOnDataRecieved(WGrid, FNCGrid);

Lösung:
ohne Parameter aufrufen AOnDataRecieved();
oder TDataRecievedCallback = reference to procedure(WGrid: TWebStringGrid; FNCGrid: TTMSFNCGrid);

Ich weiß nicht, ob ich dafür nun extra einen neuen Thread aufmachen sollte, aber ich hoffe das geht auch so ...

Ich kenne das bisher nur, dass man Funktions-Typen so schreibt:
type TMyProc = Procedure(); evtl. noch
type TMyProc = Procedure() of object; oder bei Parametern
type TMyProc = Procedure(const bValue : Boolean) of object; aber
type TMyProc = reference to procedure();
habe ich in dem Zusammenhang noch nie gesehen.
Kann das einer in ein/zwei Sätzen erklären was es mit "reference to" auf sich hat
oder weiß einer eine Seite, die das so erklärt,
dass es ein 6-jähriger Versteht?

---------------

Um vielleicht doch noch was "produktives" beizutragen:
Im Prozedur-Header steht:
procedure TLogic.WebGrid_FNCGrid(WGrid: TWebStringGrid; FNCGrid: TTMSFNCGrid); in der Fehlermeldung
procedure WebGrid_FNCGrid(TStringGrid;TTMSFNCGrid) of Object; Evtl. Ist TWebStringGrid nicht vom TStringGrid geerbt?
TMS hatte (wenn ich mich recht erinnere)ceine andere "Oberklasse".
... Ist mir nur aufgefallen, muss nichts heißen!

MfG
Incocnito

Reicht auch ein 10-jähriger?
Wenn Du weisst was eine eierlegende Wollmilchsau ist - "reference to" ist so was. Nehm die, dann brauchst du dir um die Varianten in den meisten Fällen keinen Kopf mehr machen.

Vielleicht das als Hilfestellung.

Ein eigener Thread wäre besser, wenn du es genauer wissen willst.

markieren

Delphi-Quellcode:

type TMyProc = procedure(...); // Zeiger auf normale Prozedur oder statische Klassen-Methode
type TMyProc = procedure(...) of object; // Zeiger auf Methode oder Klassen-Methode
type TMyProc = reference to procedure(...); // Zeiger auf Alles: anonyme Methode oder die Anderen

Werden Referenzzeiger neu zugewiesen, dann bekommen sie immer wieder ein neues Interface. Sie lassen sich also nur prüfen auf Assigned und nil oder vergleichen mit einem anderem Referenzzeiger (der sich zwischen Zuweisung an den eigenen Zeiger und dem Vergleich nicht verändert hat).