Spanish Necesito ayuda para armar JSON!

Alejandro Viera

Member
Licensed User
Buenas tardes, necesito ayuda para terminar de armar un JSON.

Tengo que enviar el siguiente formato de String

{"idremitente":"1","iddestinatario":"0","idtipo":"1","mensaje":"Alarma !!!","ubicacion":{"lon":"40.4875391","lat":"-3.3881343","lastdate":'2019-12-02'}}'

Para lo cual hice:

B4X:
        Dim Map1 As Map
        Dim Ubicacion As List 
        Map1.Initialize
        Dim JSONGenerator As JSONGenerator
        Map1.Put("idremitente", Main.idusuario)
        Map1.Put("iddestinatario", destinatario)
        Map1.Put("idtipo", "1")
        Map1.Put("mensaje", Main.gloNombreUsuario&" necesita que llames a "&Body)

       JSONGenerator.Initialize(Map1)
Por lo que he investigado, debería meter en un list (Ubicacion) las variables ulon, ulat y utim.
Pero no encuentro la forma correcta de hacerlo.

Agradezco cualquier tipo de ayuda.
 

Don Oso

Active Member
Licensed User
Hola debes iniciar la lista .. ubicacion y metarla a Map1

B4X:
        Dim Map1 As Map
        Dim ubimap as Map
        Dim Ubicacion As List 
        Dim JSONGenerator As JSONGenerator

        Map1.Initialize
        Ubimap.initialize
        ubicacion.initialize

        ubimap.put("lon",""40.4875391")
        ubimap.put("lat":"-3.3881343")
        ubimap.put("lastdate":'2019-12-02')
       
         ubicacion.add(ubimap)

      
        Map1.Put("idremitente", Main.idusuario)
        Map1.Put("iddestinatario", destinatario)
        Map1.Put("idtipo", "1")
        Map1.Put("mensaje", Main.gloNombreUsuario&" necesita que llames a "&Body)
        Map1.put("ubicacion",ubicacion)
      

       JSONGenerator.Initialize(Map1)
 
Top