摘要: 处理任务队列的工作线程的创建 工作线程的数量和CPU数量是息息相关的,CPU数量越多则可以创建越多的工作线程数量。 var si: TSystemInfo; GetSystemInfo(si); g_decode_handle := CreateIoCompletionPort(INVALID_HA 阅读全文
posted @ 2016-09-12 13:47 delphi中间件 阅读(482) 评论(0) 推荐(0) 编辑
摘要: unit IOCPQueue;interfaceuses windows, classes;type TOnQueueProc = procedure(sender: tobject; ParamA, ParamB: integer) of object; TIOCPQueue = class pr 阅读全文
posted @ 2016-09-12 13:44 delphi中间件 阅读(904) 评论(0) 推荐(0) 编辑
摘要: TList实现的任务队列 var g_tasks: TList; type PTRecvPack = ^TRecvPack; TRecvPack = record // 接收到的原数据 socket: TCustomWinSocket; data: AnsiString; end; procedur 阅读全文
posted @ 2016-09-12 13:09 delphi中间件 阅读(867) 评论(0) 推荐(0) 编辑