Breaking News: Grepper is joining You.com. Read the official announcement!

PermissionsService.RequestPermissions

Mariusz62 answered on August 19, 2022 Popularity 1/10 Helpfulness 1/10

answer PermissionsService.RequestPermissions

PermissionsService.RequestPermissions

Comment

procedure TFormMain.RequestPermissions;
begin
{$IFDEF ANDROID}
  FPermission_SEND := JStringToString(TJManifest_permission.JavaClass.SEND_SMS);
  FPermission_READ := JStringToString(TJManifest_permission.JavaClass.READ_SMS);
  FPermission_RECEIVE := JStringToString(TJManifest_permission.JavaClass.RECEIVE_SMS);
  PermissionsService.RequestPermissions([FPermission_SEND, FPermission_READ, FPermission_RECEIVE], RequestResult, DisplayRationale)
{$ENDIF}
end;
  
procedure TFormMain.RequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
{$IFDEF ANDROID}
  if (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) and (AGrantResults[2] = TPermissionStatus.Granted) then
  begin
 
  end
{$ENDIF}
end;

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: delphidesdecero.com

Tags: whatever

Link to this answer
Share Copy Link