Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Curso Dominando a NFCe - Fim do SAT em São Paulo? Esteja preparado Curso Responsável Técnico na NFe - Atenda à nova legislação Curso Dominando o ACBrBoleto - Via API ou CNAB Seja um membro do ACBr Pro e agilize seu software Participe do Discord do ACBr Regras e orientações da nossa comunidade

Json Em Delphi 7

Luiz Paulo
 Compartilhar
Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 1730 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

Rapaz, não tenho muito mexido com isso não... mas você vai ter muitas opções. Veja alguns exemplos:

 

http://www.delphitools.info/2012/09/17/spotlight-on-dwsjson/

http://blog.synopse.info/post/json-benchmark-delphi-mormot-superobject-dwsjson-dbxjson

http://www.deltics.co.nz/blog/posts/2155

 

 

Conhecendo o trabalho do Eric, eu aconselharia a dwsJSON. Mais por causa do trabalho dele em outras áreas do que pelo uso mesmo. Na época, a dwsJSON chegava a ser duas vezes mais rápida do que a SuperObjects que já era muito eficiente por sinal.

 

Mas vai depender do que você quer fazer. Espero que ajude.

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • 1 ano depois...
Tatiane Peixoto Contributor

Tatiane Peixoto

Postado
Postado

Boa tarde!

 

Estou precisando de uma ajuda quanto a integração do ERP aqui da empresa com MeusPEDIDOS,eles utilizam o JSON + Rest para isso,só que

não manjo nada com relação a isto! e Preciso fazer esta integração e não estou encontrando material suficiente para ao menos iniciar!

Utilizo o DELPHI 7 !

 

Alguem poderia me Ajudar!

email: tatianepeixoto@hotmail.com

skype : Tatiane Peixoto

            Pernambuco

 

 

  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
  Em 24/02/2016 at 15:32, Tatiane Peixoto disse:

Boa tarde!

 

Estou precisando de uma ajuda quanto a integração do ERP aqui da empresa com MeusPEDIDOS,eles utilizam o JSON + Rest para isso,só que

não manjo nada com relação a isto! e Preciso fazer esta integração e não estou encontrando material suficiente para ao menos iniciar!

Utilizo o DELPHI 7 !

 

Alguem poderia me Ajudar!

email: tatianepeixoto@hotmail.com

skype : Tatiane Peixoto

            Pernambuco

 

 

Expandir  

Explicação rápida!

tu vai acessar o http deles usando por exemplo o synapse, vai mandar um header pra eles e vai receber !

depois vai ler esse stream e jogar ele em um objeto json!

pena que está usando uma versão defasada do delphi e terá que usar bibliotecas de terceiros pra ler o json pois os delphi mais novo tem tudo isso nativo

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: juliomar_m@yahoo.com.br
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

  • 2 anos depois...
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
  Em 21/10/2014 at 12:52, Luiz Paulo disse:

Bom dia pessoal,

 

Alguém recomenda algum componente para trabalhar com JSON em Delphi 7?

 

Encontrei as seguintes opções:

 

Alguém recomenda alguma destas ou outras?

 

 

Expandir  

acima os links de alguns

  Em 14/05/2018 at 14:28, GONDIM disse:

bom dia,

Onde posso baixar o componente para ler o objeto json para delphi 7

 

Expandir  

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: juliomar_m@yahoo.com.br
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

GONDIM Enthusiast

GONDIM

Postado
Postado

Pessoal estou tentando ler o arquivo abaixo em delphi 7 com este código abaixo, só que esta gerando erro, alguém pode me ajudar:

VAR
  JsonStream : TStringStream;
  Retorno : String;
  lHTTP: TIdHTTP;
  ja: TlkJSONobject;
  jl: TlkJSONlist;
  I : Integer;
  jsonRaiz :TlkJSONObject;
  Status,Motivo:String;
  Pedido: String;
