16 lines
334 B
ObjectPascal
16 lines
334 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ping
|
|||
|
|
uses System.Net.NetworkInformation;
|
|||
|
|
|
|||
|
|
const address = 'www.yandex.ru';
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var p := new Ping();
|
|||
|
|
try
|
|||
|
|
var res := p.Send(address);
|
|||
|
|
writeln('IP <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ',res.Address);
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ',res.RoundtripTime,' <20><>');
|
|||
|
|
except
|
|||
|
|
on e: Exception do
|
|||
|
|
write(e.Message);
|
|||
|
|
end;
|
|||
|
|
end.
|