delphi XE开发微信支付Android获取手机存储权限、Android获取短信权限

https://download.csdn.net/download/pulledup/12683637

一、概述

        在上一篇《delphi XE关于微信公众号支付及微信零钱支付的便捷解决方案》中，我们需要针对Android系统成功获取响应的权限后回调需要执行的事件或方法。本文主要讲解具体实现方法。

        实现效果如下：

 

 

 

 

权限不完全具备时，再次申请权限时，不会将已申请通过的权限重复提请审批：

 

 

 

二、android授权源代码：

unit uAndoidCommon;//ANDROID:interface{$IFDEF ANDROID}uses  System.Permissions //:系统权限  ,System.SysUtils  ,System.UITypes    //:权限结果需引用TModalResult  ,System.Classes    //:线程及匿名线程  ,System.Threading  //:系统多线程单元,本例用于调用IFuture  ,System.SyncObjs   //:线程等待的同步对象单元  //,System.Android.Permissions  ,Androidapi.Helpers  ,Androidapi.JNI.JavaTypes  ,Androidapi.JNI.Os        //:权限字符串在其中定义  ,FMX.Types  ,FMX.DialogService //:权限请求的处理结果及权限请求处理后若需对用户进行显示:需引用异步对话框TDialogService.ShowMessage  ,FMX.Forms  ,FMX.Objects  ,FMX.helpers.Android  ,FMX.Memo  ,FMX.MediaLibrary.Actions  ,FMX.StdActns  ,FMX.ActnList  ;type  LOnRequestPermissionsResult= reference to procedure(const APermissions: TArray;    const AGrantResults: TArray);//: TRequestPermissionsResultProc;  LOnDisplayRationale = reference to procedure(const APermissions: TArray; const APostRationaleProc: TProc);//: TDisplayRationaleProc;  ///Android请求权限的全局变量:  var    FCAMERA, FINSTANT_APP_FOREGROUND_SERVICE,    FMANAGE_DOCUMENTS, FREAD_EXTERNAL_STORAGE, FWRITE_EXTERNAL_STORAGE,    FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息    :string;    FRationaleMsg: TStringList;      //:权限申请的理由项目    FNotGrantResultMsg: TStringList; //:未通过权限申请的项目    FGrantedResultMsg: TStringList;  //:通过权限申请的项目    FAllRequestPermissionsGranted:Boolean=true;    MyForm:TForm;  ///Andoid请求某一系统权限:  function AndoidRequestPermissions(const AForm: TForm;    const RequestPermissions:TArray    ): TArray;  //Array of string  procedure LoadPermissionRequestResult(    const APermissions: TArray;    const AGrantResults: TArray);  procedure DisplayRationale(    const APermissions: TArray;    const APostRationaleProc: TProc);{$ENDIF ANDROID}implementationuses MySJGY;{$IFDEF ANDROID}procedure LoadPermissionRequestResult(  const APermissions: TArray;  const AGrantResults: TArray);    //:权限请求的处理结果:var I: Integer;//:请求权限类型的次数begin  FNotGrantResultMsg.Clear;  if PermissionsService.IsEveryPermissionGranted(APermissions) then  begin    if MyForm.Name='FormZhuce' then    begin      //(MyForm.FindComponent('Memo1') as TMemo).Lines.Add('返回窗体的Memo1啦');      //(MyForm.FindComponent('Rect_ExecTakePhotoFromLibrary') as TRectangle).OnClick(MyForm as TObject);      (MyForm.FindComponent('TakePhotoFromLibraryAction1') as TTakePhotoFromLibraryAction).Execute;    end;  end else  begin    for I := Low(APermissions) to High(APermissions) do //APermissions    begin      if not (AGrantResults[I] = TPermissionStatus.Granted)  then      begin        if APermissions[I].Contains(FCamera) then          if not FNotGrantResultMsg.Text.Contains('相机') then            FNotGrantResultMsg.Add('●您未允许访问手机相机，无法启用相机拍照' + sLineBreak);        // FREAD_EXTERNAL_STORAGE FWRITE_EXTERNAL_STORAGE        if APermissions[I].Contains(FREAD_EXTERNAL_STORAGE)          or APermissions[I].Contains(FWRITE_EXTERNAL_STORAGE)        then          if not FNotGrantResultMsg.Text.Contains('存储') then            FNotGrantResultMsg.Add('●您未允许访问手机存储，无法保存图片等媒体'+ sLineBreak);        //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH        if APermissions[I].Contains(FREAD_SMS)          or APermissions[I].Contains(FSEND_SMS)          or APermissions[I].Contains(FRECEIVE_SMS)          or APermissions[I].Contains(FRECEIVE_MMS)          or APermissions[I].Contains(FBROADCAST_SMS)          or APermissions[I].Contains(FRECEIVE_WAP_PUSH)        then        begin          if not FNotGrantResultMsg.Text.Contains('短信') then            FNotGrantResultMsg.Add('●您未允许使用手机短信相关功能'+ sLineBreak);        end;        if (I=High(APermissions)) and (FNotGrantResultMsg.Text.Trim<>'') then          //:授权通过后要执行的事件或过程:这里是打开媒体库供用户选择:            //:由本函数返回值来控制,这里并不需要做处理        SJGY.ShowDialog(          MyForm, //'循环次数:'+I.ToString+          FNotGrantResultMsg.Text, //:上面定义的未通过机主授权的权限提示          '未授权提示', '提示', // 调用对话框   aType:提示，输入，选择，编辑共4种          procedure(aResult: Boolean; astr: string) // aStr为空 aResult为true          begin //:授权未通过就给提示            //:需要处理本IF有问题          end, TVirtualKeyboardType.Default, $FFF7946F, '确定', '', 3); // 设置了横线颜色,上中下分别对应123,默认值为3      end;    end; //:取授权未通过或通过的提示信息  end;end;procedure DisplayRationale(  const APermissions: TArray;  const APostRationaleProc: TProc);//:向用户显示请求权限的理由  var I: Integer;begin  FRationaleMsg.Clear;  if not PermissionsService.IsEveryPermissionGranted(APermissions) then  for I := Low(APermissions) to High(APermissions) do  begin    if not      PermissionsService.IsPermissionGranted(APermissions[I]) then    begin      if APermissions[I].Contains(FCamera) then        if not FRationaleMsg.Text.Contains('相机') then           FRationaleMsg.Add('●App将会提示您："'+Application.Title+'"需要使用相机,您是否允许？意思是要访问你的手机相机，这样才可以启用相机拍照' + sLineBreak);      // FREAD_EXTERNAL_STORAGE FWRITE_EXTERNAL_STORAGE      if APermissions[I].Contains(FREAD_EXTERNAL_STORAGE)        or APermissions[I].Contains(FWRITE_EXTERNAL_STORAGE)      then        if not FRationaleMsg.Text.Contains('存储') then          FRationaleMsg.Add('●App将会提示您："'+Application.Title+'"需要使用存储权限,您是否允许？意思是要访问你的手机媒体库，这样才可以保存必要的图片'+ sLineBreak);      //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH      if APermissions[I].Contains(FREAD_SMS)        or APermissions[I].Contains(FSEND_SMS)        or APermissions[I].Contains(FRECEIVE_SMS)        or APermissions[I].Contains(FRECEIVE_MMS)        or APermissions[I].Contains(FBROADCAST_SMS)        or APermissions[I].Contains(FRECEIVE_WAP_PUSH)      then        if not FRationaleMsg.Text.Contains('短信') then          FRationaleMsg.Add('●App将会提示您："'+Application.Title+'"需要使用短信权限,您是否允许？意思是要请求使用手机短信，这样才可使用短信相关功能'+ sLineBreak);    end;  end;  SJGY.ShowDialog(    MyForm,    '选择"确认"后,需要您通过权限提示以便于:'+sLineBreak+sLineBreak      +FRationaleMsg.Text,//:上面定义的请求权限的理由    '请您回答',    '选择', // 调用对话框   aType:提示，输入，选择，编辑共4种    procedure(aResult: Boolean; astr: string) // aStr返回输入的内容 aResult返回点击了哪个按钮:true为确定按钮，false为取消按钮    begin      if aResult = true then // 点击了确定按钮      begin        APostRationaleProc;      end;      if aResult = false then // 点击了取消按钮      begin        //      end;    end, TVirtualKeyboardType.Default, $FFF7946F,    '确认', '取消', 3 ); //:设置了横线颜色,3:上中下分别对应123,默认值为3end; //System.Permissionsfunction AndoidRequestPermissions(const AForm: TForm;  const RequestPermissions:TArray  ): TArray;  //Array of stringvar LhashCode:Integer;  LPermission:string;  ///Android请求权限的全局变量:  MyPermissions: TArray;    //:需要请求的内部权限数组  RequestPermissionsLenth :Integer; //:需要请求的内部权限数  LGrantResults: TArray;var LRequestPermissions: TArray;  LResultStrOfRequestPermissions:string;  LResultAllOfRequestPermissions:Boolean;  var LGrantedPermissionsLength:Integer;   //:实际通过请求的内部权限数      LNotGrantedPermissions: TArray; //:实际未通过请求的内部权限数组begin//Androidapi.JNI.Os //:权限字符串在其中定义  LRequestPermissions:=RequestPermissions;  try    //Pos('读文件',RequestPermissions)>0 //:System.SysUtils.TStringHelper    //if (RequestPermissions.Trim).IndexOf('摄像头',0,length((RequestPermissions.Trim)))>=0 then    if length(RequestPermissions)>0 then    for RequestPermissionsLenth := Low(RequestPermissions) to High(RequestPermissions) do    begin      if (RequestPermissions[RequestPermissionsLenth])='发手机短消息' then      begin //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息        try //读手机短信,发手机短消息,收手机短消息,收手机彩信,广播手机短消息,接收WAP推送          FSEND_SMS := JStringToString(            TJManifest_permission.JavaClass            .SEND_SMS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FSEND_SMS;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='广播手机短消息' then      begin //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息        try //读手机短信,发手机短消息,收手机短消息,收手机彩信,广播手机短消息,接收WAP推送          FBROADCAST_SMS := JStringToString(            TJManifest_permission.JavaClass            .BROADCAST_SMS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FBROADCAST_SMS;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='收手机短消息' then      begin //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息        try //读手机短信,发手机短消息,收手机短消息,收手机彩信,广播手机短消息,接收WAP推送          FRECEIVE_SMS := JStringToString(            TJManifest_permission.JavaClass            .RECEIVE_SMS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FRECEIVE_SMS;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='收手机彩信' then      begin //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息        try //读手机短信,发手机短消息,收手机短消息,收手机彩信,广播手机短消息,接收WAP推送          FRECEIVE_MMS := JStringToString(            TJManifest_permission.JavaClass            .RECEIVE_MMS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FRECEIVE_MMS;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='读手机短信' then      begin //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息        try //读手机短信,发手机短消息,收手机短消息,收手机彩信,广播手机短消息,接收WAP推送          FREAD_SMS := JStringToString(            TJManifest_permission.JavaClass            .READ_SMS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FREAD_SMS;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='接收WAP推送' then      begin //FREAD_SMS,FSEND_SMS,FRECEIVE_SMS,FRECEIVE_MMS,FBROADCAST_SMS,FRECEIVE_WAP_PUSH //:收发短消息        try //读手机短信,发手机短消息,收手机短消息,收手机彩信,广播手机短消息,接收WAP推送          FRECEIVE_WAP_PUSH := JStringToString(            TJManifest_permission.JavaClass            .RECEIVE_WAP_PUSH);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FRECEIVE_WAP_PUSH;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='相机' then      begin        try          FCAMERA := JStringToString(            TJManifest_permission.JavaClass            .CAMERA);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1]:= FCAMERA;        except        end;      end;      {      if (RequestPermissions[RequestPermissionsLenth])='前台服务安装应用' then      begin        try          FINSTANT_APP_FOREGROUND_SERVICE := JStringToString(            TJManifest_permission.JavaClass            .INSTANT_APP_FOREGROUND_SERVICE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := FINSTANT_APP_FOREGROUND_SERVICE;        except        end;      end;      if (RequestPermissions.Trim)='安装应用' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .REQUEST_INSTALL_PACKAGES);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='全局搜索' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .GLOBAL_SEARCH);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;   }      //管理文档:      if (RequestPermissions[RequestPermissionsLenth])='管理文档' then      begin        try          FMANAGE_DOCUMENTS := JStringToString(            TJManifest_permission.JavaClass            .MANAGE_DOCUMENTS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := FMANAGE_DOCUMENTS;        except        end;      end;      //存储:      if (RequestPermissions[RequestPermissionsLenth])='读取文件' then      begin        try          FREAD_EXTERNAL_STORAGE := JStringToString(            TJManifest_permission.JavaClass            .READ_EXTERNAL_STORAGE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := FREAD_EXTERNAL_STORAGE;        except        end;      end;      if (RequestPermissions[RequestPermissionsLenth])='写入文件' then      begin        try          FWRITE_EXTERNAL_STORAGE := JStringToString(            TJManifest_permission.JavaClass            .WRITE_EXTERNAL_STORAGE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := FWRITE_EXTERNAL_STORAGE;        except        end;      end;      {      if (RequestPermissions.Trim)='读取手机状态' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .READ_PHONE_STATE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='INTERNET' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .INTERNET);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='网络状态' then      begin        try          //LhashCode:=JObjectClass(            //TJManifest_permission.JavaClass            //._GetACCESS_NETWORK_STATE ).init.hashCode;          LPermission := JStringToString(            TJManifest_permission.JavaClass            .ACCESS_NETWORK_STATE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='WIFI状态' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .ACCESS_WIFI_STATE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='在其他应用上层显示' then      begin       //比如:点播播放器悬浮窗权限        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .SYSTEM_ALERT_WINDOW);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='允许访问通知策略' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .ACCESS_NOTIFICATION_POLICY);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='请求绑定通知监听服务' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .BIND_NOTIFICATION_LISTENER_SERVICE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='允许一个APP伴侣程序在后台运行' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .REQUEST_COMPANION_RUN_IN_BACKGROUND);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='允许一个APP伴侣程序在后台使用数据' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .REQUEST_COMPANION_USE_DATA_IN_BACKGROUND);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='写系统配置' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .WRITE_SETTINGS);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='绑定条件提供者服务' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .BIND_CONDITION_PROVIDER_SERVICE);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end;      if (RequestPermissions.Trim)='绑定设备管理' then      begin        try          LPermission := JStringToString(            TJManifest_permission.JavaClass            .BIND_DEVICE_ADMIN);          SetLength(MyPermissions, Length(MyPermissions)+1);          MyPermissions[Length(MyPermissions)-1] := LPermission;        except        end;      end; //}    end;  except  end;  // 调用方法：动态请求所有程序需要用到的权限,根据需要您可以减少:  // PermissionsService.RequestPermissions([FPermissionCAMERA, FPermissionREAD_EXTERNAL_STORAGE, FPermissionWRITE_EXTERNAL_STORAGE, FPermissionREAD_PHONE_STATE, FPermissionACCESS_NETWORK_STATE,  // FPermissionBLUETOOTH_ADMIN, FPermissionBLUETOOTH, FPermissionACCESS_WIFI_STATE, FPermissionVIBRATE, FPermissionRECORD_AUDIO, FPermissionRECEIVE_SMS, FPermissionCALL_PHONE, FPermissionREAD_SMS,  // FPermissionACCESS_FINE_LOCATION, FPermissionINSTALL_PACKAGES, FPermissionINTERNET, FPermissionSEND_SMS, FPermissionWRITE_CONTACTS, FPermissionACCESS_LOCATION_EXTRA_COMMANDS,  // FPermissionREAD_PHONE_NUMBERS, FPermissionREAD_CONTACTS], nil, nil);    /// Request one or more permissions    /// Any permissions that are not currently granted will be requested.    /// Beforehand, a rationale may be displayed to the user if:    ///   i)APermissions: TArray:    ///a rationale string has been set for the permission in question    ///  ii)AOnRequestPermissionsResult: TRequestPermissionsResultEvent:    /// the OS deems it appropriate (we're requesting a permission again that was previously denied)    /// iii)AOnDisplayRationale: TDisplayRationaleEvent:    /// a rationale display routine is passed in    /// The rationale handler must display the passed in rationale string    ///asynchronously and not block the thread.    /// This overload takes an event handler method.    ///请求一个或多个权限    ///<备注>将请求当前未授予的任何权限。    ///在以下情况下，可以事先向用户显示基本原理：    ///i）已经为相关权限设置了基本原理字符串    ///ii）操作系统认为合适（我们再次请求之前被拒绝的许可）    ///iii）一个基本原理显示程序被传入    ///基本原理处理程序必须异步显示传入的基本原理字符串，并且不能阻塞线程。    ///此重载采用事件处理程序方法。//  CallInUIThreadAndWaitFinishing(//  procedure//  begin//    PermissionsService.RequestPermissions(//      MyPermissions,nil,nil);  MyForm:=AForm;  PermissionsService.RequestPermissions(    MyPermissions,LoadPermissionRequestResult,DisplayRationale);//  end);//  PermissionsService.RequestPermissions(//    MyPermissions,LoadPermissionRequestResult,DisplayRationale);//  IntToStr(Length(MyPermissions));//  if Length(MyPermissions)>0 then//    Result:=MyPermissions else Result:=[];  //LGrantedPermissionsLength:Integer; //:实际通过请求的内部权限数    //LNotGrantedPermissions: TArray; //:实际未通过请求的内部权限数组    LNotGrantedPermissions:=nil;    for LGrantedPermissionsLength := Low(MyPermissions) to High(MyPermissions) do    begin      if PermissionsService.IsPermissionGranted (          MyPermissions[LGrantedPermissionsLength] )        =false then      begin        SetLength(LNotGrantedPermissions, Length(LNotGrantedPermissions)+1);        LNotGrantedPermissions[Length(LNotGrantedPermissions)-1] := MyPermissions[LGrantedPermissionsLength];      end;    end;    //返回哪些权限没有通过:    //IntToStr(Length(LNotGrantedPermissions));    if Length(LNotGrantedPermissions)>0 then      Result:=LNotGrantedPermissions else Result:=[];end;{$ENDIF ANDROID}initialization{$IFDEF ANDROID}  if not Assigned(FRationaleMsg) then    FRationaleMsg:= TStringList.Create;      //:权限申请的理由项目  if not Assigned(FNotGrantResultMsg) then    FNotGrantResultMsg:= TStringList.Create; //:未通过权限申请的项目  if not Assigned(FGrantedResultMsg) then    FGrantedResultMsg:= TStringList.Create;  //:通过权限申请的项目{$ENDIF ANDROID}finalization{$IFDEF ANDROID}  if Assigned(FRationaleMsg) then    FRationaleMsg.DisposeOf;      //:权限申请的理由项目  if Assigned(FNotGrantResultMsg) then    FNotGrantResultMsg.DisposeOf; //:未通过权限申请的项目  if Assigned(FGrantedResultMsg) then    FGrantedResultMsg.DisposeOf;  //:通过权限申请的项目{$ENDIF ANDROID}end.

