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

silvioprog silvioprog at gmail.com
Thu May 2 22:00:46 CEST 2013

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:


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>

More information about the fpc-pascal mailing list