Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
Try
FirebaseMessaging.MessageReceivedWhileInTheForeground(Message)
' UNC.Initialize
' UNC.SetCategoryActions("Category 1", Array("Action 1", "Action 2", "Action 3"))
' UNC.CreateNotificationWithContent(Message.Get("title"), Message.Get("body"), "identifer 2", "Category 1", 4000)
CompletionHandler.Complete
'Msgbox(Message.Get("body"), Message.Get("title"))
Catch
Log(LastException)
End Try
End Sub
Private Sub Application_PushToken (Success As Boolean, Token() As Byte)
Log($"PushToken: ${Success}"$)
If Success = False Then
Log(LastException)
End If
End Sub
Private Sub Application_Active
FirebaseMessaging.connect
End Sub
'Template version: B4i-1.0
#Region Delegates
Private Sub Application_Background
B4XPages.Delegate.Activity_Pause
FirebaseMessaging.disconect
End Sub