23/04/13 Versão para impressão: TRABALHANDO COM TIPOS JSON NO DELPHI 2010 - PARTE 2

www.devmedia.com.br/articles/viewcomp_forprint.asp?comp=17085 1/2

www.devmedia.com.br [versão para impressão]

TRABALHANDO COM TIPOS JSON NO DELPHI 2010 - PARTE 2Neste artigo iremos trabalhar com os tipos nativos do Delphi para notação JSON implementados na unit DBXJSON.Iremos iterar um JSONObject, em português, um objeto nativo do Delphi do tipo TJSONObject.

TRABALHANDO COM TIPOS JSON NO DELPHI 2010

Tipo didático-prático

Requisitos:PARTE 1

Neste artigo iremos trabalhar com os tipos nativos do delhi para notação JSON implementados na unit DBXJSON.Iremos iterar um JSONObject, em português, um objeto nativo do delphi do tipo JSON.

Vamos à prática

Abra o projeto implementado na PARTE 1 desta sequência de artigos.

Selecione o formulário e no Object Inspector altere a propriedade Caption para TRABALHANDO COM TIPOS JSON NO DELPHI 2010 - PARTE 1 e2

No formulário coloque um mais um botão.

Selecione o botão e no Object Inspector altere a propriedade Caption para Iterar JSONObject. Altere também a propriedade Name paraBtnIterarJSONObject.

Clique duplo sobre o botão e codifique o procedimento para que fique de acordo com o código abaixo:

procedure TForm1.BtnIterarJSONObjectClick(Sender: TObject);var jsonObj: TJSONObject; jp: TJSONPair; i: integer;begin Form1.Memo1.Lines.Clear;

jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes( '{"Nome":"DELMAR","Cidade":"AJURICABA","Bairro":"CENTRO"}' ), 0) as TJSONObject; //dada a seguinte string em notação JSON que será convertida pela função ParseJSONValue em um objeto nativo do delphi do tipo TJSONObject

jp := TJSONPair.Create;

Form1.Memo1.Lines.Add('quantidade de pares ' + IntToStr(jsonObj.Size)); //quantidade de pares do objeto Form1.Memo1.Lines.Add('');

Form1.Memo1.Lines.Add('Pegando junto a chave e valor usando a função ToString do TJSONPair'); for i := 0 to jsonObj.Size - 1 do //percorrer o objeto para pegar os pares begin jp := jsonObj.Get(i); //pega o par no índice i Form1.Memo1.Lines.Add(jp.ToString); //pega junto a chave e valor end;

Form1.Memo1.Lines.Add(''); Form1.Memo1.Lines.Add('Pegando separado a chave e o valor usando respectivamente jp.JsonString.ToString e jp.JsonValue.ToString'); for i := 0 to jsonObj.Size - 1 do //percorrer o objeto para pegar os pares begin jp := jsonObj.Get(i); //pega o par no índice i Form1.Memo1.Lines.Add(jp.JsonString.ToString + ' : ' + jp.JsonValue.ToString); //pega separado a chave e o valor usando ToString end;

Form1.Memo1.Lines.Add(''); Form1.Memo1.Lines.Add('Pegando separado a chave e o valor usando respectivamente jp.JsonString.Value e jp.JsonValue.Value'); for i := 0 to jsonObj.Size - 1 do //percorrer o objeto para pegar os pares begin jp := jsonObj.Get(i); //pega o par no índice i Form1.Memo1.Lines.Add(jp.JsonString.Value + ' : ' + jp.JsonValue.Value); //pega separado a chave e o valor usando Value end;end;

Abaixo segue uma sugestão de como dispor os objetos no formulário e o resultado do botão Iterar JSONObject.

23/04/13 Versão para impressão: TRABALHANDO COM TIPOS JSON NO DELPHI 2010 - PARTE 2

www.devmedia.com.br/articles/viewcomp_forprint.asp?comp=17085 2/2

Salve o projeto.

Pressione F9 para compilar e executar o projeto.

Clique no botão Iterar JSONObject e observe os resultados.

Abraço e até a próxima.

por DELMAR WICHNIESKI (VIDE OBSERVAÇÃO)

Técnico em processamento de dados pela SETREM de Três de Maio - RS (94-96) Bacharelado em Informática pela UNIJUI de Ijuí - RS (97-00)Trabalha há 10 anos com engenharia de sistemas cliente/Servidor D3, D4 e D7. SQL, SQLs aninhadas e otimização de SQL, Firebird 1.5 ao 2.1.3.Gestão escolar, processos de produção em farmácias de manipulação, Procedimento Operacional Padrão POP para controle de estoque, processosde compra e venda, pedidos de compra e venda, nota fiscal modelo 1 e 1A, Nota Fiscal Eletrônica, automação OLE (Excel e word), migração eimportação de dados, análise de sistemas, documentação, Entidade-Relacionamento, restrições de Integridade Referencial. Também já compiloukernel de linux, instalou muitas distros e montou com conectiva linux uma intranet com 10 PCs usando estações diskless e boot remoto via EPRON.Em breve mais

www.devmedia.com.br/articles/viewcomp.asp?comp=17085