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

[silvioprog]

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.

-- 
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/0e088a64/attachment.html>