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 <parm...@gmail.com> wrote: > > On Sat, May 4, 2013 at 5:40 PM, Ludo Brands <ludo.bra...@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
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal