🚀 go-pugleaf

Remy Lebeau (TeamB) wrote:
> "Boris Epel" <boep777@yahoo.com> wrote in message
> news:44250f70$1@newsgroups.borland.com...

...skipped... Thanks for advice

>>is it legal(clever in my case) to use server threads only for reading from
>>the socket and to perform writing in other thread (which will process
> requests)?
> 
> That depends on what those threads are going to be doing in the first place.
> Please provide more details.
> 
> 
> Gambit

The main job of server is to organize interaction of multiple clients 
with the device (one, local to server).
ServerExecute function receives messages (encapsulated into SDataBlock ) 
the DecodeCommand functions decide about action and interacts with 
device controlling thread. Interaction is fast, however the triggered 
action can be long and reported much later.
The independent device controlling thread inform about all events 
happends as long as they come.

class Server
{
   queue<SDataBlock *> OutQueue; // Data to be sent from server
   TIdTCPServer * ...         // Indy server
   Device * ...              // Device
   SServerWriteThread *          // write thread
...

   //Function to put messages to this queue
   void Server::OutQueueAdd(SDataBlock *)
}

//TCPServer thread to receive messages from client
void __fastcall SServer::ServerExecute(TIdPeerThread *_th)
{
   while(_th->Connection->Connected())
   {
      SDataBlock *block = new ... // allocation of memory for new data 
block
      _th->Connection->ReadBuffer(block->Header, 22);
      if(block->DecodeHeader(block->Header, 22))
       {
         _th->Connection->ReadBuffer(block->Buffer, block->Size);
         DecodeCommand(block);
       }
       else {/*recovery*/};
       delete block;
   }
}

// Function to convert messages to control events for device
// or to get some info from device
void SServer::DecodeCommand(SDataBlock *_bl)
{
   switch(_bl->ID)
    {
       ...
       //in this case we have something to send to client
       OutQueueAdd(_bl);
    }
}

// Some call from Device controlling thread
Server->OutQueueAdd(new SDataBlock(...))

//Server write thread (created by me)
void __fastcall SServerWriteThread::Execute(void)
{
   int SleepTime = 100;
   while(!Terminated)
    {
      SDataBlock *bl = Server->GetOutQueueFirst();
      if(bl)
       {
         ... cycle over open connection threads
          {
           (*th)->Connection->WriteBuffer(bl->Header, 22, false);
           (*th)->Connection->WriteBuffer(bl->Buffer, bl->Size, true);
          }
         delete bl;
         Server->OutQueueDiscardFirst();
       }
      ::Sleep(SleepTime);
    };
}