IdIcmpClient für einen ping

[64Jabor]

Liebe DP :wink:

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

[nahpets]

Hallo,

zur Erfolgsprüfung solltes Du das entsprechende Ereignis nutzen:

Delphi-Quellcode:

PingReply(ASender: TComponent; const AReplyStatus: TReplyStatus);

Dort kannst Du dann auf Erfolg oder Misserfolg abfragen:

Delphi-Quellcode:

Case AReplyStatus.ReplyStatusType Of
  rsEcho             : Begin
                         sPingLogResult := 'erfolgreich';
                       End;
  rsError            : Begin
                         sPingLogResult := 'Fehler';
                       End;
  rsTimeOut          : Begin
                         sPingLogResult := 'TimeOut';
                       End;
  rsErrorUnreachable : Begin
                         sPingLogResult := 'nicht Erreichbar';
                       End;
  rsErrorTTLExceeded : Begin
                         sPingLogResult := 'TTL überschritten';
                       End;
End;

sPingLogResult sei hier eine global deklarierte Stringvariabel.

[64Jabor]

Hallo,

vielen Dank für deine Antwort!
Ich implementiere meine Funktion in einer eigenen Unit und möchte deshalb wenn möglich alles auch in der Unit halten...
Wenn ich meine Funktion allerdings abändere und so stattdessen den ReplyStatusType abfrage, funktioniert es wunderbar!
Vielen Dank!

Da der Titel ja recht allgemein gehalten ist, denke ich passt eine zweite Frage auch noch zu ihm:

Mittels der IdIcmpClient die ich mit folgender Einstellung betreibe (ReadTimeOut 250), laggt das Programm wenn der Timer meine Komponenten (zur Zeit genau 2) zum Auffruf des Pings auffordert.
Auch eine IdAntiFreeze (ohne Konfiguration -> IdleTimeOut 250) löst dies nicht...
Was kann ich denn da tun?