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:
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