<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">But mnServer is works with me for a years, and there is mnHttpServer demo and it is work fine too without Select before Accept<br><a href="https://sourceforge.net/p/minilib/source/ci/master/tree/socket/demo/lazarus/">https://sourceforge.net/p/minilib/source/ci/master/tree/socket/demo/lazarus/</a><br>
</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Sat, May 4, 2013 at 6:05 PM, Zaher Dirkey <span dir="ltr"><<a href="mailto:parmaja@gmail.com" target="_blank">parmaja@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra"><div class="im"><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>
<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" target="_blank">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" target="_blank">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<span class="HOEnZb"><font color="#888888"><br>
Zaher Dirkey</font></span></span></div>
</div></div>
</blockquote></div><br><br clear="all"><br>-- <br><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>