Project SocketTread.exe raised exception class ESocketErrro with message 'Read error
64, 지정된 네트워크 이름을 더 이상 사용할 수 없습니다.'. Process stopped. Use Step or Run
to Continue.

이런 메시지가 뜹니다.

void __fastcall TServerSocketThread::ClientExecute(void)
함수에서
if(pStream->WaitForData(300000))
에서 기다리다가 소켓으로 수신되면
if(pStream->Read(Buffer, 100) == 0)를 처리한 후
정상적으로 처리된 후
다시
if(pStream->WaitForData(300000)) 부분에서
수신을 기다려야 하는데
if(pStream->Read(Buffer, 100) == 0)으로 넘아간 후
pStream->Read 함수 처리시
위와같은 에러메시지가 나옵니다.

버퍼의 내용이 클리어가 않된건지...

아래 소스는 자료실에 있는 소켓쓰레드를 옮겨서 코딩한 겁니다.
무슨 에러인지 모르겠네요.

그리고 소켓서버의 멀티 쓰레드는 아래와 같이 코딩하면 되는건가요?

도와주세요.



소스 내용입니다.

__fastcall TServerSocketThread::TServerSocketThread(bool CreateSuspended, TServerClientWinSocket * ASocket)
    : TServerClientThread(CreateSuspended, ASocket)
{
        FreeOnTerminate=true;
}

void __fastcall TServerSocketThread::ClientExecute(void)
{
    int HIndex;
    TWinSocketStream *pStream;                             // 소켓을 스트림으로 받음
    char Buffer[100];

    memset(Buffer, 0x00, sizeof(Buffer));

    while (!Terminated && ClientSocket->Connected)
    {
        pStream = new TWinSocketStream(ClientSocket, 60000);
        try
        {
            memset(Buffer, 0, sizeof(Buffer));
            if(pStream->WaitForData(300000))
            {
                // 5분간 입력이 없으면 종료
                if(pStream->Read(Buffer, 100) == 0)
                {
                    // 입력된 값이 없으면 종료
                    HIndex=fmServer->cbSocketHandle->Items->IndexOf(IntToStr(ClientSocket->SocketHandle));
                    fmServer->cbSocketHandle->Items->Delete(HIndex);
                    if(fmServer->cbSocketHandle->Items->Count==0)
                    {
                        fmServer->cbSocketHandle->Text="연결된 소켓 없음";
                    }

                    ClientSocket->Close();
                }

                fmServer->mbChat->Lines->Add(String(Buffer));
                fmServer->BroadCastOut(String(Buffer));
                fmServer->edtActiveThread->Text=fmServer->ServerSocket1->Socket->ActiveThreads;
            }
            else
            {
                HIndex=fmServer->cbSocketHandle->Items->IndexOf(IntToStr(ClientSocket->SocketHandle));
                fmServer->cbSocketHandle->Items->Delete(HIndex);
                if(fmServer->cbSocketHandle->Items->Count==0) fmServer->cbSocketHandle->Text="연결된 소켓 없음";
                ClientSocket->Close();
            }
        }
        __finally
        {
            delete pStream;
        }
    }

    //종료시 cbSocketHandle에서 ClientSocketHandle 삭제
    HIndex=fmServer->cbSocketHandle->Items->IndexOf(IntToStr(ClientSocket->SocketHandle));
    fmServer->cbSocketHandle->Items->Delete(HIndex);
    if(fmServer->cbSocketHandle->Items->Count==0)
    {
        fmServer->cbSocketHandle->Text="연결된 소켓 없음";
    }
}




//---------------------------------------------------------------------------

//      쓰레드 외부에서 ClientSocketHandle값으로 CustomWinSocket을 생성하여 접속한 각 클라이언트로
//      데이타를 날려준다.  - BroadCast
void __fastcall TfmServer::BroadCastOut(String SendString)
{
    for(int i=0; i<cbSocketHandle->Items->Count;i++)
    {
        TCustomWinSocket *CustomWinSocket = new TCustomWinSocket(StrToInt(cbSocketHandle->Items->Strings[i]));
        CustomWinSocket->SendText(SendString);
        //      delete CustomWinSocket;
    }
}


//---------------------------------------------------------------------------

void __fastcall TfmServer::FormCreate(TObject *Sender)
{
    ServerSocket1->Port=2000;
    ServerSocket1->Open();
    Sleep(100);
    Application->ProcessMessages();
    cntNum=0;
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    mbStat->Lines->Add("사용자가 접속을 종료했습니다.");
    cntNum--;
    edtTotalNum->Text=cntNum;
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::ServerSocket1Accept(TObject *Sender,
      TCustomWinSocket *Socket)
{
    mbStat->Lines->Add("사용자가 접속했습니다.");
    cntNum++;
    edtTotalNum->Text=cntNum;
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::ServerSocket1GetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
    // TServerClientThread 를 생성
    SocketThread = new TServerSocketThread(false, ClientSocket);
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::ServerSocket1GetSocket(TObject *Sender,
      int Socket, TServerClientWinSocket *&ClientSocket)
{
    // SocketHandle을 저장
    cbSocketHandle->Items->Add(IntToStr(Socket));
    if(cbSocketHandle->Items->Count==1)
    {
        cbSocketHandle->Text=IntToStr(Socket);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::FormClose(TObject *Sender, TCloseAction &Action)
{
    //Server Socket Close
    ServerSocket1->Close();

    //Memory Free
    Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::ServerSocket1ThreadEnd(TObject *Sender,
      TServerClientThread *Thread)
{
    edtActiveThread->Text=fmServer->ServerSocket1->Socket->ActiveThreads;
   
}
//---------------------------------------------------------------------------
void __fastcall TfmServer::ServerSocket1ClientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
    mbStat->Lines->Add("사용자의 서버에 문제가 있습니다.");
}