DELPHI PING АДРЕСА
Для проверки доступности сетевых устройств в программировании на Delphi используют команду PING. Она позволяет определить, отвечает ли указанный IP-адрес или доменное имя на запрос ICMP-пакета.
В Delphi для выполнения команды PING можно использовать класс TIdIcmpClient из библиотеки Indy. Для этого нужно подключить модули IdIcmpClient и IdGlobal.
var IdIcmpClient1: TIdIcmpClient;begin IdIcmpClient1 := TIdIcmpClient.Create(nil); try IdIcmpClient1.Host := 'google.com'; IdIcmpClient1.ReceiveTimeout := 5000; IdIcmpClient1.PacketSize := 32; IdIcmpClient1.Ping; if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then ShowMessage('Host is reachable') else ShowMessage('Host is not reachable'); finally IdIcmpClient1.Free; end;end;
В данном примере выполняется проверка доступности сайта google.com. После создания объекта TIdIcmpClient указывается адрес проверяемого хоста (в данном случае google.com), устанавливается время ожидания ответа и размер пакета. Далее выполняется команда PING, а затем происходит проверка статуса ответа. Если тип ответа rsEcho, то хост доступен.
Simple PING commands
Delphi #165 - Ping
How to ping IP address In command
PING Command - Troubleshooting Networks
Network Troubleshooting using the PING Command
Windows : Ping IP with source IP?
Basics of ipconfig, ping, tracert, nslookup, and netstat