#include "protheus.ch"
user function GNExemplo()
local oJson
local ret
local names
local i
oJson := JsonObject():new()
//como o JsonObject ainda nao foi populado será retornado um vetor vazio
names := oJson:GetNames()
ret := oJson:fromJson('{"character":"Joaquim", "json":{"Joao":22, "Joana":33}, "array":[4,12,5], "numeric":23, "logic":false, "nil":null}')
if ValType(ret) == "U"
Conout("JsonObject populado com sucesso")
else
Conout("Falha ao popular JsonObject. Erro: " + ret)
endif
names := oJson:GetNames()
for i := 1 to len(names)
conout(names[i])
next i
/*
Será impresso:
character
numeric
logic
array
nil
json
*/
return |