<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Sat, May 4, 2013 at 8:47 AM, silvioprog <span dir="ltr"><<a href="mailto:silvioprog@gmail.com" target="_blank">silvioprog@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 class="im"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
repeat<br>
  if Socket.CanRead(timeout) then<br>
    begin<br>
    insock:=Socket.Accept;<br>
    if insock<>-1 then<br>
      //start working with insock<br>
    else<br>
      //deal with error<br>
    end;<br>
until ThreadTerminated;<br>
<br>
Ludo</blockquote></div><div><br></div></div><div>Thank you!</div></blockquote></div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">​If you success, tell us, i must fix my sockets too :)​</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></div>