🚀 go-pugleaf

"Maurice Anderson" <mauriceanderson@hotmail.com> wrote in message
news:43bcd080$1@newsgroups.borland.com...

> However, if I do a ClientSocket1->Close() on the client, my
> server hangs.  When I check task manager, I can see that my
> server has pumped up CPU time way high.

Your thread code is failing to break out of its loop when a disconnect
happens.  The TServerClientWinSocket::Connected property can (and usually
does) remain true in a blocking server, so your loop keeps running long
after the disconnect occurs.  Also, the loop is running faster after the
disconnect because the TWinSocketStream::WaitForData() method is returning
immediately each time without any delay.

> Here is my code in my TServerClientThread thread's Execute function:

When a graceful disconnect occurs, WaitForData() will return true and then
reading from the TWinSocketStream will return 0.  That is the disconnect
notifiction that you need to check for in your code.  Then code you showed
is not performing any reading.

Try this instead:

    void __fastcall TMyServerThread::ClientExecute(void)
    {
        try
        {
            pStream = new TWinSocketStream(ClientSocket, 6000);
            try
            {
                while( (!Terminated) && (ClientSocket->Connected) )
                {
                    if( pStream->WaitForData(500) )
                    {
                        // read something ...
                        if( BytesRead <= 1 )
                        {
                            if( BytesRead == 0 )
                                // disconnected ...
                            else
                                // error ...

                            break;
                        }
                    }
                }
            }
            __finally
            {
                delete pStream;
            }
        }
        catch(const Exception &)
        {
            HandleException();
        }
    }

>   SocketThread->FreeOnTerminate = true;

Do not use FreeOnTerminate with TServerClientThread objects.  TServerSocket
needs to maintain ownership of the thread memory at all times.  And in fact,
will automatically reset FreeOnTerminate to false anyway.


Gambit