Ping

[Matze]

OK, nicht so wortkarg.

Delphi-Quellcode:

procedure TfrmMain.btnPingClick(Sender: TObject); 
begin 
  IdICMPClient.ReceiveTimeout := 5000;  // Timeout 5000 ms 
  IdICMPClient.Host := edtAddress.Text; 
  IdICMPClient.Ping(); 
end; 

procedure TfrmMain.IdIcmpClientReply(ASender: TComponent; 
  const AReplyStatus: TReplyStatus); 
begin 
  ShowMessage('Received ' + IntToStr(AReplyStatus.BytesReceived) + ' ' + 
              'Bytes from ' + AReplyStatus.FromIpAddress + ' ' + 
              'after ' + IntToStr(AReplyStatus.MsRoundTripTime) + ' ms.'); 
end;

Achja, beides durch die DP-Suche gefunden!


Nachtrag: Benötigt unter Windows NT/2000/XP Adminrechte.

Nachtrag2: Super Lösung von Christian Seehase.