TApplicationEvents

**franktron**

Wie kann ich am einfachsten herausfinden von welcher Form eine Exception kommt wenn die Komponenete auf der MainForm liegt

**Bernhard Geyer**

AFAIK gar nicht. Wenn die Exception in TApplicationEvents ankommt sind alle entsprechenden Informationen schon verloren.

Hier bietet aber die

Jedi Code Library eine Lösung an. Lade sie dir und schau dir die Beispiele StackTrackExample und FramesTrackExample an. Diese Beinhalten eine Lösung mit kompletten Aufrufstack bei Auftauchen einer Exception.

**Hansa**

Sakura hat doch so was in der Richtung mal gemacht. Wenn die Compiler-Schalter richtig gesetzt sind wird sogar die Zeile angezeigt.

**Bernhard Geyer**

Genau das macht auch das Jedi-Beispiel.
Ein Beispiel der Ausgaben der Demo-Programme:

markieren

Code:

			Exception EAccessViolation: Zugriffsverletzung bei Adresse 00467759 in Modul 'FramesTrackExample.exe'. Schreiben von Adresse 00000000 (OS Exception)

  Exception occured at $00467759 (Module "FramesTrackDemoMain", Procedure "TForm1.Button1Click", Unit "FramesTrackDemoMain.pas", Line 125)

  Except frame-dump:

    Frame at $0012F634 (type: efkFinally)

      Code at $00467769

      Module "FramesTrackDemoMain", Procedure "TForm1.Button1Click", Unit "FramesTrackDemoMain.pas", Line 125

    Frame at $0012F97C (type: efkFinally)

      Code at $00440254

      Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0

    Frame at $0012F988 (type: efkAnyException, handles exception)

      Handler at $00440275

      Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0

**franktron**

Das von der Jedi kenn ich ist zwar schön hat leider einen sehr grossen nachteil.
Noch einfacher kann ich es einem Hacken der die EXE decompelieren will nicht machen.

**Bernhard Geyer**

Zitat:

Noch einfacher kann ich es einem Hacken der die EXE decompelieren will nicht machen

Diese Infos in de ausgeprägten Schönheit kommt nur (kann nur kommen) wenn auch entsprechend TD32-Debug-Infos in der Exe vorhanden sind. Und wenn Du die mitlieferst bist Du selbst schuld (vergrößert ja auch die Exe auch um die 3fache Menge). Und vermutlich basiert Sakura's Lösung auf die gleiche Mechanik.

TApplicationEvents

TApplicationEvents

Re: TApplicationEvents

Re: TApplicationEvents

Re: TApplicationEvents

Re: TApplicationEvents

Re: TApplicationEvents

Forumregeln

franktron Registriert seit: 11. Nov 2003 Ort: Oldenburg 1.446 Beiträge Delphi 10.2 Tokyo Enterprise	#1 TApplicationEvents 2. Apr 2004, 09:34 Wie kann ich am einfachsten herausfinden von welcher Form eine Exception kommt wenn die Komponenete auf der MainForm liegt Frank Tux sein Lieblingsquellcode While anzfische<TuxSatt do begin Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 Re: TApplicationEvents 2. Apr 2004, 10:36 AFAIK gar nicht. Wenn die Exception in TApplicationEvents ankommt sind alle entsprechenden Informationen schon verloren. Hier bietet aber die Jedi Code Library eine Lösung an. Lade sie dir und schau dir die Beispiele StackTrackExample und FramesTrackExample an. Diese Beinhalten eine Lösung mit kompletten Aufrufstack bei Auftauchen einer Exception.
	Zitat

Hansa Registriert seit: 9. Jun 2002 Ort: Saarland 7.554 Beiträge Delphi 8 Professional	#3 Re: TApplicationEvents 2. Apr 2004, 10:44 Sakura hat doch so was in der Richtung mal gemacht. Wenn die Compiler-Schalter richtig gesetzt sind wird sogar die Zeile angezeigt. Gruß Hansa
	Zitat

franktron Registriert seit: 11. Nov 2003 Ort: Oldenburg 1.446 Beiträge Delphi 10.2 Tokyo Enterprise	#5 Re: TApplicationEvents 2. Apr 2004, 12:52 Das von der Jedi kenn ich ist zwar schön hat leider einen sehr grossen nachteil. Noch einfacher kann ich es einem Hacken der die EXE decompelieren will nicht machen. Frank Tux sein Lieblingsquellcode While anzfische<TuxSatt do begin Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
	Zitat