2015-12-28 14:25:15 +03:00
|
|
|
// Использование Ping
|
2015-05-14 22:35:07 +03:00
|
|
|
uses System.Net.NetworkInformation;
|
|
|
|
|
|
|
|
|
|
const address = 'www.yandex.ru';
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
var p := new Ping();
|
|
|
|
|
try
|
|
|
|
|
var res := p.Send(address);
|
2015-12-28 14:25:15 +03:00
|
|
|
writeln('IP адрес сервера: ',res.Address);
|
|
|
|
|
writeln('Время отклика: ',res.RoundtripTime,' мс');
|
2015-05-14 22:35:07 +03:00
|
|
|
except
|
|
|
|
|
on e: Exception do
|
|
|
|
|
write(e.Message);
|
|
|
|
|
end;
|
|
|
|
|
end.
|
