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;

[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? :gruebel: Der zweite ist aber sehr sinnvoll. :thumb:

[Nonsense]

Zitat:

Zitat von Daniel

Außerdem stimmt da was nicht. :roll:

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. :gruebel:

www.the-underdogs.org :wink: :thuimb:

[shmia]

Zitat:

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? :gruebel: Der zweite ist aber sehr sinnvoll. :thumb:

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 :wink:

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

[Matze]

Hallo,

Luckie ändert leider immer mal seine Links und leitet die alten nicht auf die neuen weiter. Wir haben hier einige davon, die ins Nirvana führen. Aber du findest das Programm noch auf seiner Website, wenn du dich da durchklickst: Programme - Übersicht.
Ich weiß nicht, ob es Luckie mag, wenn Direktlinks gepostet werden. Daher verlinke ich nur zur Übersicht.