DBR Delphi-Ecke

// Wenn Bitmaps z.B. in einen Stream gespeichert werden sollen, kann man vorher
// die Größe in Bytes ermitteln, die das Bild im Stream und auf der Platte haben
// wird. Querverweis: Bitmaps aus Arrays oder Records speichern

// Getestet mit D4 unter WinME

function BitmapStreamGroesse(hbmp: HBitmap): Longword; 
var InfoHeaderSize, ImageSize: DWord; 
begin 
  GetDIBSizes(hbmp, InfoHeaderSize, ImageSize); 
  result := InfoHeaderSize + ImageSize + 14; 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  bmp: TBitmap; 
  gr: Longword; 
begin 
  bmp := TBitmap.create; 
  bmp.loadfromfile('d:\bilder\bingo.bmp'); 
  gr := BitmapStreamGroesse(bmp.handle); 
  showmessage(inttostr(gr)); 
  bmp.free; 
end;