Android Question Not queued notification

[Isac]

Hello

If I send more than one message with b4j to b4a in format (Data), is it normal that the notification is not queued but overwritten?



-------> b4j

Sub SendMessage(Topic As String, Title As String, Body As String)
-----
------
------
Dim data As Map = CreateMap("title": Title, "body": Body)

m.Put("data":data)

-------> b4a

Sub fm_MessageArrived (Message As RemoteMessage)
    Log("Message arrived")
    Log($"Message data: ID ${Message.MessageId}, Data ${Message.GetData}"$)
    Log("Message="& Message)
    Dim map As Map :map.Initialize
    map = CreateMap("title1":"","body1":Message.GetData)
    Log("map="&map)
    Dim jgen As JSONGenerator
    jgen.Initialize(map)
    Dim n As NB6
    mano = LoadBitmapResize(File.DirAssets, "mano.png", 24dip, 24dip, False)
    n.Initialize("default", Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(mano)
    n.Build(Message.GetData.Get("title"), Message.GetData.Get("body"), jgen.ToString, Main).Notify(4)
    
End Sub

 

[Erel]

1. The B4A code is not relevant.
2. Make sure to use the B4J code from the tutorial.

Try to add the collapse_key parameter and set a different value for each message: https://www.b4x.com/android/forum/threads/firebase-notification-receive-case.91227/#post-576730

 

[Isac]

I tried this way, but the message is always overwritten, I honestly did not understand how to use collapse_key

-----> B4J

Private Sub SendMessage(Topic As String, Title As String, Body As String)
    Dim Job As HttpJob
    Job.Initialize("fcm", Me)
    Dim m As Map = CreateMap("to": $"/topics/${Topic}"$)
    Dim data As Map = CreateMap("title": Title, "body": Body,"test": "test")
    Dim ok As String =  ("test")
    m.Put("collapse_key", ok)
    m.Put("data": data)
    
    Dim jg As JSONGenerator
    jg.Initialize(m)
    Job.PostString("https://fcm.googleapis.com/fcm/send", jg.ToString)
    Job.GetRequest.SetContentType("application/json")
    Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)

 

[Erel]

You need to use a different collapse_key for each message. Otherwise they will be grouped automatically.

Try it with:

m.Put("collapse_key", "test" & rnd(1, 1000000))

 

[Isac]

I tried this way, but it does not work, I did not understand how I should use it.
is it right as I wrote?

    Dim m As Map = CreateMap("to": $"/topics/${Topic}"$)
    Dim data As Map = CreateMap("title": Title, "body": Body)
    m.Put("collapse_key", "body" & Rnd(1, 1000000))
    m.Put("collapse_key", "title" & Rnd(1, 1000000))
    m.Put("collapse_key", "data" & Rnd(1, 1000000))
    m.Put("data": data)

 

[Erel]

As I already wrote to you 5 times you should watch the collections video tutorial and understand how maps work.

There is no point in setting the same key three times, though your code should work. It will give a different collapse_key to each message.