schneller Online Datei-Check

[Luckie]

Zitat von Flodding:

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.