Home

Page 168
Page 168
background image

Простые приемы работы с сетью

161

 Lines.

 ' +

 +•

 байт от

 за ' +

'

end;

Здесь выводится результат пинга. Если Error равно о, то показывается со-

общение об ошибке. Если нет, то показывается время, за которое прошел

И напоследок проведем косметическую операцию. Создайте обработчик со-

бытия

 для компонента

 В нем напишите следующее:

procedure

 TObject);

begin

 +

 +

' байтов на ' +

end;

Это чисто косметическая поправка, которая вводит состояние пинга. Собы-

тие OnEchoRequest происходит тогда, когда пакет отправляется на удален-

ную машину. Это событие вылавливается и выводится сообщение о том, что

сейчас отправляются данные в определенном размере на машину с

ным адресом. Так информация будет лучше восприниматься, и с ней легче

будет работать.

И м я

 . |

Размер

Ping

Хост

 байтов на

Получено 5G байт от 194.190.35.1

 0

 4.20. Результат работы утилиты Ping

Теперь в вашем арсенале появилась еще одна утилита собственного изготов-

ления, которая обязательно должна присутствовать у любого компьютерщи-

ка, хоть как-то связанного с сетью.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.