🚀 go-pugleaf

I have been trying to understand how to properly close my Server Socket.
Heres my environment.

I have a Server Socket running in stThreadBlocking and I create each
connecting client thread using the OnGetThread event of the socket.

Now I may have 50 clients connected through this Server Socket and all seems
to work properly. Each client has been setup to connect in a persistent
manner, that is if the socket connection drops the client will continue to
try and connect on a periodic basis.

Now my problem is this: If I try and disconnect the socket from the server
side I can't get the socket to close because the clients try and connect
causing the server socket to start another thread. So I put in a flag to
tell the server socket to not create the thread, but this does not help as
the server socket still creates a connection. So I tried to close the
ServerSocket itself and then close the active threads but when I do this the
ServerSocket reports there are no active connections.

Anyway I am totally confused on how to properly close the Server Socket and
really need someone to point me in the right direction. I have included the
code below on how I am doing trying to do this.

void __fastcall TForm1::ServerSocket2GetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
// this is my attempt to stop a new thread from being created if I have
requested a server side shutdown
// this flag is set through a button click

       if ( ShuttingDownNow )
       {
            return ;
       }

     SocketThread = new TMyServerThread( false, ClientSocket )
;

}

// this gets run when the button to close the sockets gets clicked


void __fastcall TForm1::CloseAllSockets( void )
{

       for( int i = 0; i < ServerSocket2->Socket->ActiveConnections ; i++ )
       {
                                                ;
            TServerClientWinSocket *ClientSocket =
static_cast<TServerClientWinSocket*>( ServerSocket2->Socket->Connections[
i ] )           ;

            TMyServerThread *Thread              =
static_cast<TMyServerThread*>( ServerSocket2->Socket->GetClientThread(
ClientSocket ) ) ;

            ServerSocket2->Socket->Connections[ i ]->Close()
;

       }

// this is here to stop the ServerSocket from accepting any more connections

       ServerSocket2->Close();

}

Now the thread does get closed but by the time I have tried to close all the
sockets more threads more have started.

I sure hope someone can point me in the right direction.

Thanks

Mike