DELPHI安卓动态权限申请
<p>DELPHI安卓动态权限申请</p><p>安卓8.0以前的版本，只需要给静态权限就可以了，但安卓8.0及以后的版本，还需要运行期用代码动态申请权限。</p>
<p>下面以《蓝牙权限》为例，其他权限类似。</p>
<div>Delphi 10.3 社区版，提供的 Sample 里面有一个例子程序在：</div>
<div>C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth\BLEScanner</div>
<div>这个例子程序提供了打开 BLE 的时候的动态权限验证的例子代码。</div>
<div>首先，在 IDE 的 Project - Options 菜单弹出来的窗口里面，找到左边树结构的： Application -- Uses Permissions 项目，则右边会出来一堆权限让你打勾。这里要勾选上 Bluetooth 和 Bluetooth admin 两项。</div>
<div>老的安卓版本，勾选这两项就可以了。</div>
<div>新的安卓版本，还需要运行期用代码动态申请权限。</div>
<div>代码里面：</div>
<div>首先要实现一个函数：</div>
<div>procedure RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);</div>
<div>这个函数是一个动态申请权限的结果的回调函数。</div>
<div>在启动 BLE 的时候，通过以下代码申请权限：</div>
<div>PermissionsService.RequestPermissions(, RequestPermissionsResult, DisplayRationale);</div>
<div>上述的代码的 PermissionsService 是声明在 System.Permissions 里面的。</div>
<div>上述代码里面的 RequestPermissionsResult 就是前面的那个回调函数。它在这里被调用，而且还被填入参数。</div>
<div>上述代码里面的 FLocationPermission: string; 它来自：</div>
<div>procedure TForm6.FormCreate(Sender: TObject);</div>
<div>begin</div>
<div>{$IFDEF ANDROID} </div>
<div>FLocationPermission := JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION);</div>
<div>{$ENDIF}</div>
<div>end;</div>
<div>上述代码里面用到的 JStringToString 要 Uses Androidapi.Helpers;</div>
<div> </div>
<div>上述代码中还有一个 DisplayRationale 也是一个函数：</div>
<div>procedure TForm6.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);</div>
<div>begin </div>
<div>TDialogService.ShowMessage('We need to be given permission to discover BLE devices', </div>
<div>procedure(const AResult: TModalResult) </div>
<div>begin </div>
<div>APostRationaleProc; </div>
<div>end)</div>
<div>end;</div>
<div> </div>
<div>在 RequestPermissionsResult 这个函数里面，判断是否通过权限，如果通过，才去调用蓝牙的方法。</div>
<div>procedure TForm6.RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);</div>
<div>begin </div>
<div>// 1 permissions involved: ACCESS_COARSE_LOCATION </div>
<div>if (Length(AGrantResults) = 1) and (AGrantResults = TPermissionStatus.Granted) then </div>
<div>StartBLEDiscovery </div>
<div>else </div>
<div>TDialogService.ShowMessage('Cannot start BLE scan as the permission has not been granted');</div>
<div>end;<br><br></div>
</div>
<div id="MySignature" role="contentinfo">
<p>本文来自博客园，作者：{咏南中间件}，转载请注明原文链接：https://www.cnblogs.com/hnxxcxg/p/10891971.html</p><br><br>
来源：https://www.cnblogs.com/hnxxcxg/p/10891971.html
頁:
[1]