/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/NETLibraries/System.Net/Ping.pas
16 строк
373 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Использование 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.