Многпотоковый Клиент Сервер

[vovunisaev]

народ помогите кто как может
вот часть кода

<<- 1 ->> при закрытие Сокета на клиенте выкидывает что не может считать данные так как поток уже закрыт

<<- 2 ->> Но если убрать строку отправки клиенту ответа то все работает нормально.

И на последок клиент ни при каких обстоятельствах не получает ответ ну или его прочитать из потока не может Метод чтения клиента ниже

while (!Terminated && ClientSocket->Connected)
   {
      try
      {
        TWinSocketStream *pStream = new TWinSocketStream(ClientSocket, CLIENTWAITTIME);
if (pStream->WaitForData(60000))
            {
<<- 1 ->>int a = pStream->Read(buffer, sizeof(buffer));
              if (a == 0){
                   ClientSocket->Close();
                }else {
<<- 2 ->>    a = pStream->Write(buffer, sizeof(buffer));
                  Form1->Memo1->Lines->Add(AnsiString("(Client) ") +AnsiString(buffer) );
                }
               //--------------------------------//
             } else {  ClientSocket->Close();}}
         __finally
         {
            delete pStream;
         }      }     catch (...)      {  HandleException();}}

В событии ОнРиАД

AnsiString s="";
if (ClientSocket1->Active == true)
      if (Socket->Connected == true){
         Socket->ReceiveBuf(buffer, sizeof(buffer));
         s=buffer;
         Memo1->Lines->Add( AnsiString("(Server) ") +s );
         Memo1->Lines->Add("Active == true Connected == true");
      }

[Mega]

Пиши с помощью винсок

[vovunisaev]

Сообщение от Mega

Пиши с помощью винсок

Ты бы еще свою компоненту предложил написать

[Mega]

а что???эти все компоненты фигня.пиши сам,сложнее ,но понятнее

[vovunisaev]

Ты не понял Мне здесь ошибку найти нужно.

[vovunisaev]

Нашел у меня В свойствах ClientSocket стояло ctBlocking