Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 18

changes.mady.by.user Ieda Ferreira Alves Flock

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rodrigo Silva Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
titleAtenção

Esta funcionalidade está depreciada, para consultar as novas classes JSON e suas funcionalidades, clique aqui.

Introdução

...

JSON (JavaScript Object Notation - Notação de Objetos JavaScript) é uma formatação leve de troca de dados. 

...

As classes JSONObject e JSONArray tem o objetivo de auxiliar no consumo e manutenção de objetos JSON dentro do progress.

Foram criadas Existem duas novas classes progressdisponibilizadas pela Progress:

Fontes

Progress 10.2b e versões posteriores: <FOUNDATION>/com/totvs/framework/abl/json/

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>/V2.06B/V2.06B/com/totvs/framework/abl/json

Bloco de código
linenumberstrue
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:

json-sample-save-json.p

json-sample-manual.p

json-sample-load-json.p

json-sample-from-json.p

...