Wenn ich eine abfrage schicke
resp := FHTTP.Post(SendStr, FPostData);

und hier ein Fehler auftritt fange ich diesen über try, except ab.
Ich bekomme dann eine System spezifische Message beim Debuggen gezeigt bsp. "Payment is required for this action"
Mein Problem wie kann ich diese in ein LOG schreiben denn nachdem ich bestätige ist resp nothing bzw. die Message nicht mehr vorhanden.

markieren

Delphi-Quellcode:

try
  resp := FHTTP.Post(SendStr, FPostData);
except
  on e: Exception do begin
    yourLog('Oh, das hat nicht geklappt. Fehler: '+e.Message);
    // dann hier noch irgendeinen Status setzen, damit dein Programm danach weiß, dass es nicht geklappt hat
  end;
end;

... wobei yourLog natürlich deine Methode ist, mit der du ins Log-File schreibst.

Zitat von Bbommel:

markieren

Delphi-Quellcode:

try
  resp := FHTTP.Post(SendStr, FPostData);
except
  on e: Exception do begin
    yourLog('Oh, das hat nicht geklappt. Fehler: '+e.Message);
    // dann hier noch irgendeinen Status setzen, damit dein Programm danach weiß, dass es nicht geklappt hat
  end;
end;

... wobei yourLog natürlich deine Methode ist, mit der du ins Log-File schreibst.

Nun vielleicht hast du meine Frage nicht korrekt verstanden.
Ich möchte kein Message selbst generieren sondern diese vom Fehler Dialog ausgeben. (siehe Debug Message)
Danke.

Zitat von venice2:

Ich möchte kein Message selbst generieren sondern diese vom Fehler Dialog ausgeben. (siehe Debug Message)
Danke.

Genau das wird gemacht. Der entscheidende Teil ist e.Message oben im Beispiel. Das enthält den Fehlertext, der dir auch im Debugger angezeigt wird. Das "Oh, das hat nicht funktioniert" kannst du natürlich dann auch weglassen.

.. die Meldung sollte dann dcoh in e.message zu finden sein.
Oder suchst Du den http-Repsonse code e.g 402?
Was sagt fHttp.ResponseCode bzw. fHttp.ResponseText?

Grüße
Klaus

Zitat von Bbommel:

Zitat von venice2:

Ich möchte kein Message selbst generieren sondern diese vom Fehler Dialog ausgeben. (siehe Debug Message)
Danke.

Genau das wird gemacht. Der entscheidende Teil ist e.Message oben im Beispiel. Das enthält den Fehlertext, der dir auch im Debugger angezeigt wird. Das "Oh, das hat nicht funktioniert" kannst du natürlich dann auch weglassen.

Ahh.. Ok dann werde ich das ändern.

zusammenfalten · markieren

Delphi-Quellcode:

  try
    SendStr := PProvRec(FProvList[FProvUse]).URL + '/zapi/watch/live/' + FActChlRec.cid;
    resp := FHTTP.Post(SendStr, FPostData);
  except
    on e: Exception do
    begin
      LOG('GetWatchURL', 'Failed ! with Message ' + e.Message);
      FActChlRec := nil;
      FActChlName := '';
      FActChlTitleNow := '';
      FActChlSubNow := '';
      FActChlTitleNext := '';
      FActChlSubNext := '';
      exit;
    end;
  end;

Ausgabe.

Zitat:

[12:19:13:784] [ZATLIB - GetWatchURL]: Failed ! with Message HTTP/1.1 402 Payment Required

Danke schön.
100 * gemacht und vergessen. LOL. So kann es gehn.