Pobleme mit FREE (bzw. Destroy)

[mkinzler]

Wie sieht den TForm2 aus?

[hoika]

Hallo,

in FastMM4Options.Inc die in der MessageBox gezeigten
Compiler-Schalter enabled ($define ..}

und noch mal:
Warum wir TForm2 erzeugt, aber nicht freigegeben ?
Das ist dein 1. mem leak .

Merke die Form-Variable global unbd guib sie wieder frei,
wenn du das nächste Fenster erzeugst.


Heiko

[DeddyH]

Und GetFormImage erzeugt AFAIK auch bei jedem Aufruf eine neue Bitmap, die man wieder freigeben muss.

[DoktorD]

Huch, gleich so viele antworten.

Zitat von mkinzler:

Wie sieht den TForm2 aus?

Wenn ich Form2 mit Close schließe ist doch der Speicher frei gegeben, oder?

Delphi-Quellcode:

unit UntModalesFenster;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Close;
end;

end.

Zitat von DeddyH:

Und GetFormImage erzeugt AFAIK auch bei jedem Aufruf eine neue Bitmap, die man wieder freigeben muss.

Wie gebe ich den frei?

[DeddyH]

Zitat von DoktorD:

Wie gebe ich den frei?

Mit Free.

Delphi-Quellcode:

var bm: TBitmap;
begin
  bm := GetFormImage;
  try
    //irgendwas mit dem Bitmap machen
    ...
  finally
    bm.Free;
  end;
end;

[mkinzler]

Zitat:

Wenn ich Form2 mit Close schließe ist doch der Speicher frei gegeben, oder?

Nein. das Formular wird nur geschlossen.

[DoktorD]

Tatsächlich. Jetzt klappts. Super. Ich weiß aber immer noch nicht warum?

Hier erstmal der neue Code

Delphi-Quellcode:

procedure TFrmMain.Verschleiern(Status: Boolean);
var
  bm : TBitmap;
begin
  if Status = TRUE then
  begin
    PanelVerschleiern                := TPanel.Create(nil);
    PanelVerschleiern.Parent         := FrmMain;
    PanelVerschleiern.Align          := alclient;
    PanelVerschleiern.Visible        := FALSE;
    PanelVerschleiern.BevelOuter     := bvNone;

    ImageVerschleiern                := TImage.Create(PanelVerschleiern);
    ImageVerschleiern.Parent         := PanelVerschleiern;
    ImageVerschleiern.Align          := alclient;

    bm                               := self.GetFormImage;
    try
      ImageVerschleiern.Picture.Bitmap := bm;
    finally
      bm.Free;
    end;

    AlphaBlendRect(ImageVerschleiern.Canvas,PanelVerschleiern.ClientRect,clblack,80);

    PanelVerschleiern.Show;
  end
  else
  begin
    PanelVerschleiern.Hide;
    FreeAndNil( ImageVerschleiern);
    FreeAndNil( PanelVerschleiern);
  end;
end;

Was ist denn nun der unterschied? Ob ich das Bitmap gleich zuordne, ...
ImageVerschleiern.Picture.Bitmap := self.GetFormImage;
...oder erst über eine neue Variable?

Delphi-Quellcode:

    bm                               := self.GetFormImage;
    try
      ImageVerschleiern.Picture.Bitmap := bm;
    finally
      bm.Free;
    end;

[DeddyH]

Das sollte nur ein Beispiel sein. Eigentlich müsste es auch so gehen (ungetestet):FreeAndNil(ImageVerschleiern.Picture.Bitmap); Das natürlich, bevor Du das Image selbst freigibst.

[DoktorD]

Das hatte ich so gemacht. Und da ging es nicht. Komisch

Trotzdem vielen Dank an alle!!!