delphi 安卓 APP 动态权限申请

这里头的例子代码，亲测有效。放一个 TSwitch 上去，拨动开关，触发代码，Android 8 的手机，会弹出 APP 申请权限的界面让用户选择是否给与 APP 权限。

这里要注意的问题是，上述代码在编译的时候，需要 uses 几个库：

1.  System.Permissions

2.  {$IFDEF ANDROID},
Androidapi.JNI.JavaTypes,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Location,
  Androidapi.JNIBridge,
  Androidapi.JNI.Os,
  Androidapi.Helpers,
  Androidapi.JNI.Provider;
{$ENDIF};
--------------------- 

procedure TLocationForm.swLocationSensorActiveSwitch(Sender: TObject);
begin
{$IFDEF ANDROID}
  if swLocationSensorActive.IsChecked then
    PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)],
      procedure(const APermissions: TArray; const AGrantResults: TArray)
      begin
        if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
          { activate or deactivate the location sensor }
          LocationSensor1.Active := True
        else
        begin
          swLocationSensorActive.IsChecked := False;
          TDialogService.ShowMessage('Location permission not granted');
        end;
      end)
  else
{$ENDIF}
    LocationSensor1.Active := False;
end;