AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TApplicationEvents

Ein Thema von franktron · begonnen am 2. Apr 2004 · letzter Beitrag vom 3. Apr 2004
Antwort Antwort
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

TApplicationEvents

  Alt 2. Apr 2004, 10: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;
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.197 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: TApplicationEvents

  Alt 2. Apr 2004, 11: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.
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#3

Re: TApplicationEvents

  Alt 2. Apr 2004, 11: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
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.197 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: TApplicationEvents

  Alt 2. Apr 2004, 11:50
Genau das macht auch das Jedi-Beispiel.
Ein Beispiel der Ausgaben der Demo-Programme:

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
  Mit Zitat antworten Zitat
franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#5

Re: TApplicationEvents

  Alt 2. Apr 2004, 13: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;
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.197 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: TApplicationEvents

  Alt 3. Apr 2004, 12:55
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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz