16.45.4. function Ping

function  Ping(AHostIP : string; ATimeOut : integer; var AReply : string) : boolean;
 
Осуществляет пинг хоста с IP адресом, заданным в AHostIP. Таймаут задается параметром ATimeOut в миллисекундах.
Функция возвращает true в случае, если хост отвечает и false, если хост не отвечает или возникли ошибки сети.
 
Независимо от возвращаемого значения функция заполняет переменную AReply дополнительными данными, разделяя значения запятой:
- код статуса. В случае успешного ответа код равен нулю, в противном случае это код ошибки WinSock, позволяющий уточнить причину ошибки
- задержка между запросом и ответом в миллисекундах
- IP хоста, который ответил на PING (должен совпадать с AHostIP)
 
Совместимость: AVZ 4.45 и выше
 
Пример:
 
var
  s : string;
begin
  if Ping('192.168.01', 2000, S) then
    ShowMessage('Хост ответил на запрос !');
end.
 
В примере использовались: ShowMessage