Home

Page 225
Page 225
background image

218 Глава 5

 область, в которой будет отображаться результат

 компонент

с именем

В раздел uses исходного кода формы нужно добавить модуль winsock2, что-

бы мы могли пользоваться новыми функциями второй версии WinSock.

В обработчике нажатия кнопки Начать сканирование нужно написать код из

листинга 5.1.

юртов

procedure

 TObject);

var

i,j,s, opt, index: Integer;

FSocket: array [0..41] of TSOCKET; //Массив

//Массив, в котором будет храниться информация о каждом сканируемом

кете

busy
port

addr

fset

array

 of boolean;

array [0..41] of integer; //Массив сканируемых портов

THandle; //Объект для обработки сетевых событий

TFDset;

tec

 :

begin

//Устанавливаем максимальное и минимальное значение полоски
//состояния сканирования. Минимум — начальный порт сканирования,
//максимум — конечный порт

 ;

//Инициализируем WinSock

 GInitData);

//Записываем в переменную i значение начального порта

//Заполняем основные поля структуры addr, которая будет использоваться
//при вызове функции connect

 AF_INET;

//Выводим сообщение о том, что начат поиск введенного хоста


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

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