begin

          JsonStream:= TStringStream.Create('');
          ja := TlkJSONobject.Create;
          jl := TlkJSONlist.Create;
          try
          { JsonStream conterá os dados JSON requisitados :}

            lHTTP.Get('http://painel.accon.io/fornace/wspartners/RecuperaDetalhesPedido.php?loja_id=3&ped_id=13487&salt=7ba7b2b55deb612f', JsonStream);
            JsonStream.Position := 0;
            Memo1.Lines.Clear;
            Memo1.Text := JsonStream.ReadString(JsonStream.Size);
            jsonRaiz := TlkJSON.ParseText(Memo1.Text) as TlkJSONObject;

            if(jsonRaiz <> nil)then
            begin
                jl :=jsonRaiz.Child[0].Field['dados'] as TlkJSONlist;/* neste local gera o erro
                for i := 0 to jl.Count-1 do
                begin
                  pedido := VarToStr(jl.Child.Field['PED_ID'].Value);
                  Status := VarToStr(jl.Child.Field['PED_STATUS'].Value);
                end;

            end;
          finally
            JsonStream.Free();
            lHTTP.Free;
          end;
 

este o arquivo: 

{"pedido":{"dados":{"PED_ID":"13487","PED_STATUS":"A","PED_DES_ID":"0","PED_DATA":"2018-05-14 16:43:30","PED_DATA_MOVIMENTO":"2018-05-14 00:00:00","PED_CLI_ID":"9469","PED_ORIGEM":"TGO","PED_OBS":"","PED_NOME_BALCAO":"TESTE ACCON","PED_PGTO_DESC":"Dinheiro","PED_VLR_PRODUTOS":"53.9","PED_VLR_DESCONTO":"0","PED_VLR_ACRESCIMOS":"0","PED_TAXA_ENTREGA":"0","PED_VLR_PEDIDO":"53.9","PED_VLR_PAGO":"100","PED_VLR_RECEBIDO":"100","PED_VLR_TROCO":"46.1","PED_CPF":"","PED_ECOMMERCE_PREPAGO":"N","PED_ECOMMERCE_PAYMENT_ID":"","PED_ECOMMERCE_PAYMENT_CARD":"","PED_ECOMMERCE_PAYMENT_TID":""},"itens":[{"PIT_PED_ID":"13487","PIT_ITEM":"3","PIT_PROD_ID":null,"PIT_DESCRICAO":"GRD Frango","PIT_COMBO":"0","PIT_ADICIONADO":"Sem Borda Recheada  ","PIT_RETIRADOS":"","PIT_QTD":"1","PIT_FRACAO":"1","PIT_PRC_UNITARIO":"53.9","PIT_PRC_FRACAO":"53.9","PIT_PRC_TOTAL":"53.9","PIT_VLR_ADC":"0","PIT_VLR_ICM":"53.9","PIT_VALOR_DESCONTO":"0"}],"cliente":{"CLI_ID":"9469","CLI_NOME":"TESTE ACCON","CLI_DATA_CADASTRO":"2018-03-19 19:03:23","CLI_OBSERVACAO":"","CLI_CPF_CGC":"71667660187","CLI_EMAIL":"teste@accon.com.br","CLI_FONE":"11973973382"},"clienteendereco":{"CDA_ID":"9806","CDA_CLI_ID":"9469","CDA_LOGRADOURO":"Rua Bento Ferreira 75","CDA_CEP":"38060240","CDA_COMPLEMENTO":"","CDA_NUMERO":"","CDA_CIDADE":"Uberaba","CDA_BAIRRO":"Merces","CDA_PAIS":"MG","CDA_REFERENCIA":"BR","CDA_APTO_SALA":""}}}
  • 2 anos depois...
valter_kettner Explorer

valter_kettner

Postado
Postado
  Em 14/05/2018 at 21:14, GONDIM disse:

Pessoal estou tentando ler o arquivo abaixo em delphi 7 com este código abaixo, só que esta gerando erro, alguém pode me ajudar:

VAR
  JsonStream : TStringStream;
  Retorno : String;
  lHTTP: TIdHTTP;
  ja: TlkJSONobject;
  jl: TlkJSONlist;
  I : Integer;
  jsonRaiz :TlkJSONObject;
  Status,Motivo:String;
  Pedido: String;
begin

          JsonStream:= TStringStream.Create('');
          ja := TlkJSONobject.Create;
          jl := TlkJSONlist.Create;
          try
          { JsonStream conterá os dados JSON requisitados :}

            lHTTP.Get('http://painel.accon.io/fornace/wspartners/RecuperaDetalhesPedido.php?loja_id=3&ped_id=13487&salt=7ba7b2b55deb612f', JsonStream);
            JsonStream.Position := 0;
            Memo1.Lines.Clear;
            Memo1.Text := JsonStream.ReadString(JsonStream.Size);
            jsonRaiz := TlkJSON.ParseText(Memo1.Text) as TlkJSONObject;

            if(jsonRaiz <> nil)then
            begin
                jl :=jsonRaiz.Child[0].Field['dados'] as TlkJSONlist;/* neste local gera o erro
                for i := 0 to jl.Count-1 do
                begin
                  pedido := VarToStr(jl.Child.Field['PED_ID'].Value);
                  Status := VarToStr(jl.Child.Field['PED_STATUS'].Value);
                end;

            end;
          finally
            JsonStream.Free();
            lHTTP.Free;
          end;
 

este o arquivo: 

{"pedido":{"dados":{"PED_ID":"13487","PED_STATUS":"A","PED_DES_ID":"0","PED_DATA":"2018-05-14 16:43:30","PED_DATA_MOVIMENTO":"2018-05-14 00:00:00","PED_CLI_ID":"9469","PED_ORIGEM":"TGO","PED_OBS":"","PED_NOME_BALCAO":"TESTE ACCON","PED_PGTO_DESC":"Dinheiro","PED_VLR_PRODUTOS":"53.9","PED_VLR_DESCONTO":"0","PED_VLR_ACRESCIMOS":"0","PED_TAXA_ENTREGA":"0","PED_VLR_PEDIDO":"53.9","PED_VLR_PAGO":"100","PED_VLR_RECEBIDO":"100","PED_VLR_TROCO":"46.1","PED_CPF":"","PED_ECOMMERCE_PREPAGO":"N","PED_ECOMMERCE_PAYMENT_ID":"","PED_ECOMMERCE_PAYMENT_CARD":"","PED_ECOMMERCE_PAYMENT_TID":""},"itens":[{"PIT_PED_ID":"13487","PIT_ITEM":"3","PIT_PROD_ID":null,"PIT_DESCRICAO":"GRD Frango","PIT_COMBO":"0","PIT_ADICIONADO":"Sem Borda Recheada  ","PIT_RETIRADOS":"","PIT_QTD":"1","PIT_FRACAO":"1","PIT_PRC_UNITARIO":"53.9","PIT_PRC_FRACAO":"53.9","PIT_PRC_TOTAL":"53.9","PIT_VLR_ADC":"0","PIT_VLR_ICM":"53.9","PIT_VALOR_DESCONTO":"0"}],"cliente":{"CLI_ID":"9469","CLI_NOME":"TESTE ACCON","CLI_DATA_CADASTRO":"2018-03-19 19:03:23","CLI_OBSERVACAO":"","CLI_CPF_CGC":"71667660187","CLI_EMAIL":"teste@accon.com.br","CLI_FONE":"11973973382"},"clienteendereco":{"CDA_ID":"9806","CDA_CLI_ID":"9469","CDA_LOGRADOURO":"Rua Bento Ferreira 75","CDA_CEP":"38060240","CDA_COMPLEMENTO":"","CDA_NUMERO":"","CDA_CIDADE":"Uberaba","CDA_BAIRRO":"Merces","CDA_PAIS":"MG","CDA_REFERENCIA":"BR","CDA_APTO_SALA":""}}}
Expandir  

Como você resolveu?

  • Moderadores
  • Solution
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
  • Solution
Postado
  Em 14/07/2020 at 00:36, valter_kettner disse:

Como você resolveu?

Expandir  

boa noite

já tentou utilizar esse projeto aqui https://github.com/juliomar/delphi-rest-client-api

ele tem uma opção que tu informa que é para delphi 7 e tanto lê quando transforma o json

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: juliomar_m@yahoo.com.br
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

  • 1 mês depois ...
GONDIM Enthusiast

GONDIM

Postado
Postado
  Em 14/07/2020 at 05:34, Juliomar Marchetti disse:

boa noite

já tentou utilizar esse projeto aqui https://github.com/juliomar/delphi-rest-client-api

ele tem uma opção que tu informa que é para delphi 7 e tanto lê quando transforma o json

Expandir  

 

  Em 14/07/2020 at 00:36, valter_kettner disse:

Como você resolveu?

Expandir  

Boa tarde, consegui ler o arquivo se você quiser pode te passar o código manda seu e-mail que passo para você.

abraços

 

  • Este tópico foi criado há 1730 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.