Vale> Проверка опять же на пинг к loopback - даже если сеть не работает, все будет "ок"
Не всегда — если стек порушен (или не установлен), то и он может не работать.
Vale> А часом пинг не возвращает статус при завершении?
возвращает. Простой bat файл тому подтверждение (назови его xping.bat):
code text
@echo off
ping.exe %1
goto answer%errorlevel%
:answer0
echo got return code 0
goto end
:answer1
echo got return code 1
goto end
:answer2
echo got return code 2
goto end
:end
Вот результаты:
code text
E:\t>xping 123.123.123.123
Pinging 123.123.123.123 with 32 bytes of data:
Request timed out.
Request timed out.
Request timed out.
Request timed out.
Ping statistics for 123.123.123.123:
Packets: Sent = 4, Received = 0, Lost = 4 (100% loss),
got return code 1
E:\t>xping 127.0.0.1
Pinging 127.0.0.1 with 32 bytes of data:
Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
Reply from 127.0.0.1: bytes=32 time<1ms TTL=128
Ping statistics for 127.0.0.1:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 0ms, Maximum = 0ms, Average = 0ms
got return code 0
E:\t>
Т.е. 0 — успешно, 1 — с ошибкой.
Vale> Тихон -Vale> сделай Vale> the_command_line:=' /c ping 127.0.0.1 >pingstat.$$$';Vale> и анализируй результат в файле pingstat.$$$.
Помрёт он анализируя этот текст.
Тихон, какой Паскаль тебе доступен?