Pingen ohne das Programm einfriert!

[dadu]

Hi Leute!

Ich möchte rausfinden ob mein Programm auf einen Host(Meine Homepage) zugreifen und von dort aus Datei runterladen kann(In Zeiten wo alle PCs eine Firewall haben muss ich das ja prüfen).
Also muss ich irgendwie die Seite anpingen: Dabei soll mein Programm aber auf keinen Fall einfrieren! Wie macht man sowas???

DaDu

[jim_raynor]

Stichwort Threads vielleicht

[dadu]

Einen bisschen Quelltext wäre nicht schlecht, damit ich eine Idee davon bekomme, wie man pingt und dann noch über einen Thread!

[jim_raynor]

Pingen tust du am besten mit den Indy Komponenten. Quelltext kann ich dir leider nicht liefern. Habs selber noch nicht gemacht. Aber ich glaube, dass Thema pingen wurde schon oft hier im Forum angesprochen und auch zu Threads gibt es genügend Beiträge.

[supermuckl]

Ich würde nicht pingen, sondern den Port checken mit einem socket-connect, da auch eine ICMP verwerfende Firewall installiert sein kann, aber die Seite trotzdem erreichbar sein kann (Port 80 TCP).

[Jelly]

Zitat von supermuckl:

Ich würde nicht pingen, sondern den Port checken mit einem socket-connect, da auch eine ICMP verwerfende Firewall installiert sein kann, aber die Seite trotzdem erreichbar sein kann (Port 80 TCP).

du kannst ja z.B. google.de anpingen. Wenn du ein echo kriegst, bist du online.

Zitat von jim raynor:

Pingen tust du am besten mit den INDY Komponenten

Find ich nicht, da das nur mit Administrator Rechten funktioniert.

[Jelly]

Sorry... Hätt auch gleich ne alternative Methode posten können, wie man noch pingen kann:

Delphi-Quellcode:

uses
 winsock ;

function Ping(InetAddress : string) : boolean;
var
 Handle : THandle;
 InAddr : IPAddr;
 DW : DWORD;
 rep : array[1..128] of byte;
begin
  try
      result := false;
      Handle := IcmpCreateFile;
      if Handle = INVALID_HANDLE_VALUE then
       Exit;
      TranslateStringToTInAddr(InetAddress, InAddr);
      DW := IcmpSendEcho(Handle, InAddr, nil, 0, nil, @rep, 128, 0);
      Result := (DW <> 0);
      IcmpCloseHandle(Handle);
  except
      Result := false ;
  end ;
end;

Die Quelle, wo ich den Code her hab, ist mir aber verloren gegangen