Consumir Webservice REST em Delphi

[berti]

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]

 

Editado 15 Março, 2016 por EMBarbosa
Tópico dividido

[Juliomar Marchetti]

Boa tarde!

por que não migra para seattle que existem componentes já pronto e melhores pra isso!

[berti]

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.

 

Editado 15 Março, 2016 por berti

[Reinaldo Alberto]

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);
 

 

[Waldir Paim]

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.

[berti]

Reinaldo, obrigado. Vou testar.

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

[berti]

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.

[Waldir Paim]

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. 

[Reinaldo Alberto]

Na unit System tem uma função chamada Utf8ToAnsi. 

Testa o retorno chamando ela. 

[Softcia sma]

Boa tarde. 

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

Exemplo:

empresa

usuario

senha

cpf

renach

?

 

[Berry Graf]

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

 

[Waldir Paim]

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?)

[J.R.S]

Outra possibilidade seria experimentar os componentes restdataware

 

[Claudinei Camargo]

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

[email protected]

watsapp +595 985215591

[Juliomar Marchetti]

1 hora atrás, Claudinei Camargo disse:

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

[email protected]

watsapp +595 985215591

poste em classificados