Spanish Necesito ayuda para armar JSON!

[Alejandro Viera]

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:

        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]

Hola debes iniciar la lista .. ubicacion y metarla a Map1

        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)

 

[Alejandro Viera]

Muchas Gracias Don Oso.

Ahora ya me ubico bastante mejor, para luego hacer el parseo también!

Hasta la próxima.

PD: Dejo para los novatos como yo, una herramienta muy util para "Leer" un JSON recibido.
https://b4x.com:51041/json/index.html