URL checken

[jaenicke]

Hast du es denn mal ohne das Free mit dem ursprünglichen Code versucht?

Delphi-Quellcode:

function Tmain.urlcheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
   try
     IdHTTP1.HandleRedirects := bAllowRedirects;
     IdHTTP1.Head(sUrl);
     Result := IdHTTP1.Response.ResponseCode;
   except
     Result := GetLastError; // was soll das bringen? bei Indy dürfte GetLastError nichts über den Fehler aussagen...
   end;
end;