Italian [B4A] Firebase : notifica solo quello più recente

MARCO CORRIAS

Active Member
Licensed User
Buongiorno,
in riferimento a questo vecchio progetto creato da Erel


Vi risulta che se mando 2 notifiche ... uno di seguito all'altra , vi visualizza solo l'ultima inviata ?
Grazie
 

amorosik

Well-Known Member
Licensed User
Se sono notifiche identiche, si mi risulta
Devi cambiare qualcosa nel messaggio inviato
Io ci metto un contatore che e' sempre diverso, cosi non rischio
 

MARCO CORRIAS

Active Member
Licensed User
Sono messaggi diversi ... 2 interventi tecnici da effettuare su clienti diversi. Quindi body e Title sono diversi .
Questo è l'esempio B4A di Erel . Il mio ha solo un campo in aggiunta ai 2 classici

B4X:
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)
    If Topic.StartsWith("ios_") Then
        Dim iosalert As Map =  CreateMap("title": Title, "body": Body, "sound": "default")
        m.Put("notification", iosalert)
        m.Put("priority", 10)
    End If
    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;charset=UTF-8")
    Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
End Sub
Nel caso , dove inserisci il contattore ... ? Nel Title ?
 

Star-Dust

Expert
Licensed User
Numera le notifiche e saranno separate.

B4X:
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)
   NotifyCount=NotifyCount+1
   n.Notify(NotifyCount)
End Sub
 

MARCO CORRIAS

Active Member
Licensed User
Numera le notifiche e saranno separate.

B4X:
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)
   NotifyCount=NotifyCount+1
   n.Notify(NotifyCount)
End Sub
Quindi lato ricezione e non lato invio !!!
Perfetto
Ci provo
Grazie
 

Xfood

Well-Known Member
Licensed User
Buongiorno a tutti,
Mentre si parla di notifiche,
Per inviare notifiche su piu righe, qualche idea?
 

Star-Dust

Expert
Licensed User
Buongiorno a tutti,
Mentre si parla di notifiche,
Per inviare notifiche su piu righe, qualche idea?
Apri un altro thread
 

Star-Dust

Expert
Licensed User
Ok, pensavo di essere in argomento, scusa
L'argomento é Firebase : notifica solo quello più recente.
Comunque se apri un thread specifico faciliti chi cerca la risposta alla stessa domanda.
Nel frattempo vedi se questa domanda é già stata posta.
 
Top