unit UnitPermission;

interface

uses
{$IFDEF ANDROID} Androidapi.Helpers,
 Androidapi.JNI.JavaTypes, Androidapi.JNI.OS, {$ENDIF}
  System.Permissions;

function RequestLocation: Boolean;
function RequestRecordAudio: Boolean;
function RequestCamera: Boolean;
function RequestReadStorage: Boolean;
function RequestWriteStorage: Boolean;
function RequestSendSMS:Boolean;
function RequestReadPhoneState:Boolean;

implementation

function RequestReadPhoneState: Boolean;
var
  Value: Boolean;
begin
  Value := False;

{$IFDEF ANDROID}
  PermissionsService.RequestPermissions(
  [JStringToString(TJManifest_permission.JavaClass.READ_PHONE_STATE)],
    procedure(const APermissions: TArray<string>;
     const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;
end;


function RequestLocation: Boolean;
var
  Value: Boolean;
begin
  Value := False;

{$IFDEF ANDROID}
  PermissionsService.RequestPermissions(
  [JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)],
    procedure(const APermissions: TArray<string>;
     const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;
end;

function RequestRecordAudio: Boolean;
var
  Value: Boolean;
begin
  Value := False;
{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.RECORD_AUDIO)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;
end;

function RequestCamera: Boolean;
var
  Value: Boolean;
begin
  Value := False;
{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.CAMERA)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;

end;

function RequestReadStorage: Boolean;
var
  Value: Boolean;
begin
  Value := False;
{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;
end;

function RequestWriteStorage: Boolean;
var
  Value: Boolean;
begin
  Value := False;
{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;
end;

function RequestSendSMS:Boolean;
var
  Value: Boolean;
begin
  Value := False;
{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.SEND_SMS)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        Value := (True);
      end
      else
      begin
        Value := (False);
      end;
    end);
{$ENDIF}
  Result := Value;
end;

end.