Как преобразовать 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 и поддерживает Alpha.

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;