Zitat:
E.Free
DU, darfst niemals eine
Exception freigeben, welche noch mit dem
Exception-Handling verbunden ist
Wenn, dann gäbe es dafür
ReleaseExceptionObject, aber das macht aktuell intern eigentlich garnichts. (leere Prozedur)
Mit
AcquireExceptionObject kannst du das
Exception-Objekt abhängen und den Besitz übernehmen.
Delphi-Quellcode:
try
...
except
MyException := AcquireExceptionObject
as Exception;
//MyExceptAddr := ExceptAddr;
end;
Das kannst du dann später auch in einen anderen thread mitnehmen und da machen was du willst.
Hier am Ende natürlich nicht das
MyException.Free;
vergessen. (außer du löst die
Exception erneut aus -> raise)
Mit
raise MyException;
oder
raise MyException at MyExceptAddr;
kkönntest du die
Exception irgendwo erneut auslösen, auch in einem anderen Thread.
PS: TThread hat ein Property
FatalException, welches man ausschließlich im OnTerminate-Event benutzen kann.
Wenn du diese
Exception aber aus dieser Methode mitnehmen/weiterreichen willst, dann mußt du sie kopieren. (
Exception macht anschließend immer ein Free auf dieses Objekt)
MyException := Exception.Create(FatalException.Message);
und anschließend
raise MyException;
,
MyException := ExceptClass(FatalException.ClassType).Create(FatalException.Message);
inkl. der ursprünglichen
Exception-Klasse
oder
MyExceptionMessage := FatalException.Message;
und
raise Exception.Create(MyExceptionMessage);
Delphi fängt im TThread-Execute, im Synchronize und in
VCL-Events alle
Exception ab.
Allerdings werden ausschließlich Exceptions des Hauptthreads automatisch angezeigt. (
Exception-Fenster)
und die in Threads gehen ins Nirvana, wenn sie niemand behandelt.
Würde eine
Exception bis zum Windows durchrauschen, ohne abgefangen zu werden, dann würde sofort der gesamte Prozess abgeschossen. (Programm beendet)
Darum macht Delphi das.
Hallo himitsu,
danke für deine ausführliche Erklärung. Ich hätte dazu jedoch noch ein paar Fragen:
Zitat:
DU, darfst niemals eine
Exception freigeben, welche noch mit dem
Exception-Handling verbunden ist
Mache ich das in meinem Code? Ich habe mir mit AcquireExceptionObject die
Exception geholt. Im except-Block, der sich in der Prozedur im Synchronize befindet, gebe ich die
Exception nur dann frei, wenn sie im OnError-Eventhandler nicht geraised wurde.
Unsicher bin ich mir, wie Delphi sich verhält, wenn ich im Eventhandler
Exception.RaiseOuterException verwende. Dann wird um die
Exception, deren Kontrolle ich mir mit AcquireExceptionObject geholt habe, als InnerException einer neuen
Exception angehängt, richtig? Nimmt sich Delphi in diesem Fall die Kontrolle zurück oder muss ich die
Exception selbst wieder freigeben, so wie ich es mache, wenn NewException <> existingException?
Zitat:
Delphi fängt im TThread-Execute, im Synchronize und in
VCL-Events alle
Exception ab.
Das habe ich getestet und kann ich nicht bestätigen. Wenn ich z. B. folgenden Code habe:
Delphi-Quellcode:
try
Synchronize(
procedure
begin
raise Exception.Create('
Test');
end);
except
// Exception behandeln
end;
dann bekomme ich im except-Block die
Exception, die ich innen ausgelöst habe. Das ist auch etwas, was ich an Threads noch nicht verstanden habe: Wenn ich den Code so ausführe, wird die
Exception dann zweimal ausgelöst, also einmal im Main-Thread und einem im Unter-Thread? Wenn ich den Debugger benutze, dann sieht es fast danach aus.
Zitat:
PS: TThread hat ein Property
FatalException, welches man ausschließlich im OnTerminate-Event benutzen kann.
Wenn du diese
Exception aber aus dieser Methode mitnehmen/weiterreichen willst, dann mußt du sie kopieren. (
Exception macht anschließend immer ein Free auf dieses Objekt)
MyException := Exception.Create(FatalException.Message);
und anschließend
raise MyException;
,
MyException := ExceptClass(FatalException.ClassType).Create(FatalException.Message);
inkl. der ursprünglichen
Exception-Klasse
oder
MyExceptionMessage := FatalException.Message;
und
raise Exception.Create(MyExceptionMessage); Ich denke, dass das leider keine praktische Implementierung für mich ist, da ich in bei einem Fehlerbericht von EurekaLog den Callstack der ursprünglichen
Exception sehen möchte, was vor allem dann wichtig ist, wenn eine unerwartete
Exception auftritt, deren Ursprung ich finden möchte. Wenn ich nun die Property FatalException verwende, um mir daraus eine neue
Exception zu generieren, dann sind diese Informationen (soweit ich weiß) verloren.
Und noch eine letzte Frage: Das OnTerminate-Event wird immer im Kontext des Threads ausgeführt, aus dem der Unter-Thread gestartet wurde, oder? Besteht die Möglichkeit, ein Event so wie das OnError-Event aus meinem ersten Beitrag im Kontext eines anderen Threads (nicht der Main-Thread!) auszuführen? Also so etwas wie Synchronize und Queue, aber nicht für den Main-Thread. Oder ist es eine schlechte Architektur, wenn man versucht, etwas mit einem anderen als dem Main-Thread zu synchronisieren?
Da ich gerade ziemlich viele offene Fragen bzgl. Threads habe: Kann jemand ein Buch empfehlen, das sich vorwiegend mit Threads in Delphi beschäftigt?