Wie kann ich in guter Qualität 24Bit zu 8Bit konvertieren ?

[thomas2009]

hi

natürlich wenn man ein Bitmap von oben von 24Bit nach unten 8Bit die Farbe reduziert, verliert das Bild ein Bisschen Qualität

muss man eine Funktion erstellen, die das Bitmap von 24Bit zu 8Bit konvertiert ?

oder reicht es, wenn ich folgendes machen :|

Delphi-Quellcode:

var
my8bit : TBitmap;
begin
my8Bit:=TBitmap.Create;
my8Bit.assign(Image1.Picture.Bitmap); // image1: 24Bit
my8Bit.Pixelformat:=pf8Bit;
...

[mkinzler]

Höchst wahrscheinlich gar nicht.
Bei 24Bit hast du 8Bit pro Farbe (RGB). Ein 8-Bit Bild verwendet eine Farbpalette, wobei jeder Eintrag der Palette 6Bit pro Farbe verwendet.
Zuerst musst du mal ermitteln, wieviel verschiedene Farbwerte im 24Bit Bild enthalten sind, wenn dies weniger als 256 sind, dann musst du die einzelnen Werte auf die 18Bit zu mappen.
Bei mehr als 256 Farbwerten, müssen dann mehrere Farbwerte auf den selben Wert abgebildet werden.

[thomas2009]

hier im Forum habe ich diese Funktion gefunden und schon getestet. es ist OK
Wenn ich das Bitmap direkt über die Funktion selbst speichere dann funktioniert
aber wenn ich das Bild durch Aufruf über das Button,
dann wird das Bild nicht in 8bit sondern in 24 Bit konvertiert !

Vielleicht rufe ich die Funktion falsch auf :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('24BitBild.bmp');
BMPReduceTo8Bit(image1.Picture.Bitmap); // ist richtig so ?
Image1.Picture.Bitmap.SaveToFile('8BitBild.bmp');

Hier ist die Funktion

[Capa]

da das ganze eine funktion ist solltest du es vielleicht so aufrufen

Function BMPReduceTo8Bit(BitmapXXBit: TBitmap): TBitmap;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('24BitBild.bmp');
  Image1.Picture.Bitmap := BMPReduceTo8Bit(image1.Picture.Bitmap);
  Image1.Picture.Bitmap.SaveToFile('8BitBild.bmp'); 
end;

Kannst auch ein 2tes Image erstellen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Image2: TImage;
begin
  Image2 := TImage.Create;
  Image1.Picture.LoadFromFile('24BitBild.bmp');
  Image2.Picture.Bitmap := BMPReduceTo8Bit(image1.Picture.Bitmap);
  Image2.Picture.Bitmap.SaveToFile('8BitBild.bmp'); 
end;

[thomas2009]

Es ging. Danke