[fpc-pascal] How to close TInetServer without except?

[Zaher Dirkey]

​After termintate you need to wait the thread to stop, WaitFor here the
function.
Search for WaitFor​ in
https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnServers.pas

On Thu, May 2, 2013 at 8:57 PM, silvioprog <silvioprog at gmail.com> wrote:

> destructor TTcpIpServerSocketThread.Destroy;
> begin
>   FSocket.StopAccepting;
>   FSocket.Free;
>   inherited Destroy;
> end;
>




-- 
I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3

Best Regards
Zaher Dirkey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130502/0c009baa/attachment.html>