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

[silvioprog]

2013/5/2 silvioprog <silvioprog at gmail.com>

> 2013/5/2 Zaher Dirkey <parmaja at gmail.com>
>
>>
>> On Thu, May 2, 2013 at 10:45 PM, silvioprog <silvioprog at gmail.com> wrote:
>>
>>>
>>> Yes, but in this case, WaitFor blocks my app.
>>
>>
>> Yes, but before terminate your socket/client connections, you need also
>> close the handle of it, or stop receive, it will return immateriality
>> without receive (with error), so all connections will drop, and you wait to
>> finish that.
>>
>> --
>> I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3
>>
>> Best Regards
>> Zaher Dirkey
>>
>
> Yes. Please see full code here:
>
>
> https://bitbucket.org/silvioprog/tcpipcomp/src/46420ac50800b015e7f17b91f019d4a3230d04c3/src/tcpipserver.pas?at=master
>
> Lines 277 and 278. That is, I already do that. The problem now is how to
> stop the "Accept" but without errors.
>
> I implemented the "Stop" method in socket, but I did not want to do it
> this ugly way.
>

I tested current code on Linux, but unfortunately when I try to close, the
app stays locked. :|

-- 
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/20130502/a9f067fa/attachment.html>