<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Thu, May 2, 2013 at 11:47 PM, 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:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">I tested current code on Linux, but unfortunately when I try to close, the app stays locked. :|</blockquote>
</div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">​Yes headache :P​</div><br><div class="gmail_default" style="font-family:tahoma,sans-serif">​Do not close, i use Shutdown<br><br>function TmnSocket.DoShutdown(How: TmnShutdown): TmnError;<br>
const<br>  cHow: array[TmnShutdown] of Integer = (0, SHUT_RD, SHUT_WR, SHUT_RDWR);<br>var<br>  c: Integer;<br>begin<br>  CheckActive;<br>  c := fpshutdown(FHandle, cHow[How]);<br>  if c = SOCKET_ERROR then<br>  begin<br>    Result := erFail;<br>
//    RaiseLastOSError; do not raise an error, maybe it is disconnected by the other side<br>  end<br>  else<br>    Result := erNone;<br>end;<br>​</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>