[Delphi Seattle] - Como efetuar leitura de arrays em JSON

19/07/2017

Boa tarde galera!

Sou novo nessa quest�o de JSon, tenho a seguinte estrutura:

{	
	"INSCRICAO": "09.999.999/0009-99",
		 "TIPO": "MATRIZ",
	 "ABERTURA": "06/02/2003",
		"RAZAO": "EMPRESA PRIVADA LTDA.",
	 "FANTASIA": "*******",

	"ATIVIDADE_CODIGO": "47.13-0-02",
	"ATIVIDADE_DESCRICAO": "Lojas de variedades, exceto lojas de departamentos ou magazines",

	"ATIVIDADES_SECUNDARIAS":[
								{"ATIVIDADE": "47.51-2-01 - Com�rcio varejista especializado de equipamentos e suprimentos de inform�tica"},								
								{"ATIVIDADE": "47.72-5-00 - Com�rcio varejista de cosm�ticos, produtos de perfumaria e de higiene pessoal"},
								{"ATIVIDADE": "47.56-3-00 - Com�rcio varejista especializado de instrumentos musicais e acess�rios"},
								{"ATIVIDADE": "45.30-7-03 - Com�rcio a varejo de pe�as e acess�rios novos para ve�culos automotores"},
								{"ATIVIDADE": "47.52-1-00 - Com�rcio varejista especializado de equipamentos de telefonia e comunica��o"},
								{"ATIVIDADE": "47.53-9-00 - Com�rcio varejista especializado de eletrodom�sticos e equipamentos de �udio e v�deo"},
								{"ATIVIDADE": "47.63-6-01 - Com�rcio varejista de brinquedos e artigos recreativos"},
								{"ATIVIDADE": "47.63-6-02 - Com�rcio varejista de artigos esportivos"},
								{"ATIVIDADE": "47.57-1-00 - Com�rcio varejista especializado de pe�as e acess�rios para aparelhos eletroeletr�nicos para uso dom�stico, exceto inform�tica e comunica��o"},
								{"ATIVIDADE": "59.11-1-99 - Atividades de produ��o cinematogr�fica, de v�deos e de programas de televis�o n�o especificadas anteriormente"},
								{"ATIVIDADE": "73.11-4-00 - Ag�ncias de publicidade"},
								{"ATIVIDADE": "47.89-0-04 - Com�rcio varejista de animais vivos e de artigos e alimentos para animais de estima��o"},
								{"ATIVIDADE": "47.11-3-02 - Com�rcio varejista de mercadorias em geral, com predomin�ncia de produtos aliment�cios - supermercados"}							 
							 ]							
}

Preciso pegar todos os itens dentro de "ATIVIDADES_SECUNDARIAS" e listar em um TListBox, lembrando que a quantidade de itens � din�mica.
Algu�m pode me fornecer um exemplo? Andei procurando mas n�o to tendo muito sucesso rs.

Obrigado desde j� ;)

Mateus Ribeiro

Curtir t�pico + 2

Responder

Post mais votado

19/07/2017

Adicione um Listbox e um Memo.

Insira o conte�do do Json no Memo.

Teste o c�digo abaixo, no OnClick de um bot�o:

var
  jsonObj, jSubObj: TJSONObject;
  ja: TJSONArray;
  jv: TJSONValue;
  i: Integer;
begin
  jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0) as TJSONObject;

  jv := jsonObj.Get('ATIVIDADES_SECUNDARIAS').JsonValue;
  ja := jv as TJSONArray;

  ListBox1.Clear;

  for i := 0 to ja.Size - 1 do
  begin
    jSubObj := (ja.Get(i) as TJSONObject);
    jv := jSubObj.Get(0).JsonValue;
    ListBox1.Items.Add(jv.Value);
  end;
end;

Natanael Ferreira

Responder

Gostei + 4

Mais Posts

19/07/2017

Mateus Ribeiro

Natanael Ferreira!

Muito obrigado. Deu certinho, o negocio � bem simples e n�o consegui achar "googleando" kkkk
Obrigad�o mesmo, abra�o!

Responder

Gostei + 0

23/03/2018

F�bio Sobral

Deu certo esse c�digo ai ! Obrigado

Responder

Gostei + 0

18/12/2018

Marcelino Pinheiro

Algu�m sabe o por qu� do Delphi n�o aceitar este JSON do exemplo? Quando rodo o Parse para carrega-lo a vari�vel fica NIL, como se o JSON fosse inv�lido. Tive que colocar um label (Adicionei

{"pedidos": [

) no in�cio e fechei com "

]}

" a� a vari�vel jsonObj ficou com o valor correto...

Responder

Gostei + 0

01/04/2019

Paulo Abrantes

ola pessoal, se alguem puder me ajudar em uma duvida parecida:

{
"html_attributions" : [],
"results" : [
{
"formatted_address" : "R. Colombia, 2384 - Centro, Votuporanga - SP, 15501-150, Brasil",
"geometry" : {
"location" : {
"lat" : -20.8175674,
"lng" : -48.998183799999
},
"viewport" : {
"northeast" : {
"lat" :-20.817567462010727,
"lng" : -48.38384822010727
},
"southwest" : {
"lat" : -20.71813962010727,
"lng" : -48.38384822010727
}
}
},
"icon" : "https://maps.gstatic.com/mapfiles/place_api/icons/geocode-71.png",
"id" : "dw948h7e66ed44e7ef4063489053534482342929",

"types" : [ "street_address" ]
}
],
"status" : "OK"
}

preciso pegar o resultado dos campos "geometry" > "location" > "lat" e "lng" desse json no delphi. Nao estou conseguindo pois location nao � um array, entao estou apanhando aqui.

Responder

Gostei + 0

09/05/2023

Thiago Amaral

boa tarde, tenho essa rotina e gostaria de colocar o cnae junto alguem pode me ajudar?
a consulta do cnae vem assim no

"atividade_principal": [ {"code": "47.51-2-01", "text": "Com�rcio varejista especializado de equipamentos e suprimentos de inform�tica" } ],
como que eu fa�o a vari�vel para pegar somente o code?

procedure TDMRotinas.BuscaCNPJ(CNPJ: String);
var
jsonObject: TJsonObject;
begin
RESTRequestCNPJ.Resource := CNPJ;
RESTRequestCNPJ.Execute;
jsonObject := TJsonObject.ParseJSONValue(RESTResponseCNPJ.Content)
as TJsonObject;
Pessoa.razao := jsonObject.GetValue('nome').Value;
Pessoa.fantasia := jsonObject.GetValue('fantasia').Value;
Pessoa.logradouro := jsonObject.GetValue('logradouro').Value;
Pessoa.numero := jsonObject.GetValue('numero').Value;
Pessoa.bairro := jsonObject.GetValue('bairro').Value;
Pessoa.municipio := jsonObject.GetValue('municipio').Value;
Pessoa.uf := jsonObject.GetValue('uf').Value;
Pessoa.cep := jsonObject.GetValue('cep').Value;
Pessoa.email := jsonObject.GetValue('email').Value;
Pessoa.complemento := jsonObject.GetValue('complemento').Value;
Pessoa.telefone := jsonObject.GetValue('telefone').Value;

Responder

Gostei + 0