Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

berti

ANSWERED Consumir Webservice REST em Delphi

Recommended Posts

Bom dia,

 

Sou novo aqui, Estou precisando consumir um webservice rest em delphi 7. Vi o tópico aqui, Mas estou muito confuso ainda.

Alguém tem algum exemplo de uso?

Paulo S. Berti

[email protected]

 

Edited by EMBarbosa
Tópico dividido

Share this post


Link to post
Share on other sites

O projeto está em Delphi 7. Necessita de uma implementação. Usa activeX para comunicação com câmera Cognex e o componente nodave para comunicaçao com CLP. Não há tempo de procurar outras alternativas. Como tenho que obter informações do ERP do cliente sobre o produto que está na linha preciso acessar o Webservice deles.

 

Edited by berti

Share this post


Link to post
Share on other sites

Use a biblioteca lkJSON para tratar o Json e o Indy para fazer a requisição. 

Exemplo:

Citar

var
  js: TlkJSONobject;
  lhttp :TIdHTTP;
  Str :String;
begin
  lhttp := TIdHTTP.Create;
    Str := lhttp.get('https://publicapi.minhaapi.com/api/v1/CategoriaServico/'+IntToStr(Id));
     js := TlkJSON.ParseText(Str) as TlkJSONobject;

    Result := VarToStr(js.Field['MeuCampo'].Value);
 

 

Share this post


Link to post
Share on other sites

Temos alguma experiencia no uso de API e Webservice.

Se precisar de alguma ajuda nesse sentido acredito que podemos te ajudar.

Para Delphi 7 também recomendo o uso do LkJSON e até uso ele em algumas situações mas nada se compara com o JSON nativo do XE8 e Seatle.

Share this post


Link to post
Share on other sites

Reinaldo, obrigado. Vou testar.

Waldir, obrigado. Vou testar a dica acima. Se não der certo, te procuro sim.

Share this post


Link to post
Share on other sites

Caro Reinaldo e Waldir.

Segui a orientação com o LkJSON e o IdHTTP (indy 10) e deu tudo certo.

 

  IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV2';
  Str := IdHTTP1.get('http://spapp23:8080/start?code=' + Edit1.Text {+IntToStr(Id)});
  js := TlkJSON.ParseText(Str) as TlkJSONobject;
  J := js.Field['processCode'].Value;
  Memo1.Lines.Add('processCode:' + IntToStr(J));
  Memo1.Lines.Add('productId..:' + VarToStr(js.Field['productId'].Value));
  Memo1.Lines.Add('partNumber.:' + VarToStr(js.Field['partNumber'].Value));
  Memo1.Lines.Add('message....:' + VarToStr(js.Field['message'].Value));

Apenas ainda estou com problemas com a acentuação na resposta. Mas vou ver como resolver.

 

O principal que era obter os valores já está resolvido.

Agradeço muito pela ajuda.

Share this post


Link to post
Share on other sites

Que maravilha!

Sobre a acentuação é bem provável que Api te retorne em UTF8 e você precisa fazer a conversão para ANSI.

Tenta ai que provavelmente vai dar certo. 

Share this post


Link to post
Share on other sites

Boa tarde. 

Tem alguma opção para passar parametros, vi em algum lugar falando sobre Header:


Exemplo:

empresa

usuario

senha

cpf

renach

?

 


Softcia - Desenvolvimento de Sistemas Personalizados a 29 anos. Em Clipper, Visual Foxpro e Delphi

 

Mario Moreira

MSN : [email protected]

Cidade : Santa Maria - RS

 

Share this post


Link to post
Share on other sites
Em 15/03/2016 at 16:55, Waldir Paim disse:

Temos alguma experiencia no uso de API e Webservice.

Se precisar de alguma ajuda nesse sentido acredito que podemos te ajudar.

Para Delphi 7 também recomendo o uso do LkJSON e até uso ele em algumas situações mas nada se compara com o JSON nativo do XE8 e Seatle.

Ola preciso de ajuda pra desenvolver um consumo de API no delhi 7

e-mail [email protected]

watsapp 11 95550-2610

 

Share this post


Link to post
Share on other sites
Em 23/10/2019 at 09:17, Berry Graf disse:

Ola preciso de ajuda pra desenvolver um consumo de API no delhi 7

e-mail [email protected]

watsapp 11 95550-2610

 

Se fosse no Delphi Rio eu até poderia conseguir alguma coisa.
 

Delphi 7 já deu o que tinha que dar. (bora do Rio?)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...