Parallel Programming Library: Reihenfolge von Tasks (Priorisierung)

[Sinspin]

Hallo.
Warum willst du das Event ableiten? Schreib doch einfach einen Handler dafür. In dem machst du nichts anderes als einen Zähler zu erhöhen. Beim Start eines neuen Tasks erhöst du einen anderen Zähler.
Du startest dann einfach weitere Tasks bis dir der Abstand zwischen den beiden Zählern zu groß wird. Bzw. wieder neue wenn der Abstand wieder passt.

[karlkoch]

Zitat von Sinspin:

Warum willst du das Event ableiten? Schreib doch einfach einen Handler dafür.

Die PPL ruft diesen Handler, soweit ich das überblicke und testen konnte, jedoch nicht immer auf, z.B. nicht, wenn ein Task noch vor dem Start abgebrochen wird (oder auf dem Weg zwischen Start und Verarbeitung im Workerthread). Sobald ein Scheduler einen Tasks an die PPL schickt (ITask.Start), müsste garantiert werden, dass in jedem Fall ein Handler für diesen Task aufgerufen wird, was meiner Meinung nach im Moment nicht der Fall ist.

Viele Grüße,

karlkoch

[karlkoch]

Hallo,

meine aktuelle Lösung sieht folgendermaßen aus:

Delphi-Quellcode:

TMyTask = class(TAbstractTask);

InternalTask := TMyTask.IInternalTask(Task);
InternalTask.AddCompleteEvent(
  procedure (Task: ITask)
  begin
    // Task ist fertig
  end
);

Das funktioniert, egal ob ein Task abgebrochen oder verarbeitet wurde, aber schöner fände ich es, wenn die PPL so ein Event öffentlich unterstützen würde, oder ich übersehe etwas.

Viele Grüße,

karlkoch

[himitsu]

Du kannst doch nachgucken?

* Schauen was AddCompleteEvent macht, also wo das Event gespeichert wird.
* wenn da dort mehreres registriert werden kann, schauen ob es auch eine globale Registrierung gibt
* dann gucken wo es aufgerufen wird und ob es dort auch einen Aufruf eines globalen Events gibt, bzw. ob diese Stelle überschreibbar ist

...
Am Ende ist TTask.ProcessCompleteEvents virtual und kann somit überschrieben/erweitert werden.


Und ich hoffe dein Task läuft nicht schon, denn wenn er gerade fertig wird, während du dein Event registriert, kann es passieren, dass dein Event nicht aufgerufen wird.
[EDIT] OK, falls ich nicht nochwas übersehn hab, dann sollte es doch nicht passieren.

[karlkoch]

Zitat von himitsu:

Du kannst doch nachgucken?

Die Dokumentation und den Code habe ich untersucht, mir geht es mit meinem Thema primär darum zu erfragen, ob jemand die Problematik bereits sauber gelöst hat, oder ob der etwas unschöne Weg über AddCompleteEvent meine einzige Option ist.

Zitat von himitsu:

Am Ende ist TTask.ProcessCompleteEvents virtual und kann somit überschrieben/erweitert werden.

Mir ist es nicht gelungen, da TTask eine Instanziierung abgeleiteter Klassen verhindert (siehe TTask.Create).

Viele Grüße,

karlkoch

[himitsu]

Achso, ich dachte du hast mit TMyTask bereits eine Ableitung, wo das hätte rein gekonnt.

[karlkoch]

Zitat von himitsu:

Achso, ich dachte du hast mit TMyTask bereits eine Ableitung, wo das hätte rein gekonnt.

Ok da war der Code vielleicht etwas missverständlich, bei TMyTask handelt es sich nur um den Hack, um auf die Protected AddCompleteEvent-Methode zugreifen zu können.