怒火英雄 發表於 2019-5-20 08:41:00

DELPHI安卓定位权限申请

<p>DELPHI安卓定位权限申请</p>
<p>安卓8及以后版本的权限分为静态和动态申请2部分,而之前的安卓版本只需要静态申请权限。</p>
<p>1)静态申请定位权限:</p>
<p><img src="https://img2018.cnblogs.com/blog/368779/201905/368779-20190520083657420-694776629.png"></p>
<p>2)动态申请定位权限:</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">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(, LocationPermissionRequestResult);
end;
</pre>
</div>
<p>  3)运行效果图:</p>
<p><img src="https://img2018.cnblogs.com/blog/368779/201905/368779-20190520083856383-1213324941.png"></p>

</div>
<div id="MySignature" role="contentinfo">
    <p>本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/10892015.html</p><br><br>
来源:https://www.cnblogs.com/hnxxcxg/p/10892015.html
頁: [1]
查看完整版本: DELPHI安卓定位权限申请