Freigeben von Bitmap funktioniert nicht

[gordon freeman]

Hi Leute,
ich habe ein Objekt TBildbearbeiter, dass in seinem Constructor ein Bitmap erzeugt. Das Objekt eine Prozedur, in der mit dem erzeugten Bitmap gearbeitet wird, im Destructor wird das Bitmap dann wieder freigegeben. Allerdings bekomme ich an der Stelle immer eine AV. Wenn ich die Zeile auskommentiere geht es.

Delphi-Quellcode:

TBildbearbeiter = class
  hBild : TBitmap;
//etc...

constructor Create();
begin
  hBild := TBitmap.Create;
end;

function SchwarzWeissBild(pBild:TBitmap):TBitmap;
begin
  hBild := pBild;
  //Das Bitmap wird verändert, Canvas Befehle, etc....
  result := hBild;
end;

destructor Destroy();
begin
  hBild.destroy; //hier kommt die AV, außer wenn ich auskommentiere, auch free geht nicht
end;

Ich häng das Programm nochmal an, falls es sich einer nochmal mit Aufruf, etc. angucken will.


tia, mfg, gordon

[Khabarakh]

Zitat von gordon freeman:

  hBild := pBild;

Hier weist du dem Feld das Bitmap des Images zu, dieses wird aber natürlich vom Image selbst freigegeben. Wenn du es zusätzlich freigeben willst, knallt es.

[gordon freeman]

Ich brauch hBild nicht freigeben?!

okay, danke für die schnelle Antowrt

[Khabarakh]

Wenn es nur eine Referenz auf ein Objekt ist, dass von einer anderen Klasse verwaltet und freigegeben wird, nein.
Allerdings erzeugst mit
hBild := pBild; ein Speicherleck, da du den einzigen vorhandenen Pointer auf das im Konstruktor erstellte Bitmap fortwirfst.

[jim_raynor]

Ergo, du brauchst auch das TBitmap.Create nicht