🚀 go-pugleaf

> How much time I must wait for when I call
> TClienteSocket->Open() set the Active property
> to true?

You are using ClienteSocket->Open(), not
TClienteSocket->Open(), right?

Well, first you should be aware what client mode you
are using: ctBlocking or ctNonBlocking.

If you are using ctBlocking, the program stops at:

   ClienteSocket->Open()

waiting to connect or error, whatever comes first. I haven't
found any good way to set up my timer for ctBlocking mode
to abandon connecting at the time I want.

Anyway, I suggest you to use ctNonBlocking mode.

> In run time I call the Open method of my TClientSocket for
> open the connection, and wait around 3 seconds to be sure
> that the conection was stablished.

That is not a good way 'to be sure' that the connection will 'be'
establiched. Waiting 3 seconds guarntees nothing.

Try something like this

         try
         {
            ClientSocket->Active = false;
            ClientSocket->Address = YOUR_ADDRESS;
            ClientSocket->Port = YOUR_PORT;
            ClientSocket->Active = true;

            int ms_start = GetTickCount();
            // WAITS FOR 3 SECONDS AS YOU SAID
            while ( GetTickCount() - ms_start < 3000 )
            {
               Forms::Application->ProcessMessages();
               if ( ClientSocket->Active )
                  break;
            }

            if ( !ClientSocket->Active )
            {
               // Ensure that socket will be closed event if activation 
comes late...
               ClientSocket->Active = false;
            }
            else
            {
               // do sending with ClientSocket
            }
         }
         catch ( const Exception &e )
         {
            // handle error
         }




Best regards,
Vladimir Stefanovic