1:
2:
3:
4:

3616,3892,3948,3948,3972,3964,3968,4000,4180,4032,4248,4044,4048,
4140,4100 (nur gewartet),4224,4076,4268,4108,4144,4320,4160,4200,
4324,4144,4164,4284,4216,4376,4232,4412,4468,4340,4312,4524,4404,
4592,4408,4592,4472,4664,4536,4504,4696,4552,4760,4692,4828                    

1:
2:

uses
   ..., Ping;                    

1:
2:

if (Ping.Execute('www.delphi-forum.de') >= 0) then
  ShowMessage('Erreichbar!');                    

1:
2:
3:
4:

  if ping.Execute(inet_ntoa(IP)) = 0 then
  ShowMessage('Host ist erreichbar!')
  else
  ShowMessage('Host ist Down!!!');                    

1:
2:
3:
4:
5:
6:
7:
8:

// -----------------------------------------------------------------------------  
// ICMP-Echo-API-Wrapper (Ping) für Delphi V1.03 vom 15.12.2005, (C) by Narses  
// -----------------------------------------------------------------------------

unit Ping;

interface
...                    

1:
2:
3:
4:
5:
6:

i:= Ping.Execute('192.168.212.253', 500);
case i of
     0: Listbox2.Items.Add('192.168.212.253');//Tu das, Ping war supi
    -1: ;//Mach dies (Timeout)
    -2: ;//Mach was anderes (LastError befummeln)
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

for j:=2 to 254 do begin

i:= Ping.Execute('192.168.212.'+IntToStr(j), 500);
case i of
     0: Listbox2.Items.Add('192.168.212.'+IntToStr(j));//Tu das, Ping war supi
    -1: ;//Mach dies (Timeout)
    -2: ;//Mach was anderes (LastError befummeln)
    end;
  end;                    

1:

procedure PingResult(Result: TAsyncPingResult);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm2.Button2Click(Sender: TObject);
var i,j,RefID :integer;
begin
RefID:=1;
   for j:=2 to 254 do
   begin
     Ping.ExecuteAsync(RefID,'192.168.212.'+IntToStr(j),PingResult);
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.PingResult(Result: TAsyncPingResult);
begin
  if Result.ErrorCode=0 then
    begin
      Listbox2.Items.Add(inet_ntoa(Result.IPv4));
    end;
end;