Private jsg2 as JSONGenerator2
Dim ret As Map
ret.Initialize
If success Then ret.Put("code",200) Else ret.Put("code",500)
ret.Put("data",data)
jsg2.Initialize(ret)
res.Write(jsg2.ToString)
2017-7-12 13:01:39
v1.1 add jsonparser(the functions are same as jsonparser in b4x)
Thanks for you library, altough I doesn't seem to work for me.
I have this code:
B4X:
Dim ErrorMap As Map
ErrorMap.Initialize
ErrorMap.Put("type","http://linktobereplaced.com/probs/login-failed")
ErrorMap.Put("detail", "You provided wrong credentials.")
ErrorMap.Put("instance", mRequest.RequestURI)
Dim jsonError As JSONGenerator2
jsonError.Initialize(ErrorMap)