TBitmap转换位数的问题32位->24位, 32位->4位

Question

诚心请教大牛:
在TBitmap中存有图片, 用Savetofile('aaa.bmp')后得到的图片为32位现在希望能存为24bit的bmp图片, 应该如何操作?另有一图片也是32bit, 包含16种颜色, 即已经知道调色板的颜色值, 图片上已有颜色也均在调色板颜色之内, 如何存为4bit的bmp图片?诚心请教, 感谢:-)

Answer 1

设置Bitmap.PixelFormat
  TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

Answer 2

多谢 已经找到答案了没想到没想到  Delphi处理这个问题这么简单
差点昨天用VC写个DLL了...

Answer 3

例如：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  BP: TBitmap;
begin
  BP := TBitmap.Create;
  try
    BP.LoadFromFile('C:\32.bmp');
    BP.PixelFormat := pf24bit;
    BP.SaveToFile('C:\24.bmp');
  finally
    BP.Free;
  end;
end;