🚀 go-pugleaf

Now it works. I suspect, the error was a stupid misunderstanding.

void __ fastcall TForm1:: ServerSocketCliedRead( TObject *TSender,
TCustomWinSocket *Socket)

{
AnsiString buf;
...
buf = Socket->ReceiveText();

Socket->SendText(" blaa blaa")
}

instead of

void __ fastcall TForm1:: ServerSocketCliedRead( TObject *TSender,
TCustomWinSocket *Socket)

{
AnsiString buf;
...

if(ServerSocket->Socket->Connections[X]->SocketHandle ==
User[n].SocketHandle()
        buf = Socket->ReceiveText();

ServerSocket->Socket->Connections[X]->SendText(" blaa blaa")
}

Outside event handler ServerSocket->Socket works, but inside you have to use
Socket passed in a function call

Arska



"Arska" <joku@eiolemassa.fi> wrote in message
news:444f28ce@newsgroups.borland.com...
> Hello
>
> Is it possible to use two TServerSocket component in a single application?
I
> am writing a simple demonstration system, where several clients reports
> their status to the server (first client-server connection). The second
> client-server connection is an application where a client sends a request
to
> the server, which sends some data back. My server application is a single
> executable. I have used two TServerSocket components. The first works ok,
> but the second refuses to connect. It gives an event "On connecting", but
> don't establish connection. Suggestions how to solve this. I have tested
the
> system in a single computer and I use ports 8001 and 8002.
>
> Ari
>
>