WinSock

[ImmortalAlexSan]

Модернизирую чат... Вот решил через Винсок замутить, но только вот прога работает как черепаха, запускал её поэтапно на F7. В кратце о проге, перебирает айпи от 10.20.1.1 до 10.40.255.255 это всё в цикле FOR

ProgressBar1.Max:=255;
For t_2:=m1-235 to m2-215 do
For t_3:=m1+1 to m2 do
For t_4:=m1+1 to m2 do
begin
SockAddr.sin_family:=AF_INET;
SockAddr.sin_addr.S_addr:=inet_addr(Pchar(mask+'.'+inttostr(t_2)+'.'+inttostr(t_3)+'.'+inttostr(t_4)));
Sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
SockAddr.sin_port:=port;
ProgressBar1.Position:=ProgressBar1.Position+1;
If connect(Sock,SockAddr,sizeof(SockAddr))=0 then
Memo1.Lines.Add('открыт')
else
Memo1.Lines.Add('закрыт');
end;
WSACleanup;

и вот на строчке If connect(Sock,SockAddr,sizeof(SockAd dr))=0 then начинаются черепашьи бега... почему?

[Виталий Серов]

Сделай n потоков, раздели ip по этим потокам и программа будет работать в n раз быстрее...