Invio notifica su terminale Android

2 Risposte

• 

  Alka

  Utente Famoso

  Iscritto da

  nov, 2014

  Messaggi:

  3318

  Re: Invio notifica su terminale Android

  11 nov 2021, 18:33

  MorteNera ha scritto:

  ---

  Ciao a tutti, mi trovo a dover implementare in una applicazione scritta qualche anno fa la possibilità di inviare notifiche su terminali Android utilizzando FirebaseMessaging. Qualcuno ha già affrontato il problema?

  A mio avviso, ti conviene prendere in considerazione l'ipotesi di sviluppare questa funzionalità con un linguaggio più moderno rispetto all'ormai vetusto VB6, e magari di inserire nel vecchio programma una semplice "chiamata" a quello nuovo, passando come parametro i dati relativi alla notifica da inviare.
  
  Ciao!
• M

  MorteNera

  Pochi posts

  Iscritto da

  nov, 2021

  Messaggi:

  2

  Re: Invio notifica su terminale Android

  11 nov 2021, 20:40

  Avevo preso in considerazione anche questa strada poi ho trovato la soluzione utilizzando una nota libreria. Di seguito posto il codice ed eventualmente sono disponibile a chiarimenti se dovesse essere utile ad altri. Comunque grazie per la risposta.
  
  Dim API_KEY As String
  API_KEY = "AAAAWSB9..."
  success = glob1.UnlockBundle("QmSBAM....")
  If (success <> 1) Then
  Debug.Print glob1.LastErrorText
  Exit Sub
  End If
  Dim http As New ChilkatHttp
  http.SetRequestHeader "Authorization", "Key=" & API_KEY
  http.SetRequestHeader "ContentType", "application/json"
  http.SetRequestHeader "Accept", "application/json"
  jsonText = "{""data"":{""title"":""This is the title"",""body"":""Hello!!!!""},""to"":""\/topics\/general""}"
  Dim resp As ChilkatHttpResponse
  Set resp = http.PostJson2("https://fcm.googleapis.com/fcm/sen", "application/json", jsonText)
  If (http.LastMethodSuccess <> 1) Then
  Debug.Print http.LastErrorText
  Else
  ' Display the JSON response.
  Debug.Print resp.BodyStr
  End If