Ir para conteúdo
  • Cadastre-se

dev botao

Json Em Delphi 7


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

Recommended Posts

  • Consultores

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.
Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

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

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 2 anos depois...
  • Moderadores
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:

 

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

 

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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":""}}}
Link para o comentário
Compartilhar em outros sites

  • 2 anos depois...
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?

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
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

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1317 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
×
×
  • 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.