[fpc-pascal] How to close TInetServer without except?

[Zaher Dirkey]

On Sat, May 4, 2013 at 8:45 AM, Ludo Brands <ludo.brands at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130504/35d97ef3/attachment.html>