Hi,
ich hätte noch 2 kleine Verbesserungen für den tollen Bookmarkchecker 1.1:
In
Unit 1 (Zeile 400):
Delphi-Quellcode:
// Schleife auch verlassen falls die Anwendung geschlossen wurde
if Cancel or Application.Terminated then
exit;
In
Unit 2:
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;