2013/5/4 Zaher Dirkey <parm...@gmail.com> > > On Sat, May 4, 2013 at 8:47 AM, silvioprog <silviop...@gmail.com> wrote: > >> repeat >>> if Socket.CanRead(timeout) then >>> begin >>> insock:=Socket.Accept; >>> if insock<>-1 then >>> //start working with insock >>> else >>> //deal with error >>> end; >>> until ThreadTerminated; >>> >>> Ludo >> >> >> Thank you! >> > > If you success, tell us, i must fix my sockets too :) > > -- > I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3 > > Best Regards > Zaher Dirkey >
Yes: https://bitbucket.org/silvioprog/tcpipcomp/src/945866300819bfe0d9d957c64f301e2ff92682e5/src/tcpipserver.pas?at=master#cl-161 -- Silvio Clécio My public projects - github.com/silvioprog
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
