Version vom 5. September 2010, 15:27 Uhr

getObject

Name

getObject - liefert die Pixeldaten für ein TBitmap-Objekt, welche dann z.B. für glTexImage2D weiterverwendet werden können.

Delphi-Spezifikation

function getObject(hgdiobj: Cardinal; cbBuffer: Integer; lpvObject: Pointer): Integer;

Parameter

Beschreibung

getObject liefert zu einem Bitmap-Handle die Windows-Bitmap-Struktur, aus der einfach die Adresse der Pixeldaten gelesen werden kann, um sie z.B. für glTexImage2D weiter zu verwenden.

Anwendungsbeispiel:

var
  bm: tBitmap;  // Delphi-Bitmap
  buffer: windows.BITMAP; 
begin
  bm := tBitmap.Create;
  // Weitere Operationen, wie bm.loadFromFile o.ä.
  getObject(bm.Handle,sizeof(buffer),@buffer);
  // buffer.bmBits enthält nun die Adresse der Pixeldaten, die von glTexImage2D genutzt werden kann.

Alternativen

getObject ist eine Windows-API-Funktion und funktioniert generell mit allen Bitmaps für die ein Bitmap-Handle bekannt ist; für TBitmap im speziellen kann alternativ auch die Property Scanline mit dem Index height-1 aufgerufen werden:

var
  bm: tBitmap;  // Delphi-Bitmap
begin
  bm := tBitmap.Create;
  // Weitere Operationen, wie bm.loadFromFile o.ä.
  // bm.ScanLine[bm.height-1] enthält nun die Adresse der Pixeldaten, die von glTexImage2D genutzt werden kann.