WorkerThread erweitern

[SvB]

Jetzt habe ich mir mal TCriticalSection angesehen und in der Delphi Hilfe steht folgendes:

Zitat:

Mit TCriticalSection können Operationen abgesichert werden, die nicht durch den Ausführung eines bestimmten Codeabschnitts durch einen anderen Thread unterbrochen werden dürfen. Kritische Abschnitt arbeiten wie Gates, die jeweils nur einen einzelnen Thread durchlassen. Da die Ausführung anderer Threads blockiert wird, verringert sich die Leistung der Anwendung erheblich, wenn kritische Abschnitte zu häufig eingesetzt werden.

Das bedeutet, dass wenn mein JobB gestartet werden würde, dass die anderen Threads dann solange unterbrochen werden, bis der JobB abgearbeitet ist. Das wäre schlecht, denn die anderen Threads sollen in dieser Zeit noch JobA und JobB abarbeiten.

Dann schaue ich mir mal das nächste an.

[Assarbad]

Zitat von SvB:

Das bedeutet, dass wenn mein JobB gestartet werden würde, dass die anderen Threads dann solange unterbrochen werden, bis der JobB abgearbeitet ist. Das wäre schlecht, denn die anderen Threads sollen in dieser Zeit noch JobA und JobB abarbeiten.

Nein, das bedeutet es nicht. Es bedeutet, daß alle Jobs die sich den kritischen Abschnitt teilen jeweils nur einzeln ausgeführt werden. Zusätzlich ist zu bemerken, daß du eben TryEnter... und nicht Enter... benutzen solltest.

[SvB]

Ich habe mich heute fast den ganzen Tag mit meinem Problem beschäftigt. Zuerst habe ich mit Mutex probiert, da sind aber andauernd Fehler gekommen und ich habe es irgendwie nicht rihtig verstanden. Dann habe ich mit CriticalSection und TryCiritcalSection beschäftigt, aber irgendwo hat mir auch da de Ansatz gefehlt.

Ich habe aber jetzt eine Lösung gefunden, die auch anscheinend funktioniert und ich glaube, dass ich es anders nicht hinbekommen hätte. Mit meiner aktuellen Lösung kann ich sogar einem Job mitteilen, wie oft er gleichzeitig ausgeführt werden soll, z.B. sage ich meinem JobA nichts, dann kann er beliebig oft ausgeführt werden, meinem JobB sage ich 2, dann wird er bei 10 Threads nur 2 mal gleichzeitig ausgeführt.
Ich habe das über eine zusätzliche TThreadList gemacht, in der ich die aktuell ausgeführten Jobs hineinlege.

Wen es interessiert, ich habe den Quellcode und das Beispiel beigefügt. Ich habe es unter Delphi XE angepasst und getestet.