🚀 go-pugleaf

thanks, it works well and seems a very good solution.


"Remy Lebeau (TeamB)" <no.spam@no.spam.com> ha scritto nel messaggio
news:43909cb3$1@newsgroups.borland.com...
>
> "enzo" <enzo.arlati@aesys.it> wrote in message
> news:438ffe59@newsgroups.borland.com...
>
> > I create and open the socket in blocking mode from inside a thread.
>
> You need another thread in order to abort a blocking Open().
>
> > I need to make a fast check before call the open
>
> There is no way to do that.  The only way to know if a socket is listening
> on another machine is to connect to it.
>
> > or mybe shorten the timeout if I call open on a pc not ready to listen.
>
> Like I told you before, there is no connect timeout available.  You have
to
> implement your own.
>
> > what do you mean for a separate thread to disconnect the socket
>
> I mean exactly what I say.  The only way to abort a blocking Open() is to
> disconnect the socket from the context of a different thread than the one
> that is calling Open().  For example (untested):
>
>     class TConnectThread : public TThread
>     {
>     private:
>         TClientSocket *FSocket;
>     protected:
>         virtual void __fastcall Execute();
>     public:
>         __fastcall TConnectThread(TClientSocket *ASocket);
>     };
>
>     __fastcall TConnectThread::TConnectThread(TClientSocket *ASocket)
>         : TThread(true)
>     {
>         FSocket = ASocket;
>         Resume();
>     }
>
>     void __fastcall TConnectThread::Execute()
>     {
>         try
>         {
>             FSocket->Open();
>         }
>         catch(const Exception &) {}
>     }
>
>
>     __fastcall TSocketThread::TSocketThread()
>         : TThread(true)
>     {
>         clientSck = new TClientSocket( NULL );
>         clientSck->ClientType = ctBlocking;
>         Resume();
>     }
>
>     __fastcall TSocketThread::~TSocketThread()
>     {
>         delete clientSck;
>     }
>
>     void __fastcall TSocketThread::Execute()
>     {
>         //...
>         clientSck->Address = ipTarge;
>         clientSck->Port = portTarget;
>
>         TConnectThread *CT = new TConnectThread(clientSck);
>         if( WaitForSingleObject((HANDLE)CT->Handle, 1000) !=
WAIT_OBJECT_0 )
>         {
>             clientSck->Close();
>             CT->WaitFor();
>         }
>         delete CT;
>
>         if( !clientSck->Active ) return;
>
>         // ...
>     }
>
>
> Gambit
>
>