DataSnap + REST + JSON + Delphi

17/11/2014

0

Bom dia,

gostaria de saber se é possível e como fazer, para enviar através dos componentes
DataSnap Client
um conteúdo em JSON para um servidor. Para explicitar melhor, meu problema é o seguinte: Estou fazendo a integração do meu sistema com o sistema Meus Pedidos e para enviar meus dados para o servidor deles é através de requisições REST (HTTP). Dessa forma para enviar um cliente, por exemplo, faria um POST na URL http://meuspedidos.com.br/api/v1/clientes/ e as informações do cliente em JSON. Além disso, para a autenticação são necessários adicionar duas linhas no header ApplicationToken e CompanyToken. A pergunta principal é como faço para enviar JSON através dos componentes
DataSnap Client
e adicionar as linhas nos Header.
Flavio Solci

Flavio Solci

Responder

Post mais votado

21/07/2015

Roberto,

Consegui fazer a integracao semana passada, abaixo o exemplo do codigo


var
URL: string;
JsonStreamRetorno : TStringStream;

begin
URL := 'http://69.164.203.63:8080/api/v1/usuarios/';
JsonStreamRetorno := TStringStream.Create('', TEncoding.UTF8);

idHttp.Request.ContentType := 'application/json';
idhttp.Request.Charset := 'UTF-8';
idHttp.Request.Clear;
idHttp.Request.BasicAuthentication := false;

idHttp.Request.Clear;
idHttp.Request.CustomHeaders.Clear;
idHttp.Request.ContentType := 'application/json';
IdHttp.Request.CharSet := 'utf-8';
idHttp.Request.CustomHeaders.AddValue('ApplicationToken','coloque seu token');
idHttp.Request.CustomHeaders.AddValue('CompanyToken','coloque seu token');
idHttp.Request.CustomHeaders.AddValue('Content-Type','application/json');

idHttp.Response.ContentType := 'application/json';
idHttp.Response.CharSet := 'UTF-8';

try
idHttp.get(URL, JsonStreamRetorno);
// idHttp.Post(URL,JsonStreamEnvio);
except
on E:EIdHTTPProtocolException do
ShowMessage(e.ErrorMessage);
end;
Memo2.Lines.clear;
Memo2.Lines.Add(JsonStreamRetorno.DataString)

Rafael Budag

Rafael Budag
Responder

Mais Posts

14/05/2015

Rafael Budag

Flavio, estou com o mesmo problema, voce conseguiu resolver?
Responder

21/07/2015

Roberto Fermino

Estou com as mesmas dificuldades, vcs por acaso encontraram um solução?
Responder

21/07/2015

Roberto Fermino

Estou com as mesmas dificuldades, vcs por acaso encontraram um solução?
Responder

22/07/2015

Roberto Fermino

Oi Rafael, obrigado pelo retorno, ao compilar esta faltando este TEncoding.UTF8, já adicionei a sysutils, mais eu uso delphi 7, será que é por isso?
Responder

04/12/2015

Tatiane Peixoto

Ola vocês ja conseguiram fazer a integração com MeusPedidos!

Estou precisando fazer e nem sei como começar!

Tenho dúvidas como vou gerar esses arquivos no formato Json ,enviar e receber utilizando REST (HTTP)!

Alguém poderia me ajudar com exemplos em delphi 7!

Utilizo o DELPHI 7 e banco de dados firebird!

contato: tatianepeixoto@hotmail.com

Grata,
Tatiane Peixoto.
Responder

05/07/2016

Washington

Olá, a todos.

Estou com as mesmas dificuldades, alguém consegui desenvolver uma solução?

também utilizo o DELPHI 7 e banco de dados firebird.

contato: washington_peixoto@hotmail.com
Responder

05/07/2016

Rafael Budag

Washintong,

Meu sistema integra com os meus pedidos. Coloquei no exemplo acima como faço a comunicação. Uso o Delphi XE.

Quem me ajudou a conseguir comunicar foi o Tatu(Carlos Agnes) da Acquasoft, acho que foram umas 2 horas de consultoria, de repente ve com ele (carlos.agnes@aquasoft.com.br). Ele é fera no delphi
Responder

06/07/2016

Washington

Ola Rafael,

Obrigado pelo contato.

Por acaso você teria interesse em negociar os fontes deste integrador com "MEUS PEDIDOS".
Caso o tenha pode entrar em contato comigo:

De qualquer forma estou estudando o seu exemplo.
Valeu pela dica.


email/skipe: washington_peixoto@hotmail.com.
Responder

07/07/2016

Rafael Budag

Washington,

A rotina de integração fiz conforme o exemplo acima. Acho mais facil voce ver com o Tatu para te ajudar, pois não entendo muito de webservice.
Responder

07/07/2016

Washington

Valeu Rafael.

Obrigado mais uma vez.
Responder

25/08/2016

Washington

Fala galera.

Alguém conseguiu enviar imagens dos produtos.

Algum exemplo?

Estava estudando o envio através da base64. Será que alguém saberia como isto é feito.

Obrigado.
Responder

16/12/2016

Antonio Filho

Washington,

Vc conseguiu integrar com o Delphi 7. Estou precisando somente receber os dados de pedidos.

Qq coisa estou te passando meu email : furone@zipmail.com.br

Att,
Responder

24/09/2019

Alexandre Faustinoni

Olá,

sei que o post é antigo.

Alguém conseguiu integrar Delphi 7 com Mercos (antigo Meus Pedidos) ?

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar