Ping und Daten Verwerten

[gasty]

Ich hab es jetzt so gemacht:

Delphi-Quellcode:

  IdIcmpClient1.Host := 'www.google.de';
  IdIcmpClient1.Ping();
    if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
      shape1.brush.color := cllime
    else shape1.brush.color := clred;

  IdIcmpClient1.Host := 'www.microsoft.com';
  IdIcmpClient1.Ping();
    if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
      shape2.brush.color := cllime
    else shape2.brush.color := clred;
usw.

Und es funktioniert