BookmarkChecker

[Luckie]

Habe ihn angehangen. Aber der ist so alt, ich habe keine Ahnung, ob er noch mit den aktuellen Browsern funktioniert.

[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;

[Luckie]

Ah, sehr gut. Dank dir. Wobei mir der erste Verbesserungsvorschlag nicht so ganz einleuchtet. Wie soll die Schleife weiter ausgeführt werden, wenn der Prozess beendet wird? Der zweite ist aber sehr sinnvoll.

[Nonsense]

Zitat von Daniel:

Außerdem stimmt da was nicht.

Nehmen wir die Site "www.theunderdogs.org". Zugegeben - es ist lange her. Aber früher konnte man dort mal Spiele finden, die von ihren jeweiligen Herstellern aufgrund des Alters offiziell aufgegeben wurden.

Analysiere ich den HTTP-Header von "www.theunderdogs.org", so kommt da sehr wohl ein "HTTP/1.1 200 OK" zurück.

www.the-underdogs.org

[shmia]

Zitat von Luckie:

Wobei mir der erste Verbesserungsvorschlag nicht so ganz einleuchtet. Wie soll die Schleife weiter ausgeführt werden, wenn der Prozess beendet wird? Der zweite ist aber sehr sinnvoll.

Das Beenden von Applikation ist etwas von Hinten durch die Brust ins Auge.
Sobald das Hauptformular geschlossen wird oder die Message WM_ENDSESSION empfangen wird,
wird Application.Terminated auf True gesetzt.
Wenn das Programm dann aber noch in einer Schleife läuft, muss diese Schleife
irgendwie abgebrochen werden, sonst läuft das Programm weiter.
Also sollte man grundsätzlich jede länger dauernde Schleife so aufbauen:

Delphi-Quellcode:

for i := startwert to endwert do
begin
   Machwas;
   Application.ProcessMessage; // Damit die Anwendung auf Messages reagiert und nicht einfriert
   if Application.Terminated then
      Exit;  // evtl. auch break, falls nach der Schleife noch was zu tun wäre
end;

[Luckie]

Ich hatte bisher damit keine Problem.

[BlackOut]

Der DL Link im ersten Beitrag scheint nicht mehr zu funktionieren... gibts das Programm ueberhaupt noch irgendwo zum downloaden?

[Daniel G]

Eine Sache von 30 Sekunden suchen auf Michaels Seite

http://www.michael-puff.de/Programme...er/index.shtml

[Luckie]

Link korrigiert.

[waldforest]

Hallo,

leider funktioniert der Link zu Luckies Seite nicht mehr,wo finde ich den aktuellen Source.

Den Source, den man aktuell von heise ziehen kann bekomme ich mit Indy 10 und Delphi 7 nicht ans laufen.

Ich glaube hier gibt´s Probleme mit dem Timeout (Exception Klasse EldSocketError Meldung Socket Error #10065 No Route to Host"
wenn ein Link nicht gefunden wird, habe aber keine Idee wo ich hier eingreifen muss