16.47.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.0.1', 2000, S) then
ShowMessage('Хост ответил на запрос !');
end.
В примере использовались: ShowMessage