On Sat, May 4, 2013 at 8:45 AM, Ludo Brands <[email protected]> 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 - [email protected] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
