synapse : exception funktioniert nicht richtig

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
malabarista
Beiträge: 321
Registriert: Sa 11. Jun 2016, 12:16
OS, Lazarus, FPC: Linux Mint 18.1 L1.6.2-1 FPC 3.0.0
CPU-Target: 64Bit
Wohnort: Konstanz

synapse : exception funktioniert nicht richtig

Beitrag von malabarista »

Ich versuche eine Internetseite mittels Synapse aufzurufen und will den Fall, dass die Webseite nicht existiert, als exception abfangen.
Das gelingt mir leider nicht.
Stattdessen erhalte ich eine Debugger-Fehlermeldung mit 404.

Code: Alles auswählen

 
function url_aufrufen(url : String) : boolean;
 
var
  b:boolean;
  HTTPClient: TFPHTTPClient;
  ip:integer;
  RawData: string;
 
begin
  b:=false;
  rawdata:='';
  try
     HTTPClient:=TFPHTTPClient.Create(nil);
     // <html><body>OK ...</body></html>
     RawData:=HTTPClient.Get(url);
  except
    on E: Exception do
       begin
       Showmessage('Verbindungsfehler/ Seite nicht vorhanden'); //<-- dies wird nicht aufgerufen
       b:=false;
       end;
  end;
  HTTPClient.Free;
  ip:=pos('<body>OK',rawdata);
  if ip>0 then b:=true;
  result:=b;
end;
 


Was ist mein Fehler ?

Benutzeravatar
m.fuchs
Lazarusforum e. V.
Beiträge: 2636
Registriert: Fr 22. Sep 2006, 19:32
OS, Lazarus, FPC: Winux (Lazarus 2.0.10, FPC 3.2.0)
CPU-Target: x86, x64, arm
Wohnort: Berlin
Kontaktdaten:

Re: synapse : exception funktioniert nicht richtig

Beitrag von m.fuchs »

Wieso Synapse? Du nutzt doch TFpHttpClient.

Warum denkst du dass es da eine Exception geben soll? Wenn der Server 404 zurückmeldet ist das keine Ausnahme. Du musst also den Rückgabewert prüfen.
Software, Bibliotheken, Vorträge und mehr: https://www.ypa-software.de

malabarista
Beiträge: 321
Registriert: Sa 11. Jun 2016, 12:16
OS, Lazarus, FPC: Linux Mint 18.1 L1.6.2-1 FPC 3.0.0
CPU-Target: 64Bit
Wohnort: Konstanz

Re: synapse : exception funktioniert nicht richtig

Beitrag von malabarista »

mmhh, - komisch.
Jetzt funktioniert es korrekt, mit Fehlermeldung via Showmessage. Ohne dass ich etwas am Code geändert habe.
Eventuell lag es an einem Aufrufparameter in der URL? keine Ahnung.
Trotzdem vielen Dank.
Aber ich mach jetzt erstmal Pause, offensichtlich sehe ich nicht mehr richtig.

Benutzeravatar
m.fuchs
Lazarusforum e. V.
Beiträge: 2636
Registriert: Fr 22. Sep 2006, 19:32
OS, Lazarus, FPC: Winux (Lazarus 2.0.10, FPC 3.2.0)
CPU-Target: x86, x64, arm
Wohnort: Berlin
Kontaktdaten:

Re: synapse : exception funktioniert nicht richtig

Beitrag von m.fuchs »

Das kann ich mir nicht vorstellen. Hast du eventuell beim zweiten Versuch einen Server angegeben der nicht existiert? Dann käme nämlich eine Exception.
Software, Bibliotheken, Vorträge und mehr: https://www.ypa-software.de

Antworten