🚀 go-pugleaf

Hi,

I made a simple server (Service App + TIdTCPServer),
and I wanted to implement changing some server params
on fly. Unfortunately, that doesn't work... and I cannot
realize why:

(Indy9)

void __fastcall TTicketService::ServiceExecute(TService *Sender)
{
   // ...
   while ( !Terminated )
   {
      // do not even try to change something if...
      // ... a TCP task is in progress (ie, a connection is active)...
      if ( !TaskInProgress )
      {
         // if service app is notifed (DoCustomControl)...
         // ...that it should update config ...
         if ( ReloadRequest )
         {
            // back to default state
            ReloadRequest = false;

            // LOG just for the purpose of this test: written OLD value
            GoSendMessageToLog( CONFIG_PORT );

            // This reads the INI file and sets CONFIG_PORT to new value
            ReloadIniToFastConfig();

            // LOG just for the purpose of this test: written (really) NEW 
value
            GoSendMessageToLog( CONFIG_PORT );

            // PROBLEM:
            // After next three commands the server continued to...
            // ... *function* but with *old* value!!! My clients...
            // still could connect by the *old* Port value, and not the new 
one!
            // WHY?

            IdTCPServer->Active = false;
            IdTCPServer->DefaultPort = StrToInt( CONFIG_PORT );
            IdTCPServer->Active = true;

            // Message to LOG
            GoSendMessageToLog( "Configuration reloaded." );
         }
      }

      Sleep ( 500 );

      ServiceThread->ProcessRequests( false );
   }
}


-- 
Best regards,
Vladimir Stefanovic