我的投递代码是下面这样的function TIOCPServer.PostRead(SocketInfo: TSocket): boolean;var byteRecv, Flags, ErrCode: DWORD; HandleData: PPerHandleData;begin Flags := 0; New(HandleData); FillChar(HandleData.Overlapped, Sizeof(Overlapped), 0); FillChar(HandleData.Buffer, BUFFER_SIZE, 0); HandleData.wsaBuffer.buf := HandleData.Buffer; HandleData.wsaBuffer.len := BUFFER_SIZE; HandleData.Statu := ssRecv; HandleData.Socket := SocketInfo; Result := (WSARecv(SocketInfo, @(HandleData.wsaBuffer), 1, byteRecv, Flags, @HandleData.Overlapped, nil) <> SOCKET_ERROR); if (Result = False) then begin ErrCode := WSAGetLastError; Result := ErrCode = ERROR_IO_PENDING; end;end;
Overlapped;dwTimeout:Cardinal):BOOL;stdcall; 在完成端口编程中，GetQueuedCompletionStatus用来查询投递到完成端口上的异步I/O是否完成或出错。 1. 当有任务成功时，返回TRUE，dwCompletionKey返回调用CreateIOCompletionPort将I/O设备（比如文件，套接字等等）句柄关联到完成端口时提供的dwCompletionKey参数,lpOverlapped返回异步调用时提供的lpOverlapped参数，nBytesTransferred返回写入或读取的字节数。 2. 当没有任务完成，也没有任务出现错误时，返回FALSE。lpOverlapped被设置为nil。调用GetLastError可以得到更详细的原因，如果GetLastError返回WAIT_TIMEOUT,表明超时了，如果是其他错误，可以查MSDN上的系统错误码，了解原因。 3. 如果有任务失败了，返回FALSE。dwCompletionKey和lpOverlapped的设置情况跟第一种结果一样。GetLastError返回任务失败的原因。 对于Winsock2的WSARecv调用，如果GetLastError返回ERROR_NETNAME_DELETED，表示连接被通讯的另一方复位或者异常中断了，比如对方死机，此时应关闭套接字。 对于Winsock2的ConnectEx调用，如果GetLastError返回ERROR_CONNECTION_REFUSED，表示远端主机没有在这一端口进行监听；如果返回ERROR_HOST_UNREACHABLE，表示网络不通。