Home

Page 229
Page 229
background image

 Глава 5

//Увеличиваем позицию в ProgressBarl

end;

//Закрываем объект событий

//Выводим сообщение о конце сканирования

 t

DisplayMemo. Lines. Add ('Сканирование закончено. . .

 ,-

end;

На первый взгляд код достаточно большой, но реально тут больше места

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

всем происходящим, а я не буду вас сильно путать. Я хочу добавить к этим

комментариям только пару замечаний.

ДЛЯ

 НУЖНО

 структуру addr ТИПа

С ней мы познакомимся ближе чуть позже, а сейчас я только опишу основ-

ные ее свойства, которые мы используем:

 — это поле указывает на тип соединения, мы указываем

 addr. sin_addr. s_addr —

 адреса;

 — адрес сервера, к которому нужно подключиться.

Самое сложное тут — это получение адреса, к которому нужно подключить-

ся, потому что он должен быть в специальном формате, а пользователь мо-

жет ввести даже не IP-адрес, а простое символьное имя машины. Для полу-
чения правильного адреса я написал функцию LookupName, которая

возвращает нужный адрес в правильном формате (листинг 5.2).

function

 TInAddr;

 TInAddr;

begin

if Pos (  ', AddressEdit.Text)>0 then

 addr

 inet


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

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