ChinaCock定位控件的改造,动态申请需要的权限
procedure TCCAMap.StartLocation(); begin {$IFDEF ANDROID} PermissionsService.RequestPermissions([ JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION), JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION) ], procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>) begin if (Length(AGrantResults) = 2) and (AGrantResults[0]=TPermissionStatus.Granted) and (AGrantResults[1]=TPermissionStatus.Granted) then begin FJAMap.StartLocation; end; end); {$ENDIF} end;
上面是改造后的代码,增加动态申请需要的权限。
为什么要这样呢?我在上架小米应用时遇到这样的问题:
没办法,只好这样改造了,这样,就不用在应用启动时申请位置权限。