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

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


​Only on Windows XP

source here
https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnServers.pas
about line 323
i changed it to similar to this, but not committed it

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

          aSocket := Socket.Accept
        else
          aSocket := nil;
        Enter;

​select function here DoSelect line 132
https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnWinSockets.pas
​
I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3

Best Regards
Zaher Dirkey
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to