TRestRequest: ERESTException Errorcode?

[taveuni]

Hallo zusammen,

Delphi-Quellcode:

  Try
    RestRequest.Execute;
    if FRestRequest.Response.StatusCode <> 200 then
      DoSomething
    else
      DoSomethingElse 
  except
    on E: Exception do
    begin
      var ErrorText:= e.message;
      var ErrorCode:= '???';
      // handle different exceptions here
    end;

Bei den Exceptions handelt es sich um eine ERESTException. Als Beispiel wenn ich die Exception.message logge sehe ich z.B:

REST-Anforderung fehlgeschlagen: Fehler beim Empfangen der Daten: (12152) Der Server lieferte eine ungültige oder unbekannte Rückmeldung
oder
REST-Anforderung fehlgeschlagen: Fehler beim Senden der Daten: (12002) Das Zeitlimit für den Vorgang wurde erreicht.

Wie komme ich an den Errorcode in der Klammer? Sowohl Copilot wie auch Gemini schlagen ein parsen des Textes vor

Gibt es eine andere Möglichkeit?

[gubbe]

Wenn es eine ERESTException ist, solltest Du sie auch so abfragen. Also

on E: ERESTException do
Edit: bzw. als ERequestError, die dann auch einen Statuscode hätte.

[taveuni]

Zitat von gubbe:

Wenn es eine ERESTException ist, solltest Du sie auch so abfragen. Also

on E: ERESTException do

Die beiden Meldungen oben sind beides ERestExceptions. Ich möchte den Code in der Klammer wenn möglich ohne Regex oder ähnliches.

[gubbe]

Zitat von taveuni:

Die beiden Meldungen oben sind beides ERestExceptions. Ich möchte den Code in der Klammer wenn möglich ohne Regex oder ähnliches.

Ja, ich meinte nur, wenn Du allgemein e vom Typ Exception definierst, was ein ganz allgemeines Exception-Objekt ist, kannst Du davon keine genaueren Angaben erwarten.

Wenn es keine spezielleren Exceptions sind, wie ERequestError, die einen Statuscode liefern könnten, würde ich es mit der allgemeinen Funktion "GetLastError" probieren (nur unter Windows). Entspricht die Rückgabe dieser Funktion den Codes in der Fehlermeldung?

[DeddyH]

Könnte man mal versuchen:

Delphi-Quellcode:

on E: ERESTException do
  if E is ERequestError then
    begin
      Status := ERequestError(E).StatusCode;
    end
  else
    begin
      // Pech gehabt, da muss man wohl parsen
    end;

[taveuni]

Nein - GetLastError bringt nicht den Code.
Und nein - Es handelt sich nicht um einen ERequestError. Ich werds einfach parsen mit Regex.
Danke Euch beiden.