🚀 go-pugleaf

"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