delphi JBitmapBitmap互转转换

uses
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Helpers.Android,
  FMX.Surfaces;


//JBitmap转Bitmap
function JBitmapToBitmap(const AImage: JBitmap): TBitmap;
var
  bitmapSurface :TBitmapSurface;
begin
  bitmapSurface := TBitmapSurface.Create;
  try
    if JBitmapToSurface(AImage, bitmapSurface) then
      begin
       Result.Assign(bitmapSurface);
      end;
  finally
   bitmapSurface.Free;
  end;
end;
//Bitmap转JBitmap
function BitmapToJBitmap(Bmp:TBitmap): JBitmap;
var
  mBitmap: JBitmap;
  Surface: TBitmapSurface;
begin
  Surface := TBitmapSurface.Create;
  Surface.Assign(bmp);
  mBitmap := TJBitmap.JavaClass.createBitmap(Bmp.Width, Bmp.Height, TJBitmap_Config.JavaClass.ARGB_8888);
  if SurfaceToJBitmap(Surface, mBitmap) then
  Result := mBitmap;
end;