首先谢谢红鱼儿老师的指导和他的博客带给我的帮助
1、
编译不通过报错
// uri:= TJFileProvider.JavaClass.getUriForFile(TAndroidHelper.Context, 注释掉改为
uri:= TJcontent_FileProvider.JavaClass.getUriForFile(TAndroidHelper.Context,
StringToJString(JStringToString(TAndroidHelper.Context.getPackageName) + '.fileprovider'), AttachmentFile );
我是从这个源文件中发现调用方法不同的:
2、 通过第一步后,编译可正常进行,但安卓APP运行时闪退。跟踪调试发现启动时文件和工作目录无法创建,并且无申请使用权限提示。于是下载“代码-专家出品-匿名过程回调-安卓动态权限获取”demo测试在delphi 11下能否正常运行,发现编译无法通过
把代码 procedure(const APermissions: TArray<string>;
const AGrantResults: TArray<TPermissionStatus>)
改为:
procedure(const APermissions: TClassicStringDynArray;
const AGrantResults: TClassicPermissionStatusDynAr