On Wednesday 17 April 2013 09:17:09 you wrote: > Will this be a CPU hog: > > t := Now; > while fprecv(s, @buf, buf_len, MSG_DONTWAIT) < 0 do begin > if Now - t > 0.00001 * timeout then Break; // approx. <timeout> seconds > end; > > Thanks
I did not read the whole thread, but that you favorite blocking mode (which I don't use). For MSG_DONTWAIT as far I know you have to change to the nonblocking mode. > > > 2013/4/16 Luca Olivetti <l...@ventoso.org> > > > Al 16/04/13 12:20, En/na Michael Schnell ha escrit: > > > On 04/16/2013 11:26 AM, Xiangrong Fang wrote: > > >> How can I set the connection and read/write timeout when using socket > > >> in free pascal? > > > > > > I seem to remember that synapse can do this. > > > > Only in svn and it does it this way > > > > if FConnectionTimeout > 0 then > > begin > > > > // connect in non-blocking mode > > b := NonBlockMode; > > NonBlockMode := true; > > SockCheck(synsock.Connect(FSocket, Sin)); > > if (FLastError = WSAEINPROGRESS) OR (FLastError = WSAEWOULDBLOCK) then > > > > if not CanWrite(FConnectionTimeout) then > > > > FLastError := WSAETIMEDOUT; > > > > NonBlockMode := b; > > > > end > > else > > > > SockCheck(synsock.Connect(FSocket, Sin)); > > > > NonBlockMode in turn uses fpIoCtl with the FIONBIO parameter, > > WSAEINPROGRESS=EsysEINPROGRESS, WSAEWOULDBLOCK=EsysEWOULDBLOCK and > > CanWrite does an fpSelect > > > > Bye > > -- > > Luca > > > > _______________________________________________ > > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > > http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal