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

[silvioprog]

2013/5/4 Zaher Dirkey <parmaja at gmail.com>

>
> On Sat, May 4, 2013 at 8:47 AM, silvioprog <silvioprog at gmail.com> wrote:
>
>> repeat
>>>   if Socket.CanRead(timeout) then
>>>     begin
>>>     insock:=Socket.Accept;
>>>     if insock<>-1 then
>>>       //start working with insock
>>>     else
>>>       //deal with error
>>>     end;
>>> until ThreadTerminated;
>>>
>>> Ludo
>>
>>
>> Thank you!
>>
>
> If you success, tell us, i must fix my sockets too :)
>
> --
> I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3
>
> Best Regards
> Zaher Dirkey
>

Yes:

https://bitbucket.org/silvioprog/tcpipcomp/src/945866300819bfe0d9d957c64f301e2ff92682e5/src/tcpipserver.pas?at=master#cl-161

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130504/d9ac4d9f/attachment.html>