Delphi 11 安卓的蓝牙权限申请

最新推荐文章于 2024-10-12 22:24:07 发布

原创

最新推荐文章于 2024-10-12 22:24:07 发布 · 898 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#android #Delphi

上一篇博客里面的代码，演示如何申请安卓的权限。

如何申请安卓的蓝牙权限？

本博客之前有一篇文章写过。

现在 Google 要求 Android API Level 必须是 33。对于 BLE 的权限申请，有了一些新的要求。

以下描述，基于 Delphi 11。

首先是用于安卓的 Project 在 Delphi IDE 里面的设置：

在 IDE 菜单：Project - Options - Uses Permissions - 里面：

然后是申请权限的代码：

unit UDmPermissions;
// 安卓的权限申请代码 Delphi 11
interface

uses
  System.SysUtils, System.Types, System.Classes, System.Permissions, FMX.DialogService, System.UITypes;

type
  TDmPermissions = class(TDataModule)
  private
    { Private declarations }
    FGotPermission: TNotifyEvent;


    procedure DoGotPermissions;
  private const
    LOCATION_PERMISSION = 'android.permission.ACCESS_FINE_LOCATION';
    BLUETOOTH_S