Árvore de páginas

Versões comparadas

Chave

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

...

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
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:

...