🚀 go-pugleaf

"Michele Santucci" <michele.santucci.nospam@nospam.celinavio.it> wrote in
message news:40eeb440$1@newsgroups.borland.com...

> 1) I would like to know how to know/set the address
> on wich the TServerSocket listen since
> TServerSocket->Socket->LocalAddress is always
> "0.0.0.0" and is read only.

The easiest way is to derive a new class from TServerSocket and promote the
existing protected Address property to public, ie:

    class TMyServerSocket : public TServerSocket
    {
    public:
        __fastcall TMyServerSocket(TComponent Owner) : TServerSocket(Owner)
{}
        __property Address;
    };

TServerSocket already calls bind() using the Address, but since the Address
is not exposed, it is always empty.  Why Borland did not expose it
originally, I do not know.

> 2) I would like also to know how to track the IP address
> of a connected client.

TCustomWinSocket has a RemoteAddress property.  All of the event handlers of
TServerSocket have a TCustomWinSocket parameter specifying which client is
triggering each event.

> 3) Last but not least ... is it possible to stop listening after the
> first connection?

No.

> I would like to know how to stop listening WITHOUT closing
> the ongoing connections.

TServerSocket does not support that.


Gambit