如何使用Delphi將SVG檔案轉換為具有透明度的PNG檔案

我想以編程方式將 SVG 檔案轉換為 PNG 檔案。

我將 Delphi 10.3.3 與Skia4Delphi一起使用，但此代碼片段不尊重透明度。它創建黑色背景。

var
  LBitmap: TBitmap;
  MyPng: TPNGImage;
begin
  if opendialog1.Execute then
  begin
    LBitmap := TBitmap.Create;
    try
      LBitmap.SetSize(1000,1000);
      LBitmap.Transparent := True;

      LBitmap.SkiaDraw(
        procedure (const ACanvas: ISKCanvas)
        var
          LSvgBrush: TSkSvgBrush;
        begin
          LSvgBrush := TSkSvgBrush.Create;
          try
            LSvgBrush.Source := TFile.ReadAllText(opendialog1.FileName);
            LSvgBrush.Render(ACanvas, RectF(0, 0, LBitmap.Width, LBitmap.Height), 1);
          finally
            LSvgBrush.Free;
          end;
        end);

        if savedialog1.Execute then
        begin
          MyPng := TPngImage.Create;
          try
            MyPng.Assign(LBitmap);
            MyPng.SaveToFile(savedialog1.FileName);
          finally
            MyPng.Free;
          end;
        end;
    finally
      LBitmap.Free;
    end;
  end;
end;

uj5u.com熱心網友回復：

您的問題是在 SkiaDraw 之后，將位圖保存為 png 格式。這可以非常簡單地完成，無需使用 TPNGImage：

if savedialog1.Execute then
  LBitmap.ToSkImage.EncodeToFile(savedialog1.FileName);

但是，在當前版本（3.4.1）中存在與 Bitmap.ToSkImage 相關的問題：https ://github.com/skia4delphi/skia4delphi/issues/150

另一種解決方案是使用 TPNGImage，但方式不同：

function CreatePNGFromTransparentBitmap(const ABitmap: TBitmap): TPNGImage;
type
  TRGB = packed record
    B, G, R: Byte;
  end;
  TRGBAArray = array[0..$effffff] of packed record
    B, G, R, A: Byte;
  end;
var
  X, Y: Integer;
  BmpRGBA: ^TRGBAArray;
  PngRGB: ^TRGB;
begin
  Result := TPNGImage.CreateBlank(COLOR_RGBALPHA, 8, ABitmap.Width , ABitmap.Height);
  try
    Result.CreateAlpha;
    Result.Canvas.CopyMode := cmSrcCopy;
    Result.Canvas.Draw(0, 0, ABitmap);
    for Y := 0 to Pred(ABitmap.Height) do
    begin
      BmpRGBA := ABitmap.ScanLine[Y];
      PngRGB := Result.ScanLine[Y];
      for X := 0 to Pred(ABitmap.Width) do
      begin
        Result.AlphaScanline[Y][X] := BmpRGBA[X].A;
        if ABitmap.AlphaFormat in [afDefined, afPremultiplied] then
        begin
          if BmpRGBA[X].A <> 0 then
          begin
            PngRGB^.B := Round(BmpRGBA[X].B / BmpRGBA[X].A * 255);
            PngRGB^.R := Round(BmpRGBA[X].R / BmpRGBA[X].A * 255);
            PngRGB^.G := Round(BmpRGBA[X].G / BmpRGBA[X].A * 255);
          end
          else
          begin
            PngRGB^.B := Round(BmpRGBA[X].B * 255);
            PngRGB^.R := Round(BmpRGBA[X].R * 255);
            PngRGB^.G := Round(BmpRGBA[X].G * 255);
          end;
        end;
        Inc(PngRGB);
      end;
    end;
  except
    Result.Free;
    raise;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LBitmap: TBitmap;
  MyPng: TPNGImage;
begin
  if opendialog1.Execute then
  begin
    LBitmap := TBitmap.Create;
    try
      LBitmap.SetSize(1000, 1000);
      LBitmap.SkiaDraw(
        procedure (const ACanvas: ISKCanvas)
        var
          LSvgBrush: TSkSvgBrush;
        begin
          LSvgBrush := TSkSvgBrush.Create;
          try
            LSvgBrush.Source := TFile.ReadAllText(opendialog1.FileName);
            LSvgBrush.Render(ACanvas, RectF(0, 0, LBitmap.Width, LBitmap.Height), 1);
          finally
            LSvgBrush.Free;
          end;
        end);

        if savedialog1.Execute then
        begin
          MyPng := CreatePNGFromTransparentBitmap(LBitmap);
          try
            MyPng.SaveToFile(savedialog1.FileName);
          finally
            MyPng.Free;
          end;
        end;
    finally
      LBitmap.Free;
    end;
  end;
end;

標籤：德尔福 delphi-10.3-rio 滑雪

上一篇：如何使用自定義方法在將鍵入的物件中呼叫內部物件方法？

下一篇：DLLC 匯入函式到Delphi