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

[Zaher Dirkey]

But mnServer is works with me for a years, and there is mnHttpServer demo
and it is work fine too without Select before Accept
https://sourceforge.net/p/minilib/source/ci/master/tree/socket/demo/lazarus/


On Sat, May 4, 2013 at 6:05 PM, Zaher Dirkey <parmaja at gmail.com> wrote:

>
> On Sat, May 4, 2013 at 5:40 PM, Ludo Brands <ludo.brands at free.fr> wrote:
>
>> Can you show the code you use? You tested on Windows, linux, Mac, ...?
>
>
> ​Only on Windows XP
>
> source here
>
> https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnServers.pas
> about line 323
> i changed it to similar to this, but not committed it
>
>       begin
>         if Socket.Select(10000, slRead) = erNone then
> ​ <--- Blocked here forever​
>
>           aSocket := Socket.Accept
>         else
>           aSocket := nil;
>         Enter;
>
> ​select function here DoSelect line 132
>
> https://sourceforge.net/p/minilib/source/ci/master/tree/socket/source/mnWinSockets.pas
> ​
> I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3
>
> Best Regards
> Zaher Dirkey
>



-- 
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/20130504/59863752/attachment.html>