DELPHI安卓定位权限申请

DELPHI安卓定位权限申请

安卓8及以后版本的权限分为静态和动态申请2部分，而之前的安卓版本只需要静态申请权限。

1）静态申请定位权限：

2）动态申请定位权限：

?

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

uses   System.Permissions, {$IFDEF ANDROID}   Androidapi.Jni.Os,   Androidapi.Helpers, {$ENDIF} ...   FPermissionCoarseLocation: string;   FPermissionFineLocation: string; ... procedure TMainForm.FormCreate(Sender: TObject); begin {$IFDEF ANDROID}   // Note we can alternatively use literal strings:   //   'android.permission.ACCESS_COARSE_LOCATION'   //   'android.permission.ACCESS_FINE_LOCATION'   // according to the documentation:   //   https://developer.android.com/reference/android/Manifest.permission#ACCESS_COARSE_LOCATION   //   https://developer.android.com/reference/android/Manifest.permission#ACCESS_FINE_LOCATION   FPermissionCoarseLocation := JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION);   FPermissionFineLocation := JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION); {$ENDIF} end;   procedure TMainForm.Button1Click(Sender: TObject); begin   PermissionsService.RequestPermissions([FPermissionCoarseLocation, FPermissionFineLocation], LocationPermissionRequestResult); end;

　　3）运行效果图：