Delphi IP's anpingen - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

IP's anpingen

Ein Thema von Neutral General · begonnen am 31. Jan 2005 · letzter Beitrag vom 22. Feb 2018

Vorheriger Beitrag

Nächster Beitrag

Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge

Delphi 10.2 Tokyo Professional

Re: IP's anpingen

31. Jan 2005, 10:25

Ok ich habs irgendwie doch geschafft :

markieren

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;

markieren

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;