fengsh998的专栏

unit uThreadPool; { aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); } interface uses Windows, Classes; // 是否记录日志 // {$DEFINE NOLOGS} type TCriticalSect

unit uPool; {*********************************************************************** 线程池+任务队列 整个线程池调度图 ==============================================

unit uTest; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,uPool, StdCtrls,SyncObjs; type TUICALL = procedure (Sender:T