OTL - Task2 durch Task1 überwachen

**hschmid67**

Hallo zusammen,

evtl. muss ich diese Frage ja besser in stackoverflow stellen, aber weil ich mit dem Forum hier so gute Erfahrungen gemacht habe, probiere ich es erstmal so. Wenn das unpassend sein sollte, bitte um kurze Rückmeldung.

Es geht um die OmniThreadLibrary. Ich möchte gerne einen Task durch einen anderen überwachen und ggf. neu starten, wenn er denn "abgestürzt" ist.

Meine Versuche gehen bisher so, dass ich zwei Variablen im Formular definiere, Task1 und Task2. Dann starte ich mit einem Button den Task1, der den zweiten Task2 starten soll, wenn Task2 denn noch (oder inzwischen wieder) nil geworden ist:

zusammenfalten · markieren

Delphi-Quellcode:

			  Task1 := CreateTask(

    procedure(const mTask: IOmniTask)

    begin

      while not mTask.Terminated do

      begin

        Sleep(1000);

        // Task2 erzeugen und starten, wenn er denn noch nicht existiert

        if Task2 = nil then

        begin

          Task2 := CreateTask(

            procedure(const mTask: IOmniTask)

            begin

              while not mTask.Terminated do

              begin

                Sleep(1000);

              end;

            end)

            .OnTerminated(procedure(const mTask: IOmniTaskControl)

              begin

                Task2 := nil;

              end);

          Task2.Run;

        end;

      end;

    end)

    .OnTerminated(

      procedure(const mTask: IOmniTaskControl)

      begin

        Task1 := nil;

      end);

  Task1.Run;

Wenn ich jetzt versuche, zunächst den inneren Task zu beenden mit

Task2.Terminate(10000); erhalte ich folgende Fehlermeldung:

"TOmniEventMonitorPool.Release: Monitor is not allocated for thread xxx."

Den äußeren Task kann ich mit

Task1.Terminate(10000); problemlos beenden...

Zunächst verstehe ich nicht, was hier passiert. Vielleicht kann es mir jemand erklären? - Und dann wäre es schön, wenn mir jemand eine Lösung für mein Problem hätte

Ziel wäre es ja, dass der Task1 den Task2 überwacht und neu startet, sobald der Task2 - aus welchen Gründen auch immer - abgestürzt oder beendet ist.

Herzliche Grüße
Harald

OTL - Task2 durch Task1 überwachen

OTL - Task2 durch Task1 überwachen

Forumregeln