Home

Page 155
Page 155
background image

148

Глава 4

порта. И перенесите еще компонент

 Желательно растянуть его на

всю оставшуюся свободную часть формы. Здесь мы будет отображать со-

стояние сканирования. В итоге у вас должно получиться нечто похожее на
рис. 4.7.

 Сканер портов

 j

Начальный порт

До ]2

 4.7. Окончательная форма будущего сканера

Теперь с оформлением покончено, пора переходить к программированию.

В принципе, код достаточно легкий и помещается всего-то в 8 строчек. Так

что скоро вы увидите свой сканер в действии.

Для начала создадим событие onclick кнопки Сканировать. В этом обработ-

чике напишите следующее (листинг

 ••

procedure

 TObject);

var

i:Integer;

begin

//Запрашиваем адрес компьютера.

if not

 'Введи IP-адрес', ipstr) then exit;

//Запускаю цикл

for

 to

 do

begin

//Устанавливаем порт

//Пытаемся его открыть


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

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