Die
beste Möglichkeit ist eigentlich ein ThreadPool, der Aufgaben gestellt bekommt (Queue), diese Aufgaben aus der Queue an die zur Verfügung stehenden WorkerThreads verteilt, die diese dann abarbeiten und dann wieder an den ThreadPool zurückliefern (Queue).
Die WorkerThreads legen sich dann wieder schlafen, bis der ThreadPool wieder eine Aufgabe hat oder der Pool eben ins Nirwana geht.
Die Aufgabe selber kann wie auch immer geartet sein, sollte nur eine Methode beinhalten, die vom Workerthread aufgerufen wird.
Hier mal ganz schematisch:
Delphi-Quellcode:
TThreadedJob = class abstract
protected
procedure Execute( Context : TWorkerThread ); virtual; abstract;
end;
TWorkerThread = class( TThread )
protected
procedure Execute;
end;
procedure TWorkerThread.Execute;
begin
...
CurrentJob.Execute( Self );
...
end;
Was sich dann in dem Job abspielt wird, interessiert den WorkerThread nicht, der sorgt nur dafür, dass die Ausführung im Hintergrund erfolgt.