🚀 go-pugleaf

Hi,

I wanted to send instant messages from one PC (TClientSocket) to
some other PCs (TServerSocket) in LAN which are in the list:

   Rcp = new TLanRecipients();
   Rcp->Add ( "1.1.1.1", "Message 1" );
   Rcp->Add ( "1.1.1.2", "Message 2" );
   Rcp->Add ( "1.1.1.3", "Message 3" );
   // ...
   

Port for both sides is nagotiated before (say 1200), and ClientType
is ctBlocking. ServerType is stNonBlocking.

   void TLanService::SendLanMessages()
   {
      for ( int i=0; i<Rcp->Count(); i++ )
      {
         ClientSocket->Active = false;
         ClientSocket->Address = Rcp->GetIP( i );
         ClientSocket->Active = true;

         if ( ClientSocket->Active == true )
            ClientSocket->Socket->SendText( Rcp->GetMsg( i ) );
      }
   }


This code works fine *only* when ALL three destination PCs in LAN
are active and waiting for message. But when, for example, the
first in the list is not active (the service is stopped/paused/
uninstalled), the loop waits - and other recipients though cannot
be informed.

What should I change in the concept of this code, to ignore the
non-listening PCs?


Best regards,
Vladimir Stefanovic