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;
Verein
Links
Suche