Delphi BMP JPG去底转换成透明PNG

你可以使用 Delphi 中的 Graphics32 库来实现 BMP 和 JPG 转换成 PNG 并去除底色的操作。

以下是一个简单的代码示例：

uses
  GR32, GR32_Image, GR32_Transforms, GR32_Resamplers;

procedure ConvertToTransparentPNG(const inputFileName, outputFileName: string);
var
  bmp: TBitmap32;
  png: TPNGImage;
begin
  // 加载图片
  bmp := TBitmap32.Create;
  bmp.LoadFromFile(inputFileName);

  // 去除底色
  ReplaceColor(bmp, clWhite32, clNone32);

  // 转换成 PNG
  png := TPNGImage.Create;
  png.Assign(bmp);

  // 保存 PNG
  png.SaveToFile(outputFileName);

  // 释放内存
  bmp.Free;
  png.Free;
end;

你可以调用 `ConvertToTransparentPNG` 函数来将 BMP 或 JPG 文件转换成透明的 PNG 文件。其中，`inputFileName` 是输入文件名，`outputFileName` 是输出文件名。这个函数会加载输入文件，去除底色，然后将其转换成 PNG 格式并保存到输出文件中。