Application.MainForm.Close verursacht einen >>External: STACK OVERFLOW<<

[stoffel_hessen]

Hallo Gemeinde,

ich habe die ganze Zeit meine Anwendung mit einem "HALT" beendet, vorher wurden die erzeugten "TStringList"en mit "Free" freigegeben.
Nun möchte ich es richtig machen und schließe erst alle erzeugten "TStringList"en und im Anschluss beende ich die Applikation mit

Code: Alles auswählen

procedure MeineAPP.Aufraeumen;
begin
  TextDatei_Vorlage_Core.Free;
  VorlageGrundkonfig.free;
  VorlageService.free;
  VorlageService_CPE2.free;
  KonfigDatei.free;
  Application.MainForm.Close;
end;

Dies führt zu einem Fehler bei "Application.MainForm.Close;"

External STACK OVERFLOW.jpg (10.04 KiB) 1478 mal betrachtet

Was mache ich falsch, bzw. wie kann ich den Fehler beheben?

Danke für die Unterstützung

[stoffel_hessen]

Noch ein Hinweis,

in der Meine.lpr stehen die nachfolgen Anweisungen.

Code: Alles auswählen

begin
  Application.Initialize;
  Application.CreateForm(TSDIMeineAPP, SDIMeineAPP);
  Application.CreateForm(TForm_Ausgabe_Fenster, Form_Ausgabe_Fenster);
  Application.CreateForm(TForm_VSI, Form_VSI);
  Application.CreateForm(TF_Tunnel_Daten, F_Tunnel_Daten);
  Application.CreateForm(TSonderkonfig, Sonderkonfig);
  Application.CreateForm(TCPE2_Daten, CPE2_Daten);
  Application.CreateForm(TFormCorePort, FormCorePort);
  Application.Run;
end.

Beim schließen der Anwendung ist nur das Hauptfenster geöffnet

[Jorg3000]

Versuch mal FreeAndNIL() anstelle der .Free in deiner Aufraeumen-Procedure.
Normalerweise würde man zwar keinen Stack Overflow erwarten, falls eine Variable durch Close doch nochmal verwendet würde, aber vielleicht ändert sich dadurch etwas, das dich der Ursache näher bringt.

[af0815]

Warum schliesst du nicht einfach das Hauptfenster ? Im OnDestroy auräumen und es sollte passen.

Das mit dem Stack Overflow deutet auf eine Rekursion hin. Nicht das dein aufräumen rekursiv aufgerufen wird durch das explizite aufrufen von close.

[stoffel_hessen]

Warum schliesst du nicht einfach das Hauptfenster ? Im OnDestroy auräumen und es sollte passen.

Leider befinde ich mich noch im Tal der Ahnungslosen, habe es nun abgeändert, nun kommt es zu keinem Fehler mehr

Das mit dem Stack Overflow deutet auf eine Rekursion hin. Nicht das dein aufräumen rekursiv aufgerufen wird durch das explizite aufrufen von close.

Das war wohl so.

DANKE für die Unterstützung

[PascalDragon]

Was mache ich falsch, bzw. wie kann ich den Fehler beheben?

Von wo aus rufst du denn dein Aufraumen auf? Wenn du das in einem OnClose oder so machst, dann beißt sich die Katze selbst in den Schwanz und du hast eine endlose Rekursion (weswegen dir dann auch der Stack ausgeht).
Pack die ganzen Free-Aufrufe in den OnDestroy deines Formulars (oder was ist MeineApp?) und ruf einfach nur Application.MainForm.Close statt Aufraumen auf, wenn du das Formular schließen möchtest (außer im OnClose!).

[stoffel_hessen]

Ich habe mich zu früh gefreut.
In meinem Hauptformular werden auch weitere Formulare aufgerufen.
Diese Formulare schließe ich jeweils mit einem Button, dieser ruft dann im Formular "Form_Ausgabe_Fenster"

Code: Alles auswählen

Form_Ausgabe_Fenster.Close;

auf und das Formular schließt sich dann auch ohne Fehler.
Schließe ich nun das Hauptformular, kommt erneut der Stack Overflow.
Wie schieße ich welches Fenster richtig, so das es zu keinem Stack Overflow mehr kommt.
In den Unterformularen habe ich folgenden stehen:

Code: Alles auswählen

procedure TFormCorePort.FormDestroy(Sender: TObject);
begin
  aufraeumen_coreport;
end;
procedure TFormCorePort.aufraeumen_coreport;
begin
  FormCorePort.Close;
end;
procedure TFormCorePort.BT_Core_AbbruchClick(Sender: TObject);
begin
//        close;
  aufraeumen_coreport;
end;

Im Hauptformular habe ich

Hauptformular_01.JPG (10.54 KiB) 1447 mal betrachtet

Außerdem gibt es die Procedure

Code: Alles auswählen

procedure TMeineAPP.FormDestroy(Sender: TObject);
begin
  Aufraeumen;
end;

procedure TMeineAPP.Aufraeumen;
begin
  TextDatei_Vorlage_Core.Free;
  VorlageGrundkonfig.free;
  VorlageService.free;
  VorlageService_CPE2.free;
  KonfigDatei.free;
  Application.MainForm.Close;  
end;

Und das liegt hinter dem Click auf den Exit-Button

Code: Alles auswählen

procedure TMeineAPP.BTExitClick(Sender: TObject);
begin
  Aufraeumen;
end;

Bin total verwirrt, was muss nun wo hinein und was erzeugt eine Rekursion?

[Winni]

Hi!

Erstmal einen Schritt zurück.

Warum beendest Du eine Form mit Halt?

Halt ist eine ziemlich brutale Maßnahme und kümmert sich nicht um aufräumen.
Close ist die normale Vorgehensweise.

Wenn Du eine Form schließt, dann wir durch das close das FormDestroy aufgerufen und dort bringt man alles Speicher-Aufräumen unter - nur von Sachen, die man selbst gestartet hat.


Winni

[stoffel_hessen]

Ich habe nun in allen Formularen auf den Klick auf den Exit-Button ein "Close" hinterlegt.
Das Hauptformular wird über "OnDestroy-> FormDestroy geschlossen

Code: Alles auswählen

procedure MeineAPP.FormDestroy(Sender: TObject);
begin
  TextDatei_Vorlage_Core.Free;
  VorlageGrundkonfig.free;
  VorlageService.free;
  VorlageService_CPE2.free;
  KonfigDatei.free;
  Application.MainForm.Close;
end;

Eine Frage habe ich aber noch in diesem Zusammenhang, wird das "OnDestroy" immer aufgerufen, wenn das Formular geschlossen wird.
Also sowohl über einen Button mit einem "Close" sowie auch wenn das Formular mit dem "X" oben rechts geschlossen wird.

[wp_xyz]

Eine Frage habe ich aber noch in diesem Zusammenhang, wird das "OnDestroy" immer aufgerufen, wenn das Formular geschlossen wird.
Also sowohl über einen Button mit einem "Close" sowie auch wenn das Formular mit dem "X" oben rechts geschlossen wird.

Setze einfach einen Breakpoint auf irgendeiner Zeile deines OnDestroy-Handlers und probier's aus. Wenn das Programm dort anhält, wird die OnDestroy-Routine aufgerufen.

[stoffel_hessen]

Setze einfach einen Breakpoint auf irgendeiner Zeile deines OnDestroy-Handlers und probier's aus. Wenn das Programm dort anhält, wird die OnDestroy-Routine aufgerufen.

Danke, darauf hätte ich auch selbst kommen können .
Und Ja, wird er

[af0815]

Nur vielleicht so als Info für stabilere Programme.

Bei mir wird NUR EIN Formular automatisch erzeugt, alle anderen Formulare bzw. Datenmodule erst wenn sie benötigt werden von diesen einem Formular. Viele Formulare haben einen ganz kurzen Lebenszyklus, die werden dynamisch erstellt, modal aufgerufen, Frage Daten ab oder zeigen die an und werden anschließend wieder zerstört. Je besser man die ganzen Resourcen im Griff hat umso stabiler wird alles. Auch lassen sich Formulare dann einzeln testen (wenn man entsprechend gekapselt hat) und man hat stabilere Programme, die nicht mehr von Zufällen in der Erstellung abhängen. Vor allen wer könnte vielleicht für das Destroy zuständig sein. Gerne mach ich mal beständige Formulare die mittels Singleton erstellt werden und quasi global bei mir genützt werden. Verhalten sich bei mir wie intelligente Dialoge

Und immer eine Debug und Release Version erstellen, Entwicklung mit allen Debugeinstellungen eingeschaltet ! Und Vermeidung, das im eigenen Code 'Hints' auftauchen. Diese entweder bearbeiten oder gezielt im Quellcode deaktivieren. (NICHT generell unterdrücken ! - Außer den Hints zu Inline )

[TBug]

Hallo zusammen,

hier passen einige Angaben des TE nicht zusammen.

In der geposteten lpr gibt es keine Form mit dem Namen "MeineAPP" und "TMeineAPP", welche in den darauffolgenden Posts genannt werden und einen FormDestroy-Event besitzen aber eine TSDIMeineAPP.

Sollte es sich bei diesen 3 Fenstern um jeweils das selbe handeln, nur im Laufe des Thread umbenannt, dann ist die erste Ursache im FormDestroy-Event zu suchen. Denn dann würde es sich um das Hauptfenster handeln, welches beim Zerstären selbst nochmals das Close aufruft und wieder und wieder....

Wenn Du eine Form schließt, dann wir durch das close das FormDestroy aufgerufen

Naja nicht immer.

FormDestroy wird nur aufgerufen, wenn die CloseAction auf caFree gesetzt ist.
.

[PascalDragon]

In den Unterformularen habe ich folgenden stehen:

Code: Alles auswählen

procedure TFormCorePort.FormDestroy(Sender: TObject);
begin
  aufraeumen_coreport;
end;
procedure TFormCorePort.aufraeumen_coreport;
begin
  FormCorePort.Close;
end;
procedure TFormCorePort.BT_Core_AbbruchClick(Sender: TObject);
begin
//        close;
  aufraeumen_coreport;
end;

Da ist auch schon dein Fehler: Wenn der OnDestroy Handler aufgerufen wird, dann ist dein Formular bereits einerseits geschlossen und andererseits dabei abgebaut zu werden. Nun rufst du dort indirekt Close auf (*), was wiederum dazu führen wird, dass der OnDestroy Handler aufgerufen wird und so weiter. Räum in einem OnDestroy Handler einfach nur die Sachen auf, die du im OnCreate oder während der Laufzeit des Formulars angelegt hast (ohne eventuelle dynamische Controls mit einem gültigen Owner) und nichts anderes. Dieser Handler wird wirklich nur ganz zum Schluss zur Lebenszeit des Formulars aufgerufen.

(*) Du solltest innerhalb des Formulars nicht die global Variable des Formulars benutzen, da dies dazu führen würde, wenn du das Formular zweimal gleichzeitig erstellst, dass das falsche Formular geschlossen wird. Mach einfach nur Close.

[stoffel_hessen]

Vielen Dank für eure Unterstützung und Erklärungen.