Zitat:
Da ich nicht weiter wußte habe ich mir jetzt mal das Projekt von Luckie angeguckt und der machts zimlich gleich wie ich:
Delphi-Quellcode:
procedure CheckBookmark(IdHTTP: TIdHTTP;
const Link:
string;
var ResponseCode:
Integer;
var
ResponseString:
string);
begin
try
IdHTTP.Head(Link);
ResponseCode := IdHTTP.ResponseCode;
ResponseString := IdHTTP.ResponseText;
except
// bei einer Exception könnte IdHTTP.ResponseText leer sein
// dann wird die Exception-Message als ResponseString zurückgeliefert
// (z.B. wenn eine Firewall den Port 80 geblockt hat)
on E:
Exception do
begin
ResponseCode := IdHTTP.ResponseCode;
ResponseString := IdHTTP.ResponseText;
if ResponseString = '
'
then
ResponseString := E.
Message;
end;
end;
end;
Aber auch hier wird ein 404 Fehler ausgelößt....
weiß jemand Rat?