红鱼儿

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8

统计

CCAMap的定位方法增加权限请求
复制代码
procedure TCCAMap.StartLocation();
begin

{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION),
                                         JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION),
                                         JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE),
                                         JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)
                                        ],
{$IF CompilerVersion >= 35} // Delphi 11
    procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)
{$ELSE}
  procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
{$ENDIF}
  begin
    if (Length(AGrantResults) = 4) and
       (AGrantResults[0] = TPermissionStatus.Granted) and
       (AGrantResults[1] = TPermissionStatus.Granted) and
       (AGrantResults[2] = TPermissionStatus.Granted) and
       (AGrantResults[3] = TPermissionStatus.Granted) then
    begin
      // 必须有读写权限再初始化.
      FJAMap.StartLocation;
    end;
  end);
{$ENDIF}

end;
复制代码

 

posted on   红鱼儿  阅读(35)  评论(0编辑  收藏  举报

努力加载评论中...
点击右上角即可分享
微信分享提示