[ManowarVIP]

Здравствуйте!

Пишу многопоточный сервер на TServerSocket.
В принципе все реализовал, но при тестовых прогонах не пробовал более 3-6 подключений, а в момент генерального теста подключений было более 10 и вдруг выяснилось, что реально могут работать только 8 соединений.
Когда начал разбираться, оказалось, что начиная с 9 соединения новый поток создается, но данные от клиента не приходят и возникает таймаут на этой строке: if (not Terminated) and (not fSocketStream.WaitForData(TIMEOUT)) then

Подскажите пожалуйста, в чем может быть причина?

Вот основной код потока:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

procedure TServerThread.ClientExecute; var fRequest  : AnsiString;       p              : Integer; begin      try        fSocketStream:=TWinSocketStream.Create(ClientSocket,TIMEOUT);     try          while (not Terminated) and (ClientSocket.Connected) do         try           if (not Terminated) and (not fSocketStream.WaitForData(TIMEOUT)) then           begin              ClientOff(msg_Connection_Timeout);              break;           end;              if (not Terminated) then           begin                 fRequest:='';              if fSocketStream<>nil then begin                 SetLength(fRequest,ClientSocket.ReceiveLength());                 SetLength(fRequest,ClientSocket.ReceiveBuf(Pointer(fRequest)^,Length(fRequest)));              end               else begin                ClientOff(msg_Connection_Closed);                break;              end;                 p:=Pos(Chr($0D),fRequest);                 if (p>0) and (not Terminated) then begin                   //Обработка пакетов                 end               else begin                  ClientOff(msg_Connection_Closed);               end;           end;              Application.ProcessMessages;            except           on e:exception do           begin             ClientOff(msg_Connection_Closed);           end;         end;     finally       ClientOffmsg_Connection_Closed);     end;   except     on e:exception do     begin       ClientOff(msg_Connection_Closed);     end;   end;      inherited;    end;