Home

Page 227
Page 227
background image

 Глава 5

//Указываем порт, на который надо произвести попытку соединения

addr.

 htons(i);

//Попытка коннекта на очередной порт

//Даем ОС поработать и обработать накопившиеся события.
//Если этого не делать, то во время сканирования будет

//происходить эффект зависания

//Проверяем, были ли ошибки
if

 then

begin

//Если ошибка произошла, то закрываем этот порт

//Устанавливаем соответствующий элемент в массиве busy в true
//чтобы потом не проверять этот порт, потому что он все равно

//уже закрыт

end;

//Указываем в массиве port, на какой именно порт мы
//сейчас послали запрос

port[j]:=i;

//Увеличиваем счетчик i, в котором отслеживаем, какой
//порт сейчас сканируется чтобы на следующем
//этапе цикла for запустить сканирование следующего порта

end;

//Обнуляем переменную fset

//Заполняем сканируемый массив сокетов в переменную fset

for j := 0 to index do

begin

if

 <> true then

 fset);

end;

//Даем ОС поработать и обработать накопившиеся события

//Заполняем структуру, в которой указано время ожидания
//события от сокета

tv.tv sec

 1; //Мы будем ждать 1 секунду


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

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