EOutOfResources bei resize

[ebber]

Hallo

wenn ich meine Form resize dann kommt dieser Fehler :

Delphi-Quellcode:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Lampen.exe ist eine Exception der Klasse EOutOfResources mit der Meldung 'Für diesen Befehl ist nicht genügend Speicher verfügbar.
' aufgetreten.
---------------------------
Anhalten   Fortsetzen   Hilfe   
---------------------------

Delphi-Quellcode:

procedure TForm11.FormResize(Sender: TObject);
begin

      TimerRefresh.Enabled := false;

   CircleScope.Free;

        CircleScope := TCircleScope.Create(PaintFrame.Width, PaintFrame.Height);
   CircleScope.Pen:= $00804000;
   CircleScope.Offset := TrBOffset.Position;
   CircleScope.Radius := TrBRadius.Position;

      TimerRefresh.Enabled := true;

end;

Hier soll das alte CircleScope zerstört und ein neues erstellt werden. Beim jedem resize braucht das ding ca. 50MB mehr Speicher. Da ist der bald voll. Zerstöre ich das irgendwie nicht richtig ?

MfG

[Bernhard Geyer]

Ich vermute TCircleScope hat interne Speicherlücken.

Häng FastMM4 und lass dir die Speicherlücken ausgeben.

[DGL-luke]

anscheinend gibt es seinen speicher nicht anständig frei. Schau dir mal die Destruktoren an.

[Dunkel]

Warum muss das Objekt CircleScope überhaupt beim Resizen zerstört & neu erstellt werden? Reicht nicht eine Parameterübergabe der geänderten Größe an CircleScope?

[semo]

heir einmal der constructor dieser klasse:

Delphi-Quellcode:

     
      Constructor TCircleScope.Create(Width, Height : Integer);
      begin
        VisBuff := TBitmap.Create;
        BackBmp := TBitmap.Create;

          VisBuff.Width := Width;
          VisBuff.Height := Height;
          BackBmp.Width := Width;
          BackBmp.Height := Height;

          BkgColor := clBlack;
          ScopeRad := 30;
          ScopeOff := 30;
          PenColor := clWhite;
          DrawType := 0;
          DrawRes  := 2;
          FrmClear := True;
          UseBkg := False;
      end;

der desctructor ist leider nicht in der unit aufzufinden?!
wie doof ist das denn?

[bernau]

Zitat:

Zitat von computer-glossar.de

heir einmal der constructor dieser klasse:

Delphi-Quellcode:

     
      Constructor TCircleScope.Create(Width, Height : Integer);
      begin
        VisBuff := TBitmap.Create;
        BackBmp := TBitmap.Create;

      end;

der desctructor ist leider nicht in der unit aufzufinden?!
wie doof ist das denn?

Es werden zwei Bitmap erzeugt. Da der Destructor nicht vorhanden ist, werden diese zwei Bitmap nicht freigegeben. Lege den Destructor für TCircleScope an und gib die beiden Bitmap frei.

Delphi-Quellcode:

     
Destructor TCircleScope.destroy;
  begin
    VisBuff.free
    BackBmp.free;
    inherited
  end;

[ebber]

Danke. Jetzt funktionierts.
Respekt, wie gleich jemand die Klasse gefunden hat. :thumb:

MfG

[semo]

google is your best friend :)