#include "protheus.ch"
user function tstJsonObjectGJTExemplo()
local oJson
local wrk
wrkret
oJson := JsonObject():new()
wrk
ret := oJson:fromJson('{"namecharacter":"Joaquim", "json":"John"{"Joao":22, "Joana":33}, "agearray":31[4,12,5], "citynumeric":"New York"}') )
// Retorna "John"
ConOut ( wrk:GetJsonText("name") )
FreeObj(wrk)
return
23, "logic":false, "nil":null}')
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: (string vazia)
*/
ret := oJson:GetJsonText("numeric")
conout (ret)
/*
Será impresso: (string vazia)
*/
ret := oJson:GetJsonText("logic")
conout (ret)
/*
Será impresso: (string vazia)
*/
ret := oJson:GetJsonText("nil")
conout (ret)
/*
Será impresso: (string vazia)
*/
FreeObj(oJson)
return |