Italian B4J - File JSON

[marco.canta]

Buonasera, ho necessità di realizzare un programma con B4J che interscambi dati con un applicativo, il mezzo di scambio sarà un file Json.
Ho studiato qualcosa ma ho trovato molto su B4A e non B4J, ho provato a scrivere qualche riga di codice ma non funziona.
Mi potete aiutare ? Cè qualche esempio di codice ?

Grazie Marco

 

[Sagenut]

Puoi provare ad iniziare da quì
https://www.b4x.com/android/forum/threads/android-json-tutorial.6923/#content

 

[marco.canta]

grazie

 

[marco.canta]

Sto facendo progressi, riesco a scrivere un file JSON con le informazioni che mi occorrono usando il codice seguente

   Dim MapS As Map
    MapS = CreateMap("serviceId"   : "4", "serviceName"    : "Service", "serviceCode"  : "F", "serviceIsActive"    : False, "lastNumber"  : 21,"nowServing"  : 14)

    Dim JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(MapS)

ora il problema che non riesco a risolvere è che ho la necessità di inserire nel MapS che delle variabili al posto del "4" ... "Service" ... "F" .... ecc
ma non riesco a trovare la strada per farlo.

Qualche suggerimento ?

Grazie Marco

 

[emexes]

 

[emexes]

mapS.Put("serviceName", "il servizio più eccellente di sempre")

 

[marco.canta]

ho provato ...

    MapS.Put("serviceId","4")
    MapS.Put("serviceName","Service")
    MapS.Put("serviceCode","J")
    MapS.Put("serviceIsActive",True)
    MapS.Put("lastNumber","8")
    MapS.Put("nowServing","12")

il problema che che rispetto al "CreateMap" non posso inserire le virgole importanti per la creazione del file JSON

 

[marco.canta]

risolto ...

    Dim Val_Id As String = "82"
    Dim Val_SevName As String = "Service"
    Dim Val_SrvCode As String = "K"
    Dim Val_SrvActv    As Boolean = True
    Dim Val_LastNum As Int = 32
    Dim Val_NowServ As Int = 46

    Dim MapS As Map
    MapS = CreateMap("serviceId"   : Val_Id, "serviceName"    : Val_SevName, "serviceCode"  : Val_SrvCode, "serviceIsActive"    : Val_SrvActv, "lastNumber"  : Val_LastNum,"nowServing"  : Val_NowServ)

 

[emexes]

Fare un tentativo:

Dim MapS as Map
MapS.Initialize

MapS.Put("serviceId","4")
MapS.Put("serviceName","Service")
MapS.Put("serviceCode","J")
MapS.Put("serviceIsActive",True)
MapS.Put("lastNumber","8")
MapS.Put("nowServing","12")

Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize (MapS)

Ma se si apportano modifiche alla mappa, sarà necessario ricreare il JSON.

 

[emexes]

Ma se si apportano modifiche alla mappa, sarà necessario ricreare il JSON.

Eg:

...

Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize (MapS)

mapS.Put("serviceName", "Il servizio più eccellente di sempre")

JSONGenerator.Initialize (MapS)