Spanish Necesito ayuda para armar JSON!

Discussion in 'Spanish Forum' started by Alejandro Viera, Dec 4, 2019 at 8:51 PM.

  1. Alejandro Viera

    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:

    Code:
    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.
     
  2. Don Oso

    Don Oso Active Member Licensed User

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

    Code:
    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)
     
  3. Alejandro Viera

    Alejandro Viera Member Licensed User

    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
     
    Last edited: Dec 5, 2019 at 6:33 PM
    Descartex, angel_ and Don Oso like this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice