代码之家 › 专栏 › 技术社区 › user14668421

如何在Delphi VCL中将图像从PNG转换为BMP?

bmp vcl png delphi

user14668421 · 技术社区 · 2 年前

当我通过下面的例程将PNG图片转换为BMP图片时,BMP中的颜色与原始PNG中的颜色不同。

procedure TForm1.Button4Click(Sender: TObject);
var
  R: TRect;
  Bmp: TBitmap;
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromFile('C:\temp\Source.png');
    bmp := TBitmap.Create(Png.Width, Png.Height);
    try
      R := Rect(0, 0, Png.Width, Png.Height);
      bmp.Canvas.CopyRect(R, png.Canvas, R);
      bmp.SaveToFile('C:\temp\target.bmp')
    finally
      Bmp.Free;
    end;
  finally
    Png.Free;
  end;
end;

你能给我一个如何解决这个问题的提示吗?

1 回复 | 直到 2 年前

Shaun Roselt 2 年前

我刚刚测试了以下程序,它可以正常工作,没有任何问题。当比较原始PNG和结果BMP时,颜色看起来与我的人眼相同:

procedure ConvertPNGtoBMP(const PNGFileName, BMPFileName: string);
begin
  var PNG := TPNGObject.Create;
  var BMP := TBitmap.Create;
  try
    PNG.LoadFromFile(PNGFileName); // Load the PNG image
    BMP.Assign(PNG); // Assign the PNG image to the BMP object
    BMP.SaveToFile(BMPFileName); // Save the BMP image
  finally
    PNG.Free;
    BMP.Free;
  end;
end;

后果

我只是这样称呼它:

ConvertPNGtoBMP('MyPhoto.png', 'MyPhoto.bmp');

推荐文章

zeus · 如何在调整数组大小后保持指向动态数组的指针有效?

1 年前

Arthur Araujo · Delphi类层次结构中TCustomXXX类的原因是什么

1 年前

Wolfgang Bures · 如何解决idHTTP中的错误10054

1 年前

IceCold · 由于TStyleManager,消息丢失。尝试设置样式

1 年前

SignalOne · 德尔福(FMX)循环参考

1 年前

Sascha Ott · 如何从线程调用线程的方法?

1 年前

user1580348 · 问题:如何在上次最小化后还原应用程序?

1 年前

user14668421 · 如何在Delphi VCL中将图像从PNG转换为BMP?

2 年前

tua · Delphi的TLinkLabel坏了吗?

2 年前

Frank.Wu · delphi:RGB到HSL不正确

2 年前