Histórico da Página

...

Aviso

A versão do 10.1b do progress não faz conversão automática dos valores passados por parâmetro para os métodos e funções das classes, é necessário primeiro converte-los, isso significa que se chamar um método que recebe um lchar, primeiramente deve-se criar uma variável do tipo lchar, atribuir o valor e passar essa variável como parâmetro.

Fontes adaptados:

Progress 10.1b (legado): $/FOUNDATION/Fontes_Doc/Sustentacao/V2.06B/V2.06B/com/totvs/framework/abl/json

Bloco de código

linenumbers	true

USING com.totvs.framework.abl.json.*.


DEFINE VARIABLE oJson AS CLASS JSONObject NO-UNDO.
DEFINE VARIABLE lChar AS LONGCHAR NO-UNDO.


oJson = NEW JSONObject().


lChar = '~{"nome":"fulano","idade":28,"admin":true,"carga":8.5,"conjuge":~{"nome":"Beltrana","sobrenome":"Siclana"~},"cursos":[~{"curso":"1 - Ciencia da Computa‡Æo","finalizado":false~},~{"curso":"3 - Gastronomia","finalizado":true,"ano":2015~},~{"curso":"4 - Inglˆs","finalizado":true,"ano":2014~}],"contrato":"15-1-2015"~}'.


oJson:setJSONString(lChar).
oJson:saveToFile("c:\tmp\teste_salvo.json").

Exemplos

...

Para exemplificar o uso e os benefícios das classes JSONObject e JSONArray, podem ser baixados os exemplos abaixo:

...

Árvore de páginas

Versões comparadas

Versão antiga 13

Nova versão 14

Chave

Exemplos