Exception in Destroy

[Gruber_Hans_12345]

Zitat:

Zitat von mkinzler

Dann setzte doch den Breakpoint dort.

und wo?

ich weiss ja nicht, bei welchen Free der Fehler auftritt, wenn ich das wüsste, wäre der Bug schon geschichte

der fehler tritt irgendwo innerhalb von TForm.Destroy auf, und dort werden hunderte komponenten rekursiv freigegeben, eben wie die als Controls im Formular und deren Childkontrols erzeugt worden sind.

Daher wüßte ich nicht, wo ich einen Breakpoint setzen sollte ...

[mkinzler]

und wo? TForm.Destroy oder schau mal, wo du manuell freigibst

[Gruber_Hans_12345]

Zitat:

Zitat von mkinzler

und wo? TForm.Destroy oder schau mal, wo du manuell freigibst

ja, im TForm.Destroy ist der Fehler, da wird irgendwo eine Komponente von mir freigegeben, die einen Fehler hat.
und diese Komponente suche ich nun ...

da werden leider zig verschiedene komponenten verwendet in diesem form, und jede ist der potentielle bug verursacher.

und meine frage ist nun, gibt es unter D2007 so etwas ähnliches wie memcheck, das mir alle erzeugten Objekte merkt, und bei einem erneuten versuch diese freizugeben einen logeintrag erzeugt, mit dem Callstack wie dieses Objekt ERZEUGT wurde

[mkinzler]

madExcept. Aber du kannst ja an der Stelle, wo der Fehler auftritt einen Breakpoint setzten und sehen welches Objekt es ist. Oder halt im Code suchen, welche Objekte du manuell freigibst.

[Andy090778]

omg, kann ja wohl nicht so schwer sein, eine paar haltepunkte sinnvoll zu setzen.

Sei froh, dass Du keine µ-Prozessoren einer Hardware programmierst. Da geht das mit dem Debuggen nämlich nicht so einfach...

[Gruber_Hans_12345]

Zitat:

Zitat von mkinzler

madExcept. Aber du kannst ja an der Stelle, wo der Fehler auftritt einen Breakpoint setzten und sehen welches Objekt es ist. Oder halt im Code suchen, welche Objekte du manuell freigibst.

Ja, wenn es so einfach wäre, ich sehe leider nicht, wo die Exception auftritt ...

bekomme nur eine Exception "Ungültige Zeigeroperation"
nach dem Anhalten ist der Cursor nicht in einer Code zeile, und der Stack zeigt an :

kernel32.RaiseException
HookedRaiseException
TObject.FreeInstance
TObject.Free
TComponent.DestroyComponents


und das wars

und wenn ich einen Breakpoint in die FreeInstance stekce, dann muß ich mal so 1000 mal auf F8 klicken, da es sich hier um ein Projekt handelt, und da sich der Fehler auch in eine der ca 1500 units verstecken kann sehe ich es mit dem Breakpoint etwas ungünstig.

und wenn ich nach der Exception mit F7 weitergehe, dann bin ich sofort im TCustomForm.Destroy

werde mir mal wieder das madExecept angucken (ob es diesen Fehler abfangen kann ...)

Zitat:

Zitat von Andy090778

omg, kann ja wohl nicht so schwer sein, eine paar haltepunkte sinnvoll zu setzen.

Sei froh, dass Du keine µ-Prozessoren einer Hardware programmierst. Da geht das mit dem Debuggen nämlich nicht so einfach...

Tja, auch wenn es dich wundern wird, ich programmiere sogar auf 3 verschiedenen µControllern, nur habe ich dort keine 2 Millionen Zeilen Sourcecode, aber auch bei den µControllern ist das Debuggen möglich, wenn man es kann ;)

[sirius]

Oder du änderst/überschreibst/hookst die FreeInstance und zählst einen Zähler in einer Datei hoch. Dann kannst du einen Breakpoint mit Zähler einsetzen. vielleicht hilft das.

[Gruber_Hans_12345]

so, nach zwei tagen suchzeit, habe ich nun meinen Fehler gefunden ...

Ich habe mir mal ein neues Objekt von einem TCanvas abgeleitet, das mir mehr funktionen zur Verfügung stellt.
und damit ich die nutzen kann habe ich überall

Delphi-Quellcode:

TmyCanvas(Canvas).TextOutAngle ...

das ging alles ohne probleme, nur kam dann irgendwann auch ein ClipRect dazu, das sich das alte HRGN in einer variable merkt.
und da der systemeigene erzeugete Canvas natürlich zuwenig platz dafür hat, hat das

Delphi-Quellcode:

TmyCanvas(Canvas).OldRgn := ....

zu großen problemen geführt.

Komischerweise aber nur mit D2007, unter D6 lief bzw läuft das alles noch immer ohne Probleme ... warum auch immer



Gibt es eigentlich irgendeine Möglichkeit, irgendein Tool, irgendetwas, um soetwas zu finden?
Ich habe hier Stunden um Stunden verbracht, um diesen sehr dummen Fehler zu finden, habe auch Tools wie madExcept und AQTime und co probiert, aber die zeigen entweder gar nichts an, oder den Fehler halt dann irgendwo an der falschen Stelle ...

[ralfschwalbe]

Hallo,

ich habe zwar in meinen Projekten "nur" ca. 600.000 Zeilen Code, aber ich bin von der Leistung von Eurekalog schwer begeistert!

Ich habe damit schon Fehler an fast unmöglichen Stellen (z.B.: im eigenen OLEDB-Provider) gefunden.

Einfach mal ausprobieren...

[Gruber_Hans_12345]

das problem ist halt nur, das es einfach zu spät ist, wenn die Exception auftritt, da kann halt niemand mehr sagen, wo der Fehler auftrat, da es eigentlich beim überschreiben des Speicherblockes (durch das falsche typecasten des Objektes) auftritt.
Und der nebeneffekt ist das dann das freigeben, von ganz anderen Objekten Fehler wirft.