Delphi-Quellcode:
function UrlCheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
with TidHTTP.Create(nil) do
try
try
HandleRedirects := bAllowRedirects;
Head(sUrl);
Result := Response.ResponseCode;
errorhandler := Response.ResponseText;
finally
Free;
end;
except
Result := GetLastError;
end;
end;
Von wem stammt dieser Code? Zum einem müsste der try-except, try-finally Block umgekehrt geschachtelt sein und zum anderen wird bestimmt eine
Exception ausgelöst und nicht der letzte Systemfehlercode gesetzt. Also die try-Blöcke umgekehrt schachteln, aus der Funktion eine Prozedur machen und im Fehlerfall eine
Exception werfen, damit der Aufrufer mögliche Fehlerbehandeln kann.