Meine Function sieht jetzt so aus:
Delphi-Quellcode:
function TSDIAppForm.ReadSite(
URI:
string):
String;
var
idClient: TIdHTTP;
msData: TMemoryStream;
ResultString:
String;
begin
idClient := TIdHTTP.Create(Application);
msData := TMemoryStream.Create;
try
idClient.Get(
URI, msData);
msData.Seek(0, soFromBeginning);
ResultString := StreamToString(msData);
except
on E:
Exception do begin
E.
Message := '
Meldung: '+E.
Message;
Raise;
// Erneut auslösen !
end;
end;
idClient.Free;
msData.Free;
result := ResultString;
end;
Die
Exception wird gemeldet, was okay ist, aber diese Funktion soll mehrmals aufgerufen werden. Leider stoppt das Programm nach einer
Exception (zB 301-Moved Permanently).
Wenn ich die Zeile mit dem "Raise" weglasse, macht das Programm eine Weile lang weiter, stürzt aber dann ab.
Bin ich der einzige, der mit nicht erreichbaren Seiten Probleme hat? Das kann doch fast nicht sein.
Kann man den TIdHTTP nicht so konfigurieren, dass er Seiten, die es nicht mehr gibt o.ä. einfach ignoriert?