FMX App und TDSRestConnection, was tun, wenn Session abgelaufen ist

[Uwe Raabe]

Ich kann es leider gerade nicht testen, daher nur unter Vorbehalt und ins Unreine gesprochen: Du könntest im OnBeforeExecute der Connection mit TestConnection die Gültigkeit der Verbindung prüfen. Im Falle einer Exception löscht du einfach die SessionID.

Das das TestConnection aber intern auch ein Execute aufruft, musst du dies im OnBeforeExecute abfangen, z.B. in dem du den Event-Handler temporär auf nil setzt.

[michaelg]

Danke Euch beiden!

Ich habe es jetzt so gelöst. Vielleicht auch für andere interessant, die das Problem haben. Es funktioniert, auch wenn ich den Datasnapserver zwischendurch neu starte und die App ist noch aktiv.

Code:

procedure TPONClientModule.DSRestConnection1BeforeExecute(Sender: TObject);
begin
  DSRestConnection1.OnBeforeExecute:=nil;

  if DSRestConnection1.SessionID<>'' then begin
    try
      DSRestConnection1.TestConnection([toNoLoginPrompt]);
    except
      DSRestConnection1.SessionID:='';
    end;
  end;

  DSRestConnection1.OnBeforeExecute:=DSRestConnection1BeforeExecute;
end;

Dass ist die SessionID<>'' vorher abprüfe, habe ich gemacht, da der Login-Vorgang sonst nicht korrekt funktioniert. Und so weiß ich, dass ich mich bereits erfolgreich eingeloggt habe, denn sonst hätte ich keine SessionID.