使用IOCP完成端口队列做任务队列

使用IOCP完成端口队列做任务队列

与其自己费力设计异步任务队列，不如使用WINDOWS内核级的IOCP完成端口队列做任务队列。

1）引用单元

uses windows;

2）定义完成端口句柄

var g_iocp_handle: THandle;            // 完成端口句柄

3）创建完成端口

  g_iocp_handle := CreateIoCompletionPort(INVALID_HANDLE_VALUE, 0, 0, si.dwNumberOfProcessors);

4）将任务提交给完成端口

PostQueuedCompletionStatus(g_iocp_handle, 0, 0, POverlapped(pRecvPack));

5）工作线程从完成端口获取工作任务进行处理

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

procedure TWorkerThread.Execute; var   pRecvPack: PTRecvPack;   pDecodePack: PTDecodePack;   param1: DWORD;   {$IFNDEF xe}   param2: DWORD;   {$ELSE}   param2: NativeUInt;   {$ENDIF}   len: Integer; begin   inherited;   try     while not Self.Terminated do     begin       // 取一个数据包 从队列       if Windows.GetQueuedCompletionStatus(g_iocp_handle, param1, param2, POverlapped(pRecvPack), 1) then       begin         // 终止while         if pRecvPack = nil then         begin           Dispose(pRecvPack);           Break;         end;             // 开始解码         New(pDecodePack);         pDecodePack^.socket := pRecvPack^.socket;           // 解码包头         pDecodePack^.msgHead := DecodeMessage(LeftStr(pRecvPack^.data, DEFBLOCKSIZE));           // 解码包体 如有         len := Length(pRecvPack^.data);         if len > DEFBLOCKSIZE then           pDecodePack^.msgBody := DecodeString(RightStr(pRecvPack^.data, len - DEFBLOCKSIZE));           // 释放指针         Dispose(pRecvPack);           // 处理消息 开始         case pDecodePack^.msgHead.MsgID of           CM_LOGIN:             Self.login(pDecodePack);           CM_PASSWORD:             Self.password(pDecodePack);           CM_CTOC:             Self.cToc(pDecodePack);         end;           // 释放指针         Dispose(pDecodePack);       end;       end;   except     on e: Exception do       WriteLog('TWorkerThread.Execute ' + e.Message);   end; end;