Android Question NB6 for B4A

[Sergey_New]

After reading the entire forum, I did not find a suitable example.
How to properly initialize an intent in code:

Private Sub Activity_Resume
    Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
    If in.IsInitialized And in <> OldIntent Then
        OldIntent = in
        If in.HasExtra("Notification_Tag") Then
            Log("Activity started from notification. Tag: " & in.GetExtra("Notification_Tag"))
        End If
    End If
End Sub

 

[Erel]

This line is for B4XPages:

    Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent

If you are mistakenly not using B4XPages:

    Dim in As Intent = Activity.GetStartingIntent

 

[Sergey_New]

This line is for B4XPages:

Thank you, this is what I needed!
I made it so that notification permission is allowed when installing the application, and it is launched when pressing the button.
I hope this code is correct:

Sub Process_Globals
    Private xui As XUI
End Sub

Sub Globals
    Private smiley As Bitmap
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
    smiley = LoadBitmapResize(File.DirAssets, "smiley.png", 24dip, 24dip, False)
End Sub

Private Sub CheckAndRequestNotificationPermission As ResumableSub
    Dim p As Phone
    If p.SdkVersion < 33 Then Return True
    Dim ctxt As JavaObject
    ctxt.InitializeContext
    Dim targetSdkVersion As Int = ctxt.RunMethodJO("getApplicationInfo", Null).GetField("targetSdkVersion")
    If targetSdkVersion < 33 Then Return True
    Dim NotificationsManager As JavaObject = ctxt.RunMethod("getSystemService", Array("notification"))
    Dim NotificationsEnabled As Boolean = NotificationsManager.RunMethod("areNotificationsEnabled", Null)
    If NotificationsEnabled Then Return True
    Dim rp As RuntimePermissions
    rp.CheckAndRequest(rp.PERMISSION_POST_NOTIFICATIONS)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean) 'change to Activity_PermissionResult if non-B4XPages.
    Log(Permission & ": " & Result)
    Return Result
End Sub

Sub HighPriority_Notification
    Dim n As NB6
    n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
    n.Build("Important!!!", "Content", "tag", Me).Notify(1)
End Sub

Private Sub Button1_Click
    HighPriority_Notification
End Sub

Private Sub Activity_Resume
    Wait For (CheckAndRequestNotificationPermission) Complete (HasPermission As Boolean)
    If HasPermission Then
'        CallSub(Me, HighPriority_Notification)
    Else
        ToastMessageShow("No permission to show notification", True)
    End If
    Dim in As Intent = Activity.GetStartingIntent
    If in.IsInitialized Then
        If in.HasExtra("Notification_Tag") Then
            Log("Activity started from notification. Tag: " & in.GetExtra("Notification_Tag"))
        End If
    End If
End Sub

 

[Sergey_New]

I hope this code is correct:

Unfortunately, when you refuse to allow notifications, the message window does not close and when you refuse again, an incomprehensible cycle occurs. What needs to be fixed?
An example is attached.

 

[Erel]

Why are you calling it from Activity_Resume? Call it once before you show the first notification, or when the app starts.

And switch to B4XPages.

 

[Sergey_New]

or when the app starts

I call it in Activity_Create and refuse notifications. When I restart, I am again offered to make a choice. When I refuse, the choice is not offered at the third start and can only be changed in the device settings. Is this how it should be?

Call it once before you show the first notification

How should this be done?

 

[Erel]

Is this how it should be?

Yes.

How should this be done?

It really depends on your use case, however you shouldn't call it from Activity_Resume.

 

[Sergey_New]

It really depends on your use case, however you shouldn't call it from Activity_Resume.

Got it, thank you!