Netzwerk-Tool, das prüft, welche PCs an sind

[Stevie]

TIdIPWatch zeigt dir nur die eigene IP an!

Benutz TIdICMPClient:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdICMPClient1.Host := Edit1.Text;
    IdICMPClient1.Ping;
  except
    Memo1.Lines.Add(Format('Ping-Anforderung konnte Host "%s" nicht finden. Überprüfen Sie den Namen, und versuchen Sie es erneut.', [IdICMPClient1.Host]));
  end;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  with AReplyStatus do
    if ReplyStatusType = rsTimeOut then
      Memo1.Lines.Add('Zeitüberschreitung der Anforderung.')
    else
      Memo1.Lines.Add(Format('Antwort von %s: Bytes=%d Zeit=%d TTL=%d',
        [FromIpAddress, BytesReceived, MsRoundTripTime, TimeToLive]));
end;