On Sat, May 4, 2013 at 8:45 AM, Ludo Brands <ludo.bra...@free.fr> wrote:
> Take a look at TBlockSocket.InternalCanRead and TBlockSocket.CanRead in > synapse on how to set up select correctly. Then do something like > > repeat > if Socket.CanRead(timeout) then > begin > insock:=Socket.Accept; > if insock<>-1 then > //start working with insock > else > //deal with error > end; > until ThreadTerminated; > I have put Select before Accept and it doesn't work, it blocked forever without accepting any connection. Accept function who block the thread and get new connection. Best Regards Zaher Dirkey
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal