Alle Exceptions abfangen

[Meflin]

Hi,
kann man alle exceptions abfangen (ohne jede einzelne exception bei jeder procdedure einzeln durch try except abfangen zu müssen) und in eine anderweitige ausgabe umleiten?

*MFG*

[Phoenix]

Du kannst auf Application.OnException eine eigene (globale) Exceptionhandling-Routine setzen.

[Smokey]

Ja man kann

[Meflin]

merci

[Meflin]

also so ganz funzt des noch net! es werden zwar keine exceptions ausgegeben, aber auch die dialoge erscheinen nciht und ausserdem reagiert die procedure in der die exception ausgelöst wurde nimmer. woran könnte das nun wieder liegen? ich habe genau den code von dem link

Delphi-Quellcode:

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  if Sender is TComponent then
    MessageDlg(Format('Es ist folgender Fehler aufgetreten:%s%s%s'+
    'Fehlertyp:%s%s%sSender:%s%s [%s]', [#10#13, E.Message,
    #13#10#13#10, #10#13, E.ClassName, #10#13#10#13, #13#10,
    TComponent(Sender).Name, Sender.ClassName]), mtError, [mbOk], 0)
  else
    MessageDlg(Format('Es ist folgender Fehler aufgetreten:%s%s%s'+
    'Fehlertyp:%s%s%sSender:%s%s', [#10#13, E.Message, #13#10#13#10,
    #10#13, E.ClassName, #10#13#10#13, #13#10, Sender.ClassName]),
    mtError, [mbOk], 0);
end;

[Meflin]

^^ ^^

[Ultimator]

Das geht doch mit TApplicationEvents und dann OnException, oder?

[Meflin]

ich nemhme an das ist im endeffekt das gleiche und wird mein problem nicht lösen, aber testen kann ichs ja mal...

[Meflin]

nö, das problem besteht weiterhin!

[Meflin]

^^ push ^^