Einzelnen Beitrag anzeigen

64Jabor

Registriert seit: 9. Jan 2008
158 Beiträge
 
Delphi 7 Personal
 
#1

IdIcmpClient für einen ping

  Alt 14. Mai 2009, 14:24
Liebe DP

ich habe folgendes Problem:

Ich möchte anhand von IP-Adressen prüfen ob ein Computer - wir setzen mal vorraus das keine Firewall den ping blockiert - online ist (sofern die IP denn auch stimmt).
Ich habe das Forum durchsucht und bin auf die IdIcmpClient-Komponente des Indy-Packages gestoßen.
Die verwende ich folgerndermaßen: ("Ping" ist eine Instanz der TIdIcmpClient)

Delphi-Quellcode:
 Ping.Host := ComputerIP.Caption;
 Ping.Ping();
 if (Ping.ReplyStatus.BytesReceived > 0) then result := TRUE
  else result := FALSE;
Nun erhalte ich jedoch (ich muss sagen dass IMMER der erste Ping in meinem Programm an localhost geht (sinnlos, ich weiß, aber!)
egal welche IP ich angebe - ob das nun xyz oder fff ist - ein Ergebnis das WAHR ist in meiner Funktion die oben beschrieben ist.
Woran liegt denn der Fehler?

mfg Sebi
Sebastian
  Mit Zitat antworten Zitat