Json Em Delphi 7

[Luiz Paulo]

Bom dia pessoal,

 

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

 

Encontrei as seguintes opções:

• JSON delphi library
• Delphi Web Utils
• tiny-json

 

Alguém recomenda alguma destas ou outras?

 

 

[Juliomar Marchetti]

Bom dia

SuperObjects !

 

você fala para consumir ?

 

nem precisa instalar é só usar as classes e pronto!

[Luiz Paulo]

Então Juliomar,

 

seria tanto para consumir quanto para criar.

 

O SuperObjects abrange as duas coisas?

[Juliomar Marchetti]

Sim !

Utilizo ele para integrar um ERP e um PDV!

[EMBarbosa]

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.

[Juliomar Marchetti]

Bom saber!

não conhecia esse! vou dar uma analisada nele Elton!

[Tatiane Peixoto]

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: [email protected]

skype : Tatiane Peixoto

            Pernambuco

 

 

[Juliomar Marchetti]

3 horas atrás, 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: [email protected]

skype : Tatiane Peixoto

            Pernambuco

 

 

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

[GONDIM]

bom dia,

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

 

[Juliomar Marchetti]

Em 21/10/2014 at 09:52, Luiz Paulo disse:

Bom dia pessoal,

 

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

 

Encontrei as seguintes opções:

• JSON delphi library
• Delphi Web Utils
• tiny-json

 

Alguém recomenda alguma destas ou outras?

 

 

acima os links de alguns

27 minutos atrás, GONDIM disse:

bom dia,

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

 

 

[GONDIM]

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":"[email protected]","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":""}}}

[xyberx]

 Recomendo o dwsJSON  mais o que está dentro do nosso pacote do REST Dataware, pois já está com as correções adequadas ao mesmo.

[valter_kettner]

Em 14/05/2018 at 18: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":"[email protected]","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":""}}}

Como você resolveu?

[Juliomar Marchetti]

4 horas atrás, valter_kettner disse:

Como você resolveu?

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

[GONDIM]

Em 14/07/2020 at 02: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

 

Em 13/07/2020 at 21:36, valter_kettner disse:

Como você resolveu?

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