delphi JBitmapBitmap互转转换

最新推荐文章于 2021-05-28 18:57:04 发布

原创最新推荐文章于 2021-05-28 18:57:04 发布 · 1.6k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

DELPHI

当前文章被收录于：

DELPHI

38 篇文章 3 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍如何在Java和Delphi中实现Bitmap之间的相互转换。通过提供的代码示例，展示了如何将Java Bitmap对象转换为Delphi TBitmap对象，反之亦然。这对于跨平台应用程序开发特别有用。

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;