1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

////////////////////////////////////////////////////////////////////////////////
// Ping

procedure TMyThreads.Ping(FHost: string; FTimeOut: Cardinal);
var
  IdIcmpClient1: TIdIcmpClient;
begin
  IdIcmpClient1 := TIdIcmpClient.Create;
  try
    IdIcmpClient1.Host := FHost;
    IdIcmpClient1.ReceiveTimeout := FTimeOut;

    // Versuchen, den Host anzupingen
    IdIcmpClient1.Ping;

    // Wie man sieht, bin ich hier schon verzweifelt...
    //if IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsTimeout then
    //if IdIcmpClient1.ReplyStatus.MsRoundTripTime < FTimeOut-100 then
    //if not IdIcmpClient1.Receive(FTimeOut) = rsTimeOut then
    //if IdIcmpClient1.ReplyStatus.BytesReceived > 0 then
    //if IdIcmpClient1.Receive(FTimeOut).ReplyStatusType = rsEcho then
    if IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsEcho then
      FStatus := 'Offline' else
      FStatus := 'Online (' +
        IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime) + 'ms)';

    // Die Anzeige der MainForm aktualisieren
    Synchronize(UpdateLVCaption);
  finally
    IdIcmpClient1.Free;
  end;
end;