delphi android 动画,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;