Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Вниз

Подвисание формы во время выполнения цикла...(#2) RE2ALL   Найти похожие ветки 

← →
Vladimir K.   (2002-03-10 03:30) [5]

Набережных С.:


for i_:=1 to _i do
begin
yield;
_A.sin_port:=htons(ms[i_]);
sb.SimpleText:= "inttostr(ms[i_]);
tri.Hint:= inttostr(ms[i_]);
if connect(_S,_A,sizeof(_A))=0 then
begin
m.lines.add("["+timetostr(time)+"] Port "+inttostr(ms[i_])+" opened.");
_S:=socket(AF_INET,SOCK_STREAM,0);
end;
application.processmessages;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c