Delphi VCL中PNG转BMP颜色不一致问题求助

架构老林

2026-6-23

Delphi VCL PNG转BMP颜色不一致的解决思路

出现颜色偏差的核心原因是默认创建的TBitmap像素格式、颜色深度与PNG不匹配，或者CopyRect方法的颜色转换逻辑存在缺陷。以下是具体解决思路：

1. 统一像素格式与颜色深度

默认TBitmap可能采用系统默认的颜色深度（如24位），而PNG常为32位带alpha通道，直接复制会丢失颜色信息。需显式设置BMP的像素格式为32位：

bmp.PixelFormat := pf32bit;

2. 替换`CopyRect`为`Canvas.Draw`

CopyRect仅复制画布像素，未调用VCL针对PNG的专用渲染逻辑，改用Draw方法能正确处理PNG的颜色空间与alpha通道：

bmp.Canvas.Draw(0, 0, Png);

3. 处理PNG的透明通道

若原PNG包含透明区域，需设置BMP的Alpha格式以保证颜色计算正确：

if Png.Transparent then
  bmp.AlphaFormat := afPremultiplied;

修改后的完整代码

procedure TForm1.Button4Click(Sender: TObject);
var
  Bmp: TBitmap;
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromFile('C:\temp\Source.png');
    bmp := TBitmap.Create(Png.Width, Png.Height);
    try
      bmp.PixelFormat := pf32bit;
      if Png.Transparent then
        bmp.AlphaFormat := afPremultiplied;
      bmp.Canvas.Draw(0, 0, Png);
      bmp.SaveToFile('C:\temp\target.bmp');
    finally
      Bmp.Free;
    end;
  finally
    Png.Free;
  end;
end;