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

[Ludo Brands]

On 05/04/2013 04:31 PM, Zaher Dirkey wrote:
> 
> 
> ​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.
> 

Can you show the code you use? You tested on Windows, linux, Mac, ...?

Ludo