TRestRequest ExecuteAsync Parameter Frage

[Strally]

Hallo,

ich bin dabei eine mobile App mit Delphi zu schreiben und möchte den Restrequest Async absetzten damit das laden der Daten die UI nicht blockiert.

Hierfür muss RestRequest mit ExecuteAsync aufgerufen werden:

function ExecuteAsync(ACompletionHandler: TCompletionHandler = nil; ASynchronized: Boolean = True;
AFreeThread: Boolean = True; ACompletionHandlerWithError: TCompletionHandlerWithError = nil): TRESTExecutionThread;

ACompletionHandler: TCompletionHandler = diesen Parameter setze ich mit procedure LoadAdressen; um
ASynchronized, AFreeThread : stellt auch kein Problem dar

ACompletionHandlerWithError: TCompletionHandlerWithError: Wie muss dieser Parameter implementiert werden? Bräuchte ihn um mögliche Exceptions die auftreten auszuwerten.
In System.SysUtils ist er folgendermaßen deklariert: TProc<T> = reference to procedure (Arg1: T); Habe aber keine Ahnung wie das aussehen müsste :(

Für Hilfe wäre ich sehr dankbar.

Lg
Strally

[TiGü]

Delphi-Quellcode:

var
  // aus der Unit REST.Types ganz oben: TCompletionHandlerWithError = TProc<TObject>;
  MyCompletionHandlerWithError: TCompletionHandlerWithError;
begin
  MyCompletionHandlerWithError := procedure(AObject: TObject)
    begin
      if Assigned(AObject) and (AObject is Exception) then
      begin
        raise Exception(AObject); // oder was immer du möchtest!
      end;
    end;

  FRESTRequest.ExecuteAsync(nil, true, true, MyCompletionHandlerWithError);
end;

[Strally]

Guten Morgen,

vielen Dank für deine Antwort ... werde ich gleich mal ausprobieren :-)

Und wieder was gelernt :thumb:

Mfg
Strally