Android Question FirebaseNotifications: msg box with notification

kelvo01 · Dec 8, 2016

when i recevie a notification Erel make notification ok.
if i click on a notification the app re-take control.
i what to put a msg box with notification.

How ?

Erel · Dec 8, 2016

You can use the notification tag to add a string to the message and later extract it: https://www.b4x.com/android/help/core.html#notification_setinfo2

Important to avoid handling the same intent multiple times: https://www.b4x.com/android/forum/t...intent-be-reset-or-cleared.38004/#post-224814

kelvo01 · Dec 8, 2016

I try this, but don't work:

in main.bas
Sub Process_Globals
Dim lastFBMtitle As String
Dim lastFBMbody As String
...

Sub Activity_Resume
Dim in As Intent
in = Activity.GetStartingIntent
If in.HasExtra("Notification_Tag") Then
Log(in.GetExtra("Notification_Tag")) 'Will log the tag
Msgbox(lastFBMbody,lastFBMtitle)
End If
End Sub

In FirebaseMessaging
Sub fm_MessageArrived (Message As RemoteMessage)
Log("Message arrived")
Log($"Message data: ${Message.GetData}"$)
Dim n As Notification
n.Initialize
n.Icon = "icon"
'n.SetInfo(Message.GetData.Get("title"), Message.GetData.Get("body"), Main)
n.SetInfo2(Message.GetData.Get("title"), Message.GetData.Get("body"),"Notification_Tag", Main)

n.Notify(1)

Main.lastFBMtitle=Message.GetData.Get("title")
Main.lastFBMtitle=Message.GetData.Get("body")
End Sub

KMatle · Dec 8, 2016

Please use code tags like this example:

B4X:

Sub fm_MessageArrived (Message As RemoteMessage)
   Log("Message arrived")
   Log($"Message data: ${Message.GetData}"$)
   Log("ID: " & Message.MessageId)
   Log("From: " & Message.From)
   Log("Collapse: " & Message.CollapseKey)

   Log(Message.GetData)

    Dim messmap As Map
    messmap=Message.GetData
 
    Log(messmap.Get("data"))
 
    Dim n As Notification
    n.Initialize
    n.Icon = "icon"
    n.OnGoingEvent=False
    n.Light=True
    n.SetInfo2(messmap.Get("data"),"New message!","Info", "")
    n.Vibrate=False
    n.Notify(1)

    CallSub2(Main,"MyMsgBoxSub",messmap.Get("data") 'This calls a sub in your Main Activity. Here call msgbox.... with the data
 
End Sub

Erel · Dec 9, 2016

You need to pass the actual message instead of Notification_Tag.

kelvo01 · Dec 9, 2016

So i try this code, but don't work :'(

B4X:

' in main.bas
Sub Activity_Resume
    Dim in As Intent
    in = Activity.GetStartingIntent
    If in.HasExtra("InfoTag") Then
        Log(in.GetExtra("InfoTag")) 'Will log the tag    
      End If
End Sub

Sub MessaggiMsg (inMap As Map)
    Log(inMap.GetKeyAt(0))
    Log(inMap.GetValueAt(0))
    Msgbox("text ...","text ...")
   
End Sub

' in service
Sub fm_MessageArrived (Message As RemoteMessage)
   Log("Message arrived")
   Log($"Message data: ${Message.GetData}"$)
   Log("ID: " & Message.MessageId)
   Log("From: " & Message.From)
   Log("Collapse: " & Message.CollapseKey)

   Log(Message.GetData)

    Dim messmap As Map
    messmap=Message.GetData
    Log(messmap.Get("data"))
    Dim n As Notification
    n.Initialize
    n.Icon = "icon"
    n.OnGoingEvent=False
    n.Light=True
    n.SetInfo2(messmap.Get("data"),"New message!","InfoTag", "")

    n.Vibrate=False
    n.Notify(1)

    CallSub2(Main,"MessaggiMsg",messmap.Get("data"))
   
End Sub

DonManfred · Dec 9, 2016

kelvo01 said:
CallSub2(Main,"MessaggiMsg",messmap.Get("data"))

Try

B4X:

CallSub2(Main,"MessaggiMsg",messmap)

kelvo01 · Dec 9, 2016

Don't work ...
when i open the notification the sub "MessaggiMsg" don't start

kelvo01 · Dec 10, 2016

"fm_MessageArrived will be raised whenever a message is received"

i think the problem is here!

the log aren't displayed ...
Log("Message arrived")
Log($"Message data: ${Message.GetData}"$)

why in my app the sub fm_MessageArrived don't start ?

KMatle · Dec 10, 2016

Question:

- Your receive the message in fm_MessageArrived or not? (= does the debugger stop here? When you send the message, is it "successful" in Job.Done?)
- You want to know if the Activity was started via notification? This is done this way:

B4X:

Sub Activity_Create(FirstTime As Boolean)
   
    Dim in As Intent
    in = Activity.GetStartingIntent
    If in.HasExtra("Notification_Tag") Then
       'do something (msgbox or something else)
    End If

The code checks "why" the Activity has started. Here it checks if it was from a notification.

kelvo01 · Dec 10, 2016

No I don't receive the message in fm_MessageArrived

KMatle · Dec 10, 2016

Do you get a token when you subscribe?
When you send the message, is it "successful" in Job.Done?

Computersmith64 · Dec 10, 2016

Check that the prefix in the initialization of your FirebaseMessaging object is correct (ie: matches the "fm" part of "fm_MessageArrived") - eg:

B4X:

fm.Initialize("fm")

- Colin.

Erel · Dec 11, 2016

I didn't understand that you are not receiving the message at all.

Are you seeing the notification icon?

kelvo01 · Dec 11, 2016

I receive the message and the icon in the upper bar.

Erel · Dec 11, 2016

Are you using the B4J code to send the message? If so then this means that the sub is called.

kelvo01 · Dec 11, 2016

no from firebase console

Erel · Dec 11, 2016

This is the mistake. You should use the B4J code to send the messages.

kelvo01 · Dec 12, 2016

update: I receive the message and the icon in the upper bar but on the icon app don't appear the number.

before in starter.bas i miss this:

B4X:

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.
    CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
End Sub

An Schi · Dec 12, 2016

Not sure if i understand correctly - but if you want to have the number on the icon of the homescreen, this is not included in firebase nor notification.
This is called a badge. search the forum, there is a library for this, but i'm not sure if it works correctly on all devices.

Android Question FirebaseNotifications: msg box with notification

Member

B4X founder

Member

Expert

B4X founder

Member

Expert

Member

Member

Expert

Member

Expert

Well-Known Member

B4X founder

Member

B4X founder

Member

B4X founder

Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency