Größe eines Bitmap in Byte

[guidok]

Ähm, mal ne dumme Frage, aber wie ermittle ich die Größe eines Bitmaps in Byte? Ich benötige das, um ein Bitmap in einem FileStream zu speichern, aber mit SizeOf(Bitmap) erhalte ich natürlich nur die Größe des Zeigers. Ich steh grad etwas auf dem Schlauch und komm trotz Sucherei nicht so recht weiter...

Dank!

[mkinzler]

http://www.dsdt.info/tipps/?id=328

[guidok]

Danke für die Antwort, aber ich fürchte ich habe mich falsch ausgedrückt. Ich möchte die Größe eines TBitmaps wissen, das ich in einem TImage anzeigen lasse und nun zusammen mit einigen anderen Daten in einem FileStream speichern möchte.

[mkinzler]

Müsste aus der Grösse des Bildes und der farbtiefe berechenbar sein.

[guidok]

Also in der Art Höhe x Breite x Farbtiefe, richtig?

[mkinzler]

ja.

[turboPASCAL]

Pro Farbe ein Byte * Weite und Höhe.

Size := 1024 * 768 * 1 + 256 bei 8 Bit + 256? (ein Byte pro Farbe + Palettengrösse)
Size := 1024 * 768 * 3 bei 24 Bit
Size := 1024 * 768 * 4 bei 32 Bit

[Hawkeye219]

Hallo,

eigentlich benötigt man die Größe ja gar nicht, da die Bitmap selbst in der Lage ist, sich in einen Stream zu speichern: TBitmap.SaveToStream.

Falls du den Wert für einen anderen Zweck benötigst, kannst du ihn berechnen lassen:

Delphi-Quellcode:

var
  Bitmap : TBitmap;
  InfoHeaderSize : Cardinal;
  ImageSize : Cardinal;
begin
  Bitmap := TBitmap.Create;
  Bitmap.SetSize (400, 50);
  Bitmap.PixelFormat = pf24Bit;
  {Graphics.}GetDIBSizes (Bitmap.Handle, InfoHeaderSize, ImageSize);
  Bitmap.Free;
end;

Gruß Hawkeye

[guidok]

Vielen Dank, ich mit den Infos experimentieren.

Bitmap.SaveToStream habe ich auch schon entdeckt, aber ich glaube das nützt mir hier nichts, da ich ein dynamisches Array eines Records in eine Datei speichern will und dieser Record enthält unter anderem auch ein Bitmap.

Ich möchte also in folgender Reihenfolge speichern:

1. Anzahl der Elemente im Array
2. Größe des Bitmap
3. Daten des Bitmap
4. Größe des String
5. Daten des String
6. usw.

Guido