Android 13 ask permission for push notification

[John van de Waeter 7]

Hi All,

 

Using Delphi 11.2

 

The Android PermissionsService from System.Permissions seems to lack a permission for push-notifications, which is needed (afaik) for Android 13 and up.

 

Without the permission, a valid device-token for FCM is generated, it's nicely registered at Google, and Google even says it succeeded when sending a push to this device, but the phone's app settings says that reception (or showing?) of push notification is blocked.

If I turn it on in the apps settings, it works, but that is not a friendly method to tell my users....

 

So.. How to ask for and set this permission at runtime?

 

tia!

John

 

[programmerdelphi2k 237]

you tryed:

• Project->Options->Entitlement List->Receive push notifications [x]
• requirement on app code: 

• Quote

    PermissionsService.RequestPermissions(                                   { Android permissions... }
      [                                                                      { }
      JStringToString(TJManifest_permission.JavaClass.XXXXXXXX)    { }
      ]                                                                      { }
   

   

• and Android recommendations:  https://developer.android.com/develop/ui/views/notifications/notification-permission

[John van de Waeter 7]

I tried that, but

Where 'XXXXXXXX'= ?

Post_notifications is not a member of this class it seems?

 

Edited December 28, 2022 by John van de Waeter

[Dave Nottage 557]

5 hours ago, John van de Waeter said:

The Android PermissionsService from System.Permissions seems to lack a permission for push-notifications, which is needed (afaik) for Android 13 and up

Yes, you will need to manually add the permission to the manifest - one way is to modify AndroidManifest.template.xml to add:

    <uses-permission android:name="android.permission.POST_NOTIFICATIONS"/>

A suitable location would be just below <%uses-permission%>
 

You will also need to request the permission in your code, e.g:

  PermissionsService.RequestPermissions(['android.permission.POST_NOTIFICATIONS'],
    procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)
    begin
      if AGrantResults[0] = TPermissionStatus.Granted then
        // Permission was granted
    end
  );

 

[programmerdelphi2k 237]

in fact, you DONT NEED any reference to "RequestPermissionsResult" or "DisplayRationale" procedures! Only in special case where you need process something more specific for you app

Only "permissions strings" it's enough to conclude the OS requirement

implementation

{$R *.fmx}

uses
  System.Permissions,
  Androidapi.Jni.Os,
  Androidapi.Helpers;

const
  MyPermissionsRequired: array [0 .. 0] of string = ('android.permission.POST_NOTIFICATIONS');

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Place where the first call of the app 's requests will be made. Put where the verification will be carried out
  //
  PermissionsService.RequestPermissions( { }
    [MyPermissionsRequired[0]],          { }
    nil,                                 { TRequestPermissionsResultEvent proc not really necessary at all}
    nil                                  { TDisplayRationaleEvent)  proc not really necessary at all }
    );

  // ------------
  //
  // if the Permissions have already been given or not, so that later you can execute the desired procedure.E.g.send a notification!
  // NOTE: this command calls Android permissions dialog if not granted yet!
  //
  // all
  if PermissionsService.IsEveryPermissionGranted([MyPermissionsRequired[0]]) then
    // send my notification procedure
      ;
  // just one
  if PermissionsService.IsPermissionGranted(MyPermissionsRequired[0]) then
    // send my notification procedure
      ;
end;

 

Edited December 28, 2022 by programmerdelphi2k

[John van de Waeter 7]

Hi Dave,

This I tried too, but the inner procedure (if AGrantresult[0]... ) is never called.

Also weird that requesting permission to RECEIVE push notifications is calles POST_NOTIFICATIONS...

[Dave Nottage 557]

1 minute ago, programmerdelphi2k said:

'android.permission.POST_NOTIFICATION'

This value is incorrect - it should be android.permission.POST_NOTIFICATIONS

[Dave Nottage 557]

1 minute ago, John van de Waeter said:

is never called

Yes, I'm having the same problem - I'm looking into it

[programmerdelphi2k 237]

by Android Developer link above

Quote

<manifest ...>
    <uses-permission android:name="android.permission.POST_NOTIFICATIONS"/>
    <application ...>
        ...
    </application>
</manifest>

 

[Dave Nottage 557]

12 minutes ago, Dave Nottage said:

Yes, I'm having the same problem - I'm looking into it

In AndroidManifest.template.xml, change %targetSdkVersion% to 33

[John van de Waeter 7]

14 minutes ago, Dave Nottage said:

In AndroidManifest.template.xml, change %targetSdkVersion% to 33

I did, the procedure was invoked, 1 GrantResult, but there was no dialog from Android to ask the user for permission. And it was NOT granted.

[John van de Waeter 7]

oops... my bad... post_notification needs an s at the end... It works!
Thanks Dave and Programmer, for guiding me! 🙂