delphi 把位图转换为透明png

要将 Delphi 中的位图（Bitmap）转换为透明的 PNG 格式，您可以使用 Graphics32 库。Graphics32 是一个免费的开源图形库，它提供了许多处理图像的工具和功能，包括将 BMP 转换为 PNG。

以下是将位图转换为透明 PNG 的代码示例：

uses
  GR32, GR32_PNG;

procedure BitmapToTransparentPNG(const Bitmap: TBitmap; const Filename: string);
var
  PNG: TPortableNetworkGraphic32;
  BMP32: TBitmap32;
begin
  BMP32 := TBitmap32.Create;
  try
    BMP32.Assign(Bitmap);
    BMP32.DrawMode := dmBlend;
    BMP32.MasterAlpha := $FF; // 设置透明度
    BMP32.DrawTo(PNG);
  finally
    BMP32.Free;
  end;

  PNG.SaveToFile(Filename);
  PNG.Free;
end;

这个例子中，我们将位图转换为 TBitmap32 类型，然后设置透明度，最后再将位图转换为 PNG 格式并保存到文件中。

相关问题

delphi 位图转换为透明PNG

你可以使用 Delphi 内置的 `TPngImage` 组件来将位图转换为透明 PNG 图像。下面是一个简单的示例代码：

uses PngImage;

procedure ConvertBitmapToTransparentPng(const Bitmap: TBitmap; const FileName: string);
var
  Png: TPngImage;
  X, Y: Integer;
  Pixel: PRGBQuad;
begin
  Png := TPngImage.CreateBlank(COLOR_RGBALPHA, 8, Bitmap.Width, Bitmap.Height);
  try
    // 将位图数据复制到 PNG 图像中
    for Y := 0 to Bitmap.Height - 1 do
    begin
      Pixel := Bitmap.ScanLine[Y];
      for X := 0 to Bitmap.Width - 1 do
      begin
        Png.AlphaScanline[Y][X] := Pixel.rgbReserved;
        Png.Pixels[X, Y] := Pixel^;
        Inc(Pixel);
      end;
    end;

    // 将 PNG 图像保存到文件
    Png.SaveToFile(FileName);
  finally
    Png.Free;
  end;
end;

你可以将上述代码保存到一个单元文件中，并在需要的地方调用 `ConvertBitmapToTransparentPng` 这个过程即可。例如：

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    // 加载位图
    Bitmap.LoadFromFile('MyBitmap.bmp');

    // 将位图转换为透明 PNG 图像
    ConvertBitmapToTransparentPng(Bitmap, 'MyTransparentImage.png');
  finally
    Bitmap.Free;
  end;
end;