Application Events: Fehlerverursachende Procedure auslesen

[Ykcim]

Hallo Zusammen,

ich möchte - besonders während der Testphase einer Software die auftretenden Fehler abfangen und mir diesen dann per Mail zuschicken.

Dazu möchte ich ein TApplicationEvent verwenden. Mich interessiert aber nicht nur der Fehler der passiert, sondern auch die Procedure/Function, in der er ausgelöst wurde. Vielleicht sogar noch die Procedure und der die fehlerauslösende Procedure aufgerufen wurde.

Ist das möglich?

Ich stelle mir das ungefähr so vor:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
   Showmessage('Folgender Fehler ist aufgetreten: '+e.message+#10#13+'Klasse: '+e.classname);
   SendFehlerMail(e.message, e.classname, FehlerProcedure, MutterProcedure); 
   e:=nil;
end;

Wie macht Ihr das?
Vielen Dank
Gruß
Patrick

[nahpets]

Hallo,

die Jedis liefern da ein Hilfsmittel:

http://www.delphipraxis.net/169550-e...ml#post1176139