🚀 go-pugleaf

Maurice Anderson wrote:

> ..If I force a close on the server, then I get a Dr. Watson error.

How do you force a close ? Dr Watson error ?

The server can determine when a client disconnects. This is after WaitForData
returns true and a successive Read returns 0.

> Here is my code in my TServerClientThread thread's Execute function:
> 
> void __fastcall TMyServerThread::ClientExecute(void)
> 
> {
>     try
>     {
>       pStream = new TWinSocketStream(ClientSocket, 6000);
>     }
>     catch (const Exception &E)
>     {
>       HandleException();
>     }
> 
>     //BinaryTransfer1->ServerClientWinSocket = ClientSocket;
> 
>      while (!Terminated ||ClientSocket->Connected)
>      {
>         if (pStream->WaitForData(6000))
>         {
               int n_read = pStream->Read ( ... );

               if ( n_read == 0)
                  ClientSocket->Close();
>         }
> 
>       }
> }
> 
> This is my client's code:
> 
> void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
>       TServerClientWinSocket *ClientSocket,  TServerClientThread
> *&SocketThread)

That does not very much look like client code.

Hans.