<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Sat, May 4, 2013 at 5:40 PM, Ludo Brands <span dir="ltr"><<a href="mailto:ludo.brands@free.fr" target="_blank">ludo.brands@free.fr</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Can you show the code you use? You tested on Windows, linux, Mac, ...?</blockquote></div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">
​Only on Windows XP<br><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">source here <br><a href="https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnServers.pas">https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnServers.pas</a><br>
</div><div class="gmail_default" style="font-family:tahoma,sans-serif">about line 323<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">i changed it to similar to this, but not committed it<br><br>
</div>      begin<br>        if Socket.Select(10000, slRead) = erNone then<div class="gmail_default" style="font-family:tahoma,sans-serif;display:inline">​ <--- Blocked here forever​</div><br>          aSocket := Socket.Accept<br>
        else<br>          aSocket := nil;<br>        Enter;<br><br><div class="gmail_default" style="font-family:tahoma,sans-serif">​select function here DoSelect line 132<br><a href="https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnWinSockets.pas">https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnWinSockets.pas</a><br>
</div><div class="gmail_default" style="font-family:tahoma,sans-serif">​</div><div dir="ltr"><span style="font-family:courier new,monospace">I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3<br><br>Best Regards<br>
Zaher Dirkey</span></div>
</div></div>