Ping und Daten Verwerten

[DeddyH]

Jepp, habe auch was vergessen:

Delphi-Quellcode:

...
type
  TYourForm = class(TForm)
  ...
  private
    procedure GetPingSuccess(const URL: string; const Shape: TShape);
  ...
  end;

...

procedure TYourForm.GetPingSuccess(const URL: string; const Shape: TShape);
begin
  IdIcmpClient1.Host := URL;
  IdIcmpClient1.Ping();
  case IdIcmpClient1.ReplyStatus.ReplyStatusType of
    rsEcho: Shape.brush.color := cllime;
    else    Shape.brush.color := clred;
  end;
  Application.Processmessages;
end;

procedure TYourForm.Something;
begin
  GetPingSuccess('www.microsoft.de',Shape1);
  GetPingSuccess('www.google.de',Shape2);
end;

Wobei Du TYourform durch den Namen Deiner Formularklasse ersetzen musst (vermutlich TForm1).