🚀 go-pugleaf

Hi Remy,

I did what you said and received the following error "exception class
EListError with message 'List index out of bounds (0)' "

This is the OnAccept code that I used...

void __fastcall TMainForm::ChanServerSocketAccept(TObject *Sender,
      TCustomWinSocket *Socket)
   {
   if (MainForm->Connections++)
      ChanServerSocket->Close();
   }

I then tried changing the routine to

void __fastcall TMainForm::ChanServerSocketAccept(TObject *Sender,
      TCustomWinSocket *Socket)
   {
   if (MainForm->Connections)
      MainForm->ChanServerSocket->Socket->Connections[1]->Close();
   }

and received the following error "exception class EListError with message
'Asynchronous socket error 10053' "

Isn't there a method to shutoff listening after accepting a connection and
keeping the current connection active???

Thanks,
Joe



"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:40d75c9d$1@newsgroups.borland.com...
>
> "Joe St. Onge" <jstonge@nel-techlabs.com> wrote in message
> news:40d739d9@newsgroups.borland.com...
>
> > Anyone know how to restrict the number of connections
> > that a server socket will accept?
>
> Use the OnAccept event to Close() the new connection.
>
>
> Gambit
>
>