Ok ich habs irgendwie doch geschafft :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:= 1 to 200 do begin
Ping.Host := '192.168.2.' + IntToStr(i);
Ping.Ping();
end;
end;
Delphi-Quellcode:
procedure TForm1.PingReply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if (AReplyStatus.MsRoundTripTime < 50) and (AReplyStatus.FromIpAddress <> '0.0.0.0') then
ListBox1.Items.Add(AReplyStatus.FromIpAddress);
end;
Danke Sharky wegen dem Tipp
