Home

Page 228
Page 228
background image

Сеть на низком уровне

 0;

//Ожидаем, пока произойдет хотя бы одно событие от любого из

 nil,

 nil, @tv);

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

//Запускаем массив, в котором будет проверяться, какие из сокетов в

//массиве FSocket прошли

 успешно, а какие нет

for j := 0 to index do

begin

//Проверяем, был ли закрыт соответствующий порт из-за ошибки,

//если да, то нет смысла его проверять

if busy[j] then continue;

if

 then

begin

//В переменную s записывается размер переменной Opt

opt:=l;

//Получаем состояние текущего j-го сокета,

//результат состояния будет в переменной opt

 s);

//Если opt равно О, то порт открыт, и к нему можно подключиться

if

 then

begin

//Пытаемся узнать символьное имя порта

tec :=

if tec=nil then

else

begin

end;

//Выводим сообщение об открытом порте

 порт

+

 (Port [ j ]) +

 открыт '} ;

end;

end;

//Закрыть j-й сокет, потому что он больше уже не нужен

end;


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

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