Re: Fehler beim Drehen eines Bildes
Das war der Fehler!!!
Jetzt funzt alles, wie es soll!! Danke für die Hilfe mfg Hazardos |
Re: Fehler beim Drehen eines Bildes
@scp: damit schafft du dir aber ein Speicherloch, da du bei graphic2bmp zwar eine Bitmap erzeugst, diese aber nie wieder freigibst.
Mfg Frank |
Re: Fehler beim Drehen eines Bildes
@Keildorn
In dem Fall wird doch das Bitmap an das TImage übergeben, somit übernimmt das die Verwaltung und auch die Freisetzung. |
Re: Fehler beim Drehen eines Bildes
Zitat:
Delphi-Quellcode:
ist
image1.Picture.bitmap := Graphic2Bmp(image1.Picture.Graphic);
Delphi-Quellcode:
oder sowas in der Art. auf alle Fälle steht ein assign dahinter.Das wird in der Set-methode geregelt. Du kopierst nur die bitmap. die übergebene Bitmap ist nach wie vor da. Das wäre sonst ja auch schlimm.
image1.Picture.bitmap.assign(Graphic2Bmp(image1.Picture.Graphic));
entweder du schreibst die Funktion um und übergibst eine Bitmap oder
Delphi-Quellcode:
Ich persönlich finde Objekte als Rückgabe von Funktionen nicht gut, hier vergißt man schnell das free.
Var bmp:Tbitmap;
begin If not image1.Picture.Graphic.Empty then begin bmp:=Graphic2Bmp(image1.Picture.Graphic); image1.Picture.bitmap := bmp; bmp.free; end; ... im übrigen fehlt auch beim drehen ein free:
Delphi-Quellcode:
Das ist vielleicht auch der Grund, warum immer auch über DoKo-Bücher gemeckert wird. Das free zu vergessen sind Anfängerfehler, außerdem fehlt hier ein try-block.
procedure Drehen90Grad(Bitmap:TBitmap);
... begin Bitmap.pixelformat := pf32bit; help := TBitmap.Create; .... bitmap.Assign(help); help.free; end; Mfg Frank |
Re: Fehler beim Drehen eines Bildes
Zitat:
|
Re: Fehler beim Drehen eines Bildes
Naja, ein Anfänger bin ich nicht. In der Regel verwende ich auch Free. Nur in dem Fall habe ich mich vertan, habe grad mal in Graphics.pas geguckt, stimmt, wird nur ein Assign() durchgeführt.
|
Re: Fehler beim Drehen eines Bildes
Zitat:
Sorry Frank |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz