raise Exception.Create() feuert ApplicationEvents nicht aus TTask an

[himitsu]

Nochmal zur Info:

Application.OnException wird ausschließlich durch Exceptions innerhalb der VCL und im Mainthread aufgerufen,
denn die VCL hat ein Try-Except um die Messagebehandlung und da drin "manuell" den OnException-Aufruf.

Deswegen ist seit einer Weile auch in "neuen" Konsolenanwendungen standardmäßig ein Try-Except vorhanden.

ACHTUNG: Wenn Exceptions nicht abgefangen werden und unbehandelt bis zum Windows durchrauschen, dann beendet Windows sofort die komplette Anwendung.


Aus diesem Grund haben auch die VCL, TThread und der neue TTask ein Try-Except eingebaut, welches Exceptions abfängt, damit im Fehlerfall nur diese Message, bzw. der Thread/Task abraucht, aber nicht gleich die ganze Anwendung.

ABER, "leider" werden diese Fehler nicht automatisch in den Hauptthread synchronisiert und da angezeigt.
Das ginge auch nicht immer automatisch, da es eventuell zu einem Deadlock kommen könnte, wenn dadurch die Bearbeitung dieses oder des Hauptthreads blockiert würde.

Bei TThread mußt DU dich in OnTerminate oder DoTerminate hängen und den Wert von FatalException prüfen.

Delphi-Quellcode:

if Assigned(FatalException) then
  Synchronize(...);  // Exception(FatalException) z.B. "synchronisiert" an Application.HandleException oder an Application.ShowException

Bei TTask weiß ich jetzt nicht, wo es dort sowas wie das FatalException/OnTerminate gibt.


Aber in beiden Fällen würde ich zu einer manuellen Behandlung raten, also ein eigenes Try-Except um deinen kompletten Code im Task/Thread.

Denn wenn du das nicht abfängst, dann verschwinden Exceptions innerhalb von Threads ungehört im Nirvana.
Und ja, ich finde dieses Standardverhalten auch schwachsinnig,
außerdem verstehe ich nicht, warum es seit Jahrzehnten nicht ebenfalls für Thread-Exceptions ein "zentrales" Event existiert, so wie dieses Application.OnException für VCL/FMX.

Delphi-Quellcode:

//lokales var E: Exception;
try

except
  E := Exception(AcquireExceptionObject);
  E.Message := Format('ThreadID %d: %s', [{TThread.Current.ThreadID}GetCurrentThreadId, E.Message]);
  TThread.ForceQueue(nil, procedure
    begin
      Application.HandleException(E);
    end);
end;

Problem bei TThread: Die nehmen auch via AcquireExceptionObject die Exception aus der Behandlung, aber bieten es nicht den Besitz zu übernehmen, weswegen innerhalb von OnTerminate kein Queue/ForceQueue verwenden kann, außer man klont vorher aufwändig diese Exception, welche TThread kurz nach OnTerminate immer sofort freigibt.