请问recv函数是阻塞的吗?

Question

我在线程中用WINSOCK的API，
如果是阻塞的，我怎么让他超时一段时间后，从RECV函数推出呢？

Answer 1

在调用RECV之前用select设定timeout时间

Answer 2

function Receive(var Buf; nBuflen,
  TimeOut,Flag: Integer): Integer;
var
  FDSet: TFDSet;
  TimeVal: TTimeVal;
begin
  TimeVal.tv_sec := Timeout div 1000;
  TimeVal.tv_usec := (Timeout mod 1000) * 1000;
  FD_ZERO(FDSet);
  FD_SET(FSocket, FDSet);
  if select(0, @FDSet, nil, nil, @TimeVal) > 0 then
    Result := WinSock.recv(FSocket,Buf,nBuflen,Flag);
end;