Delphi png转bmp保持透明底色

旭语蓝轩

已于 2024-04-18 17:02:05 修改

阅读量533

点赞数 2

分类专栏： Delphi 文章标签：开发语言后端

于 2024-04-18 10:26:54 首次发布

本文链接：https://blog.csdn.net/qq_33397419/article/details/137910929

版权

Delphi 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了如何在Delphi程序中使用TPNGObject和TBitmap对象加载PNG图像文件（如sign_data.png），将其转换为32位像素的BMP格式，并保存为sign_data.bmp。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.btn1Click(Sender: TObject);
var
  png: TPNGObject;
  bmp: TBitmap;
begin
  png := TPNGObject.Create;
  Bmp := TBitmap.Create;
  try
    png.LoadFromFile('sign_data.png');
    bmp.PixelFormat := pf32bit;  //设置像素格式为32位，以支持透明
    bmp.Height := png.Height;
    bmp.Width := png.Width;
    bmp.Canvas.Draw(0, 0, PNG);  //将PNG图片绘制到Bitmap中
    bmp.SaveToFile('sign_data.bmp');

    //如果想再转换其他格式用bmp转换即可
  finally
    FreeAndNil(png);
    FreeAndNil(Bmp);
  end;
end;