Get ping IP result with Delphi

use Indy idicmpClient from Indy Clients page to ping an IP address or computer name:

  idICMPClient1.Host:= 'YourComputerName';
  idICMPClient1.Ping();
  // Then read ReplyStatus:
  Memo1.Lines.Add('Bytes received: ' + IntToStr(idPing.ReplyStatus.BytesReceived));

Motaz
 

thank for you fast responses, I'll try it.

what 'YourComputerName' as IP? because my computer connected in LAN and when I check in "obtain a IP address automatically", what I fill in 'YourComputerName'?

if you want to pint yourself just use loopback ip 127.0.0.1

but what is the sense of pinging yourself?


BTW is there a fast way to display the delay time of the reply?

How to convert this command to Delphi
ping 204.159.0.20 -t

How to convert each status from ping to String like command ping?

How to get status from ping result(e.g Request time out, etc)?

go to www.torry.net and look for TICMP component, its great "Ping" useing just core icmp protocol, with sample and source code.
ziolko.

Basically i accepted answer from motaz. bUT, Thanks for all comments for my question.
For get status from ping result i find in :
http://www.tutorials.delphi-source.de/indy/file013.shtml

this error  undeclared identifier idping  was occurred  when I used this code:

  idICMPClient1.Host:= 'YourComputerName';
  idICMPClient1.Ping();
  // Then read ReplyStatus:
  Memo1.Lines.Add('Bytes received: ' +  IntToStr(idPing.ReplyStatus.BytesReceived));
So, could anybody help me to know in which type I can declare it?
Regards

Change this line:

Memo1.Lines.Add('Bytes received: ' +   IntToStr(idICMPClient1.ReplyStatus.BytesReceived));