#include "protheus.ch"
user function tstJsonObjectGJTExemplo()
local oJson
local wrk
wrkret
oJson := JsonObject():new()
wrk
ret := oJson:fromJson('{"name":"John", "age":31, "city":"New York"}') )
// Retorna "John"
ConOut ( wrk:GetJsonText("name") )
FreeObj(wrk)
return
"character":"Joaquim", "json":{"Joao":22, "Joana":33}, "array":[4,12,5], "numeric":23, "logic":false, "nil":null, "CArr":["Joaquim","Ana","joao"]}')
if ValType(ret) == "U"
Conout("JsonObject populado com sucesso")
else
Conout("Falha ao popular JsonObject. Erro: " + ret)
endif
ret := oJson:GetJsonText("character")
conout (ret)
/*
Será impresso:
Joaquim
*/
ret := oJson:GetJsonText("json")
conout (ret)
/*
Será impresso:
{"Joana":33,"Joao":22}
*/
ret := oJson:GetJsonText("array")
conout (ret)
/*
Será impresso:
[4,12,5]
*/
ret := oJson:GetJsonText("numeric")
conout (ret)
/*
Será impresso:
23
*/
ret := oJson:GetJsonText("logic")
conout (ret)
/*
Será impresso:
false
*/
ret := oJson:GetJsonText("nil")
conout (ret)
/*
Será impresso:
null
*/
ret := oJson:GetJsonText("CArr")
conout (ret)
/*
Será impresso:
["Joaquim","Ana","joao"]
*/
ret := oJson:GetJsonText("xpto")
conout (ret)
/*
Será impresso:
*/
FreeObj(oJson)
return |