🚀 go-pugleaf

My application is a message server.So that, application connects to many clients.
TClientSocket is used for this operation in the server. In my client application has
a server socket. Socket no 50101. When message server wants to connect a closed client,
retry three times to connect.    

void __fastcall TTCPSendDataModule::OnOperationalTimer(TObject */*Sender*/)
{
    DisableTimer(OperationalTimer);

    try
    {
     if( !ackWaiting && !connectionWaiting && !SendSocket->Active )// no connection request applied and no data feedback waiting
     {
   SendPacketInOrder();
     }
 }catch(const Exception &e){
 }

   EnableTimer(OperationalTimer);
}

//-----------------------------------------------
void __fastcall TTCPSendDataModule::SendPacketInOrder()
{
        CloseSendSocket();

       SendSocket->Port = 0;
        SendSocket->Host = "";
        SendSocket->Address = "";
 
        SendSocket->Address = ip_address;
        
        try{
                  SendSocket->Open();
        }catch(const Exception &e){
         CloseSendSocket();
 }
}

//---------------------------------------------------------------------------
void TTCPSendDataModule::CloseSendSocket()
{
   try{
      SendSocket->Close();
      SendSocket->Port = 0;
      SendSocket->Active = false;
      WriteToLog("TCP G�nderme Mod�l�: Socket kapat�ld�.");
 }catch(const Exception &e)
 {
    WriteToLog("TCP Send Module Error4.Hata="+e.Message);
 }
}
//---------------------------------------------------------------------------
void __fastcall TTCPSendDataModule::SendSocketError(TObject */*Sender*/,
      TCustomWinSocket */*Socket*/, TErrorEvent /*ErrorEvent*/, int &ErrorCode)
{
 try
    {
     ErrorCode = 0;
    CloseSendSocket();
 }catch(const Exception &e){
 }
}
//---------------------------------------------------------------------------
// Socket Connect event
//---------------------------------------------------------------------------
void __fastcall TTCPSendDataModule::SendSocketConnect(TObject */*Sender*/,
      TCustomWinSocket */*Socket*/)
{
 try
    {
     SendFirstPacket();
 }catch(const Exception &e){
 }
}


After sending packet, I wait hig-level ack packet from client application. After receiving ack packet,
closesendsocket function is called.And then, another client transmission is started