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

Реклама
Новое
Реклама