per Ping schauen, ob Rechner lebt

[Seven]

Hallo ich dachte es wäre mit den Indy relativ einfach per Ping Rechner im Netzwerk zu prüfen, doch es klappt bei mir leider nicht.

Delphi-Quellcode:

IdIcmpClient1.Host := '192.168.12.251';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
label1.caption :='Fehler'
else label1.Caption :='klappt';

Da anscheinend ReceiveTimeout als Konstante den Wert 5000 hat, weiss ich nicht wie ich prüfen kann, ob sich ein bestimmter Rechner anpingen lässt oder nicht.

Kann mir jemand bei diesem Problem behilflich sein. Es gibt zwar genügen Threads zu diesem Thema, allerdings keins welches mir mit meinem Problem behilflich ist.

[helgew]

ich glaube iphlpapi.dll hat eine Ping-Routine. Leider habe ich gerade den Quelltext nicht zur Hand. Ich bin darauf gestoßen, als ich nach trace gesucht hatte.

[Klaus01]

Guten Abend,

kannst Du nicht den ReplyStatus abfragen?

Zitat von Hilfe zu idIcmpClient:

property ReplyStatus: TReplyStatus;

Description

ReplyStatus is a TReplyStatus property used to store a response to an echo request.

ReplyStatus is updated when a receiving a response to an echo request in Ping. When the response to an echo request contains a non-zero length, ReplyStatus is updated with the contents of the echo response datagram.

When the response to an echo request contains 0 bytes, ReplyStatus is updated with values to indicate the error condition, including:

BytesReceived - 0
FromIpAddress - '0.0.0.0'
MsgType - 0
SequenceId - Internal sequence number from TIdIcmpClient
TimeToLive - 0
ReplyStatusType - rsTimeOut

Grüße
Klaus

[FAlter]

Hi,

der Timeout stellt nur den Timeout ein, also, wann der Vorgang abgebrochen wird. Es wird irgendein Event ausgelöst, wenn der Ping zurückkommt und die Zeit noch nicht abgelaufen ist.

Mfg
FAlter

[toms]

Hallo, Luckie resp. retnyg hat auch mal eine Ping Routine geschrieben, wäre als Alternative zu Indy: LuckiePing