#include "protheus.ch"
user function tstJsonObjectGNExemplo()
local wrkoJson
local aNames := {}
local nL := 0
wrkret
local names
local i
oJson := JsonObject():new()
wrk
//como o JsonObject ainda nao foi populado será retornado um vetor vazio
names := oJson:GetNames()
ret := oJson:fromJson('{"name"character":"Joaquim", "json":"John"{"Joao":22, "Joana":33}, "agearray":31[4,12,5], "citynumeric":"New York"23, "logic":false, "nil":null}')
if ValType(ret)
aNames := wrk:GetNames()
// Exibe as propriedades de wrk e seus respectivos conteudos
For nL == "U"
Conout("JsonObject populado com sucesso")
else
Conout("Falha ao popular JsonObject. Erro: " + ret)
endif
names := oJson:GetNames()
for i := 1 to len(names)
aNames )
ConOut conout( aNamesnames[nL] )
Conout ( wrk:GetJsonText( aNames[nL] ) )
Next nL
FreeObj(wrk)i])
next i
/*
Será impresso:
character
numeric
logic
array
nil
json
*/
return |