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

[DeddyH]

Du machst aber immer wieder das Gleiche, da drängt sich eine weitere Funktion doch geradezu auf.

[gasty]

hm, wie meinst du das?
Das versteh ich grad net

[DeddyH]

Schau Dir mal den Unterschied zwischen Deinem und meinem Code an und überlege Dir, was Du ändern musst, wenn Du statt 5 einmal 20 Server anpingen willst oder auf andere Antworten reagieren willst.

[gasty]

Also bei deinem Code wäre es viel einfacher den ping auf mehr server zu erweitern.
Aber wenn ich den benutzen will kommt immer "Undefinierter Bezeichner IdIcmpClient1"

[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).

[gasty]

Ok, danke jetz klappts
Hoffentlich endgültig

Hm, aber wenn ich eine adresse angebe, die nicht erreichbar ist, also die nicht existiert, wird das shape nicht rot, sondern das programm hat einen "Socketfehler #11004"