Bitmap als Zeiger - Ich versteh es nicht !

[jfheins]

Kleines Beispiel:

Delphi-Quellcode:

function MyFunc (AValue: String): TBitmap;
var
  MyVar: Boolean;
begin

  //Etwas machen

  Result := TBitmap.Create;

  Result.Machwas;

end;

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

var
  TempBmp, Bmp1, Bmp2, Bmp3, Bmp4: TBitmap;
begin
  Bmp1:= TBitmap.Create; 
  Bmp2:= TBitmap.Create; 
  Bmp1.LoadFromFile('C:\bild1.bmp'); 
  Bmp2.LoadFromFile('C:\bild2.bmp'); 

  TempBmp := MyFunc ('Ein Bitmap bitte');

  Bmp3 := TempBmp; // Addresse zugewiesen - Bmp3 und TempBmp zeigen auf dasselbe Bitmap

  Bmp4 := TBitmap.Create;
  Bmp4.Assign (TempBmp); // Bitmap Kopiert

  // Hier zeigen TempBmp und Bmp3 auf das zurückgegebene Bitmap und Bmp4 zeigt auf eine Kopie dessen.

  TempBmp := MyFunc ('Ein anderes Bitmap bitte'); // Kein Leak, wel Addresse noch in Bmp3
  // Bmp3 := nil; // Leak
  FreeAndNil (Bmp3);

Ich hoffe, ich konnte dir helfen ;)

[xaromz]

Hallo,

Zitat:

Zitat von jfheins

Kleines Beispiel:

Delphi-Quellcode:

...
Bmp4.Assign (TempBmp); // Bitmap Kopiert
...

Das wird so nicht funktionieren, wenn Du Bmp4 nicht initialisierst.

Gruß
xaromz

[jfheins]

:oops: Das sollte nicht passieren ...

[Cicaro]

@meisteralex:
Es ist schon richtig gesagt worden: es ist nicht sehr elegant eine Instanz als Rückgabewert einer Funktion zu verwenden.

Erstell doch einfach außerhalb der Funktion/Prozedur alle notwendigen Bitmaps, dann übergib' sie der Funktion/Prozedur als Zeiger.

Delphi-Quellcode:

procedure BmpEncode(Bitmap1,Bitmap2,Bitmap3:TBitmap);
begin
  // macht was mit Bitmap1 und Bitmap2 und legt das Ergebnis in Bitmap3
end;

So sollte es ohne Probleme funktionieren.

Eleganter finde ich diese Prozedur, wenn man ScanLine nicht braucht und stattdessen mit den relativ schnellen API-Funktionen arbeitet:

Delphi-Quellcode:

procedure EncodeDCs(SrcDc1,SrcDC2,DestDC:HDC);
begin
  // macht was mit SrcDC1 und SrcDC2 und legt das Ergebnis in DestDC
end;

// Aufruf:
EncodeDCs(Bitmap1.Canvas.Handle,Bitmap2.Canvas.Handle,Bitmap3.Canvas.Handle);

Sinnvoll bei sprachübergreifender Programmierung.

[meisteralex]

jo hab das prinzip jetzt verstanden -> dank euch, also vielen dank