delphi 10.2.3 升级到delphi 10.3.2需要填满的坑

好多应用市场上架都对最低api进行了限制,要求安卓版本8.0以上。我在delphi xe 10.2.3下开发的程序需要升级。

升级过程中,做一记录:

1、旧项目不做任何改动,编译可以通过,但在手机上运行,卡在启动界面,过较长一段时间自动退出。检查工作目录没有创建成功。是因为新版安卓要求权限不只是optionj里配置好,还要求和程序里动态申请。于是

单元引入

       System.permissions,
 Androidapi.JNI.Support,

定义变量:

    FPermissionCamera,
    FPermissionReadExternalStorage,
    FPermissionWriteExternalStorage,
    FPermissionReadPhoneState: string;

在FormCreate中加入

{$IFDEF ANDROID}
  FPermissionCamera := JStringToString(TJManifest_permission.JavaClass.CAMERA);
  FPermissionReadExternalStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  FPermissionWriteExternalStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
  FPermissionReadPhoneState:= JStringToString(TJManifest_permission.JavaClass.READ_PHONE_STATE );
 PermissionsService.RequestPermissions([FPermissionCamera, FPermissionReadExternalStorage, FPermissionWriteExternalStorage,  FPermissionReadPhoneState], nil,nil);
 {$ENDIF}

代码经过以上处理,并不能正常运行,还需要第2步

2、

在AndroidManifest.template.xml中

分别加入

<%provider%>   动态申请权限

android:usesCleartextTraffic="true"    解决访问网络错误

3、 project  ->    Options ->  Application  ->       Entitlement list           下             

Secure File Sharing 选项打勾

4、uri改为

uri :=
TJFileProvider.JavaClass.getUriForFile(TAndroidHelper.Context,
      StringToJString(JStringToString(TAndroidHelper.Context.getPackageName) + '.fileprovider'), AttachmentFile );
需要引入 Androidapi.JNI.Support,

旧格式为://uri := StrToJURI('file://' + MyWorkDir + Label1.Text + fe); 不提示错误,但分享或调用其它应用时会失败

 

 

  • 0
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值