16 lines
334 B
ObjectPascal
16 lines
334 B
ObjectPascal
// Èñïîëüçîâàíèå Ping
|
|
uses System.Net.NetworkInformation;
|
|
|
|
const address = 'www.yandex.ru';
|
|
|
|
begin
|
|
var p := new Ping();
|
|
try
|
|
var res := p.Send(address);
|
|
writeln('IP àäðåñ ñåðâåðà: ',res.Address);
|
|
writeln('Âðåìÿ îòêëèêà: ',res.RoundtripTime,' ìñ');
|
|
except
|
|
on e: Exception do
|
|
write(e.Message);
|
|
end;
|
|
end. |