Ir para conteúdo
  • Cadastre-se

dev botao

Consumir Webservice REST em Delphi


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

Recommended Posts

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 por berti
Link para o comentário
Compartilhar em outros 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);
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution

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.

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

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...
  • 1 ano depois...
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

 

Link para o comentário
Compartilhar em outros sites

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

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

  • Este tópico foi criado há 561 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 10 segundos...