<div dir="ltr">2013/5/2 Zaher Dirkey <span dir="ltr"><<a href="mailto:parmaja@gmail.com" target="_blank">parmaja@gmail.com</a>></span><br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div dir="ltr"><div class="gmail_extra"><div class="im"><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-width:1px;border-left-style:solid;border-left-color: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><div style="font-family:tahoma,sans-serif">Yes headache :P</div><br><div 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><span class=""><font color="#888888"><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></font></span></div></div></blockquote></div><div><br></div><div style>I tried with fpshotdown and closesocket, like this:</div><div style><br></div><div style><a href="https://github.com/graemeg/freepascal/blob/master/packages/fcl-web/src/base/custfcgi.pp#L614">https://github.com/graemeg/freepascal/blob/master/packages/fcl-web/src/base/custfcgi.pp#L614</a><br>

</div><div style><br></div><div style>But, same error.</div><div><br></div><div>This is not the most serious problem. My dilemma now is to close the app. I hate working with threads. -.-'<br></div><div><br></div>-- <br>

Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>