On 05/03/2013 05:57 PM, silvioprog wrote:
>
> Could you give me an example in practice? Theoretically I understand,
> but I don't know do in practice. :/
>
> Now, TTcpIpServer is working well. The new problem is: when I close the
> server with one or more clients connected, I got a memory leak.
>
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;
Ludo
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
