delphi - 如何在 Delphi 中将颜色减少到指定数量？

Question

如何在 Delphi 中将颜色减少到指定数字（<=256）？我不想只使用：

 Bmp.PixelFormat := pf8bit;

因为那样我无法控制颜色的数量。我不想抖动，因为我已经知道如何抖动 256 或更少颜色的图像。

我发现了这个Median Cut 实现，但它是 1990 年的纯 Pascal 并且：

1. 不能在 Delphi 中编译
2. 说它是共享软件，售价 25 德国马克
3. 看起来（不知何故）不必要的复杂

我只想减少TBitmap32（Graphics32 位图类，仅支持 32 位颜色）到 <= 8 位 bmp。我不需要减少到 15/16 位，我不需要从 24 或 15/16 位图像减少。仅 32 位 => 8 位-

我使用的德尔福：7、2005、XE3。

Answer 1

一种快速实施、具有多种选择的廉价方法是使用 TGIFImage

uses
  gifimg;



 Procedure ReduceTo8Bit(var bmp:TBitmap; ColorReduction: TColorReduction; DitherMode: TDitherMode);
var
 GI:TGifImage;
begin
   GI:=TGifImage.Create;
   try
     GI.DitherMode := DitherMode;
     GI.ColorReduction := ColorReduction;
     GI.Assign(bmp);
     bmp.Assign(GI.Bitmap);
   finally
     GI.Free;
   end;
end;

测试

procedure TForm3.Button2Click(Sender: TObject);
var
 bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  try
     bmp.LoadFromFile('C:\bilder\bummi.bmp');
     ReduceTo8Bit(bmp,rmQuantizeWindows,dmSierra);
     bmp.SaveToFile('C:\bilder\bummi_8bit.bmp');
  finally
    bmp.Free;
  end;
end;

如果必须设置每个像素的位数，则更简单的方法是使用来自 gifimg 的 ReduceColors 和 rmQuantize

// BytesPerPixel integer with range of Range 3 - 8

DestBMP := ReduceColors(SourceBMP,rmQuantize,dmNearest,BytesPerPixel,0);