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

Zaher Dirkey parmaja at gmail.com
Sat May 4 17:05:20 CEST 2013

On Sat, May 4, 2013 at 5:40 PM, Ludo Brands <ludo.brands at free.fr> wrote:

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

​Only on Windows XP

source here
about line 323
i changed it to similar to this, but not committed it

        if Socket.Select(10000, slRead) = erNone then
​ <--- Blocked here forever​

          aSocket := Socket.Accept
          aSocket := nil;

​select function here DoSelect line 132
I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3

Best Regards
Zaher Dirkey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130504/7cb0733e/attachment.html>

More information about the fpc-pascal mailing list