장성호 님이 쓰신 글 :
: 보통 Socket이 Close될때 Client , Server간에 서로 close하겠다고
: 정보를 주고 받고  close하는게 정상적인 close인데...
:
: Client에서 그런 정보를 보내지 못하고 끊어지면  위와같은 에러가 뜨는것 같습니다.
:
:    예를 들어  - 네트워크가 갑자기 끊어지거나
:                    - Client프로그램이 갑자기 죽거나 등등의 현상이 발생하면
:    
:
: 제대로된 해결은 아닌것 같은데..
: 그냥 Read부분에 try ~ catch 로 잡으시면 될듯 합니다.
:
:              try
:                 {
:                     int rslt=pStream->Read(Buffer, 100);
:                     if( rslt== 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;
:                 }
:                 catch(...)
:                 {
:                     // 입력된 값이 없으면 종료
:                     HIndex=fmServer->cbSocketHandle->Items->IndexOf(IntToStr(ClientSocket->SocketHandle));
:                     fmServer->cbSocketHandle->Items->Delete(HIndex);
:                     if(fmServer->cbSocketHandle->Items->Count==0)
:                     {
:                         fmServer->cbSocketHandle->Text="연결된 소켓 없음";
:                     }
:
:                     ClientSocket->Close();
:                 }
:
: //------------------------------------------
: 구글신에 의지하여 TServerClientThread   예제 수십개를 보았지만
: 대부분 아래와 같은 처리하더군요
: 예외는 HandleException();  으로...
:
:
:   void   __fastcall   TMyServerThread::ClientExecute()  
:   {  
:       while   (!Terminated   &&   ClientSocket->Connected)   //   make   sure   connection   is   active  
:       {  
:           try  
:           {  
:               TWinSocketStream   *pStream   =   new   TWinSocketStream(ClientSocket,   60000);  
:               try  
:               {  
:                   char   buffer[50];  
:                   memset(buffer,   0,   sizeof(buffer));  
:                   if   (pStream->WaitForData(6000))   //   give   the   client   60   seconds   to   start   writing  
:                   {  
:    
:                       if   (pStream->Read(buffer,   sizeof(buffer))   ==   0)  
:                           ClientSocket->Close();   //   if   can't   read   in   60   seconds,   close   the   connection  
:                                     //   now   process   the   request  
:                   }  
:                   else  
:                       ClientSocket->Close();  
:               }  
:               __finally  
:               {  
:                   delete   pStream;  
:               }  
:           }  
:           catch   (...)  
:           {  
:             HandleException();  
:           }  
:       }  
:   }  
:
: 참고 하세요
: http://dn.codegear.com/article/26276
: http://topic.csdn.net/t/20060704/23/4860640.html
: http://duketown.com/marcel/server.shtml
: http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?mode=read&num=754&page=49&db=dmdlec3&backdepth=3
: http://topic.csdn.net/t/20020304/19/554711.html
: http://delphi.newswhat.com/geoxml/forumhistorythread?groupname=borland.public.delphi.internet.winsock&messageid=40863a71@newsgroups.borland.com
: http://www.ipc.hokusei.ac.jp/~z00104/delphi/thread.html
: http://book.77169.org/ask1/ask100852.htm
: http://forum.sources.ru/index.php?showtopic=159584
:
:
:
: 그럼..
:   
:    
:   
:
: 짱구오빠 님이 쓰신 글 :
: : 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("사용자의 서버에 문제가 있습니다.");
: : }