Home

Page 167
Page 167
background image

160 Глава 4

Здесь первой строкой через компонент RichEdit выводится сообщение

о начале пинга. Вторая строка устанавливает размер пакета пинга

 как указано в Edit2. Последняя строка запускает поиск

пьютера через DNS

 Даже если вы введете IP-адрес, по-

иск в базе DNS ничего плохого не сделает.

Теперь выделите компонент

 и создайте для него обработчик события

 (когда закончен поиск в базе DNS). Здесь напишите сле-

дующее:

procedure

 Error: Word);

begin

//Если произошла ошибка, то...

if Error <> 0 then

begin

//Вывести сообщение об ошибки

 Lines.

 ('Хост не найден •'• + Editl.Text +

//Выход

//Если ошибок не было, то выводим в

 результат поиска

 '''

 Editl.Text + '"

 +

//Устанавливаем свойство Address компонента Ping равным

//адресу, найденному в базе DNS

 :=

//Запускаем Ping

end;

Чтобы легче было разобраться с его содержимым, я снабдил листинг ком-

ментариями. В этой процедуре ничего сложного нет, и комментариев будет

достаточно для понимания происходящего.

Едем дальше. Нам еще нужно выловить результат пинга. Для этого создайте

обработчик события

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

procedure

 TObject; Error: Inte-

ger) ;

begin

if Error  0 then

 могу выполнить операцию ping:

else


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

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