Ping und Daten Verwerten

[DeddyH]

Das Protokoll für Ping heißt ICMP, schau da mal in den Indys nach . Außerdem könnte man Deinen Code noch ein wenig kürzen:

Delphi-Quellcode:

const sAdresses: array[0..4] of string = ('www.microsoft.de',
                                          'www.google.de',
                                          'www.delphipraxis.net',
                                          'german-bash.org',
                                          'www.sourceforge.net');
var i: integer;
    aShapes: array[0..4] of TShape;
begin
  aShapes[0] := Shape1;
  aShapes[1] := Shape2;
  aShapes[2] := Shape3;
  aShapes[3] := Shape4;
  aShapes[4] := Shape5;
  for i := 0 to 4 do
    if ping(sAdresses[i]) then
      aShapes[i].Brush.Color := clRed;
end;