TFPCustomSimpleThreadPool

type TFPCustomSimpleThreadPool = class(TObject)

protected

type

  TAutoCheckQueueThread = TAutoCheckQueueThread;

  TAbstractTaskThread = TAbstractTaskThread;

  TAbstractThreadList = TAbstractThreadList;

  TTaskThread = TTaskThread;

  TThreadPoolList = TThreadPoolList;

protected

  function CreateAutoCheckQueueThread;

  procedure DoCheckQueuedTasks; virtual;

  function AddTaskToQueue(); virtual;

  procedure DoCancelQueuedTasks;

  procedure DoTerminateRunningTasks();

  function CreateThreadList; virtual;

  function DoAddTask(); virtual;

  property MinThreads: Word; [rw]

  property MaxThreads: Word; [rw]

  property AddTimeout: Cardinal; [rw]

  property QueueTasks: Boolean; [rw]

  property BusyThreadCount: Word; [r]

  property IdleThreadCount: Word; [r]

  property ThreadCount: Word; [r]

  property AutoCheckQueuedInterval: Integer; [rw]

public

  constructor Create; virtual;

  destructor destroy; override;

  class constructor InitClass;

  destructor DoneClass;

  procedure CheckQueuedTasks;

  procedure CancelQueuedTasks;

  procedure TerminateRunningTasks;

  function AddTask();

  property DefaultInstanceClass: TFPCustomSimpleThreadPoolClass; [rw]

  property Instance: TFPCustomSimpleThreadPool; [r]

end;

TFPCustomSimpleThreadPool

TObject