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.