如何將FMX.Graphics.TBitmap轉換爲VCL.Graphics.TBitmap或Vcl.Imaging.PngImage.TPngImage？

Question

FMX.Graphics.TBitmap如何轉換爲VCL.Graphics.TBitmap或Vcl.Imaging.PngImage.TPngImage？

我在我的項目中同時具有FMX格式和VCL格式。

Answer 1

感謝David Heffernan和一些搜索我寫了這些函數如下。

我先拿出不支持阿爾法

function ConvertFmxBitmapToVclBitmap(b:FMX.Graphics.TBitmap):Vcl.Graphics.TBitmap; 
var 
    data:FMX.Graphics.TBitmapData; 
    i,j:Integer; 
    AlphaColor:TAlphaColor; 
begin 
    Result:=VCL.Graphics.TBitmap.Create; 
    Result.SetSize(b.Width,b.Height); 
    if(b.Map(TMapAccess.Readwrite,data))then 
    try 
    for i := 0 to data.Height-1 do begin 
     for j := 0 to data.Width-1 do begin 
     AlphaColor:=data.GetPixel(i,j); 
     Result.Canvas.Pixels[i,j]:= 
      RGB(
      TAlphaColorRec(AlphaColor).R, 
      TAlphaColorRec(AlphaColor).G, 
      TAlphaColorRec(AlphaColor).B); 
     end; 
    end; 
    finally 
    b.Unmap(data); 
    end; 
end; 

的功能，我寫的第二函數FMX.Graphics.TBitmap轉換爲Vcl.Imaging.PngImage.TPngImage，它支持阿爾法。

function ConvertFmxBitmapToPng(b:FMX.Graphics.TBitmap):Vcl.Imaging.PngImage.TPngImage; 
var 
    data:FMX.Graphics.TBitmapData; 
    i,j:Integer; 
    AlphaColor:TAlphaColor; 
    AlphaLine:VCL.Imaging.PngImage.pByteArray; 
begin 
    result:=TPngImage.CreateBlank(COLOR_RGBALPHA, 8, b.Width, b.Height);; 
    if(b.Map(TMapAccess.Readwrite,data))then 
    try 
    for i := 0 to data.Height-1 do begin 
     AlphaLine:=Result.AlphaScanline[i]; 
     for j := 0 to data.Width-1 do begin 
     AlphaColor:=data.GetPixel(j,i); 
     AlphaLine^[j]:=TAlphaColorRec(AlphaColor).A; 
     Result.Pixels[j,i]:= 
      RGB(
      TAlphaColorRec(AlphaColor).R, 
      TAlphaColorRec(AlphaColor).G, 
      TAlphaColorRec(AlphaColor).B); 
     end; 
    end; 
    finally 
    b.Unmap(data); 
    end; 
end; 

Answer 2

校正與矩形圖像的工作：

function 
    ConvertFmxBitmapToVclBitmap(b:FMX.Graphics.TBitmap):Vcl.Graphics.TBitmap; 
var 
    data:FMX.Graphics.TBitmapData; 
    i,j:Integer; 
    AlphaColor:TAlphaColor; 
begin 
    Result:=VCL.Graphics.TBitmap.Create; 
    Result.SetSize(b.Width,b.Height); 
    if(b.Map(TMapAccess.Readwrite,data))then 
    try 
    for i := 0 to data.Height-1 do begin 
     for j := 0 to data.Width-1 do begin 
     AlphaColor:=data.GetPixel(j,i); 
     Result.Canvas.Pixels[j,i]:= 
      RGB(
      TAlphaColorRec(AlphaColor).R, 
      TAlphaColorRec(AlphaColor).G, 
      TAlphaColorRec(AlphaColor).B); 
     end; 
    end; 
    finally 
    b.Unmap(data); 
    end; 
end;