BookmarkChecker

[shmia]

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;