三、调用方法：

3.1、调用方

      {$IFDEF ANDROID}        //:请求存储权限:并不包含'管理文档'          //:只需2项权限:READ_EXTERNAL_STORAGE, WRITE_EXTERNAL_STORAGE          //LPermissions:=['管理文档','读取文件','写入文件','读手机短信'];        LPermissions:=['读取文件','写入文件','读手机短信'];        FNotGrantedPermissions:=nil;        FNotGrantedPermissions:=        AndoidRequestPermissions(          (self as TForm),          LPermissions        );      {$ENDIF ANDROID}

3.2、调用并获取Android权限后需要处理的结果事件或方法

        由调用方的调用代码中传入(self as TForm)，在“二、android授权源码源代码"中：

///Andoid请求某一系统权限:function AndoidRequestPermissions(const AForm: TForm;  const RequestPermissions:TArray  ): TArray;//var .....begin    //.....  MyForm:=AForm;  PermissionsService.RequestPermissions(    MyPermissions,LoadPermissionRequestResult,DisplayRationale);    //....end;procedure LoadPermissionRequestResult(  const APermissions: TArray;  const AGrantResults: TArray);    //:权限请求的处理结果://var I: Integer;//:请求权限类型的次数begin  FNotGrantResultMsg.Clear;  if PermissionsService.IsEveryPermissionGranted(APermissions) then  begin    if MyForm.Name='FormZhuce' then    begin      //(MyForm.FindComponent('Memo1') as TMemo).Lines.Add('返回窗体的Memo1啦');      //(MyForm.FindComponent('Rect_ExecTakePhotoFromLibrary') as TRectangle).OnClick(MyForm as TObject);      (MyForm.FindComponent('TakePhotoFromLibraryAction1') as TTakePhotoFromLibraryAction).Execute;    end;  end else //......  end;end;

 

附：本博客相关文章文章：

       《delphi XE关于微信公众号支付及微信零钱支付的便捷解决方案》

        https://blog.csdn.net/pulledup/article/details/107771266

 

喜欢的话，就在下面点个赞、收藏就好了，方便看下次的分享：

 

 

更多相关文章

  1. Android(安卓)各大网络请求库的比较及实战
  2. Android(安卓)的提权 (root) 原理是什么?
  3. Android(安卓)下使用 JSON 实现 HTTP 请求
  4. android 微信登录与分享集成
  5. 在 Android(安卓)上使用协程（三） ：Real Work
  6. okhttp的应用详解与源码解析--android网络请求框架发展史
  7. Android(安卓)各大网络请求库的比较及实战，android请求库实战
  8. 在 Android(安卓)上使用协程（三） ：Real Work
  9. Android(安卓)下使用 JSON 实现 HTTP 请求

随机推荐

  1. js基础知识：变量作用域与闭包，以及类与类的
  2. 让 AirPods 在 iPhone 和其它苹果设备之
  3. 身份和访问管理标准及挑战
  4. 配置路由策略
  5. /etc/rc.local开机不执行解决
  6. 微服务+异步工作流+ Serverless，Netflix
  7. FIL币价怎么稳定？看看Filecoin的未来价值？
  8. 深度学习的新世界（入门篇）
  9. drbd磁盘扩容
  10. 需要知识的后深度学习时代，如何高效自动构