Memoryleak bei dynamischen Forms ?

[Ghostwalker]

Ich hab hier ein kleines Testprogramm geschrieben, das, neben dem Hauptformular, mehrere Unterformulare hat (mit je einem Riesenbild zur Verdeutlichung ).

Diese Unterformulare werden im Hauptform per Listbox ausgewählt und per Buttonclick dynamisch erzeugt:

Delphi-Quellcode:

  procedure THauptformular.Showform(Item:integer);
  begin
    case item of
       0 : begin
             form1 := TForm1.Create(self);
             form1.onclose := DoCloseSubForm;
             form1.Tag := item;
             form1.Show;
           end;
       1 : begin
             form2 := TForm2.Create(self);
             form2.OnClose := DoCloseSubForm;
             form2.Tag := item;
             form2.Show;
           end;
       2 : begin
             form3 := TForm3.Create(self);
             form3.onclose := DoCloseSubForm;
             form3.Tag := item;
             form3.Show;
           end;
       3 : begin
             form4 := TForm4.Create(self);
             form4.onclose := DoCloseSubForm;
             form4.Tag := item;
             form4.Show;
           end;
       4 : begin
             form5 := TForm5.Create(self);
             form5.onclose := DoCloseSubForm;
             form5.Tag := item;
             form5.Show;
           end;
       5 : begin
             form6 := TForm6.Create(self);
             form6.onclose := DoCloseSubForm;
             form6.Tag := item;
             form6.Show;
           end;
       6 : begin
             form7 := TForm7.Create(self);
             form7.onclose := DoCloseSubForm;
             form7.Tag := item;
             form7.Show;
           end;
    end;
  end;

Soweit funktioniert das ganze auch wunderbar.

Beim Schließen des Unterformulars wird die Instanz nun wieder freigegeben:

Delphi-Quellcode:

procedure THauptformular.DoCloseSubForm(Sender: TObject;
  var Action: TCloseaction);
begin
  action := caFree;
end;

Das scheint aber nur teilweise zu funktionieren. Lt. Taskmanager bleiben etwa 650Kb stehen und zwar jedesmal, also wenn ich die Unterformulare 5 mal aufrufe, bleiben insgesamt 3250 Kb stehen !!. Wie kommt das und wie kann man das verhindern ?

[oki]

Werden die Formulare auch wirklich zerstört und nicht nur versteckt? Ich hatte mit der Freigabe an der Stelle bis jetzt kein Problem.
Gib auch mal explizit dein "Riesenbild" mit frei.

Gruß oki

[mkinzler]

Wie schließst du die Fenster?

[alzaimar]

Nimm doch einfach MemProof oder FastMM, damit hast Du gleich die Zeile, in der das Leck auftritt.

[Ghostwalker]

@mkinzler

Über caFree im onClose-Event (siehe Quelltext).

@alzaimar

Memproof hab ich probiert, aber der zeigt nada an. FastMM werd ich noch probieren.

[alzaimar]

Zitat:

Zitat von Ghostwalker

@mkinzler
Über caFree im onClose-Event (siehe Quelltext).

Äh.. THauptFormular wird mit caFree freigegeben, und die TForm1...TForm5 auch? Das steht da nicht :stupid:

[Ghostwalker]

Nein..wie man aus dem Quelltext sehen kann, weise ich jedem Unterformular die DoCloseSubForm-Methode des Hauptformulars zu (die hat nix mit onClose vom Hauptformular zu tun !!). In dieser wird das Formular freigegeben via caFree.

Das Hauptformular wird ganz normal beim Programmstart erzeugt und am ende freigegeben.

[alzaimar]

Hupsa... Au weia :oops:

Ah.. ich weiss es (vielleicht). Wieso sollten diese Formulare freigegeben werden, außer Du schließt sie alle explizit am Programmende?

Ersetze das 'Formx := TFormx.Create(Self)' durch ein 'Application.CreateForm (TFormx, Formx)' und dann werden die Formulare auch beim Programmende freigegeben.

[Ghostwalker]

Ähm...ok...vielleicht auch mal mein vorgehen :):

Ich starte das Programm -> Hauptformular wird normal aufgebaut

-> auswahl eines der Unterformulare ->Speicheranstieg ->Unterformular wird angezeigt
-> Ich schließe das Unterformular -> wird teilweise freigegeben, es bleiben aber ca. 650 K stehen
-> Ich öffne ein anderes Unterformular -> Speicheranstieg -> Unterformular wird angzeigt.
-> Ich schließe auch dieses -> wieder nur teilweise freigegeben, wieder bleiben ca 650K stehen.

Wenn ich das Programm komplett beende bleibt in dem sinn nix stehen (lt. Memproof und FastMM).

Was interresant ist, wenn ich das gleiche Unterformular zweimal auf und zu mache bleibts bei den 650K.

[hoika]

Hallo,

das caFree spielt AFAIK nur eine Rolle bei MDI,
weil dort der Standard caHide ist.


ein Formular muss explizit per Form.Free freigegeben werden,
es sei denn du nimmst das oben erwähnte Application.CreateForm.

Ein Modales Fenster muss also z.B. immer so aufgerufen werden

Delphi-Quellcode:

  Form:= TForm.Create(Self);
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;

Zum Taskmanager,
wann genau stehen die 3MB zu viel Speicher drin ?

So richtig verstehe ich dein "5mal aufrufen" nicht.

setz doch mal nen Breakpoint auf TForm1.Destroy
(Ereugnis erzeugen, irgendwas dort machen, z.B. i:= 0)
und schaue nach, ob der Breakpoint angesprungen wird.

Das mit dem "bleibt" 650 kB kann ich jetzt nicht so verstehen ;)


Heiko