DataSnap + REST + JSON + Delphi

Delphi

17/11/2014

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

Curtidas 0

Melhor post

Rafael Budag

Rafael Budag

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)
GOSTEI 3

Mais Respostas

Rafael Budag

Rafael Budag

17/11/2014

Flavio, estou com o mesmo problema, voce conseguiu resolver?
GOSTEI 0
Roberto Fermino

Roberto Fermino

17/11/2014

Estou com as mesmas dificuldades, vcs por acaso encontraram um solução?
GOSTEI 0
Roberto Fermino

Roberto Fermino

17/11/2014

Estou com as mesmas dificuldades, vcs por acaso encontraram um solução?
GOSTEI 0
Roberto Fermino

Roberto Fermino

17/11/2014

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?
GOSTEI 0
Tatiane Peixoto

Tatiane Peixoto

17/11/2014

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.
GOSTEI 0
Washington

Washington

17/11/2014

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
GOSTEI 0
Rafael Budag

Rafael Budag

17/11/2014

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
GOSTEI 0
Washington

Washington

17/11/2014

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.
GOSTEI 0
Rafael Budag

Rafael Budag

17/11/2014

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.
GOSTEI 0
Washington

Washington

17/11/2014

Valeu Rafael.

Obrigado mais uma vez.
GOSTEI 0
Washington

Washington

17/11/2014

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.
GOSTEI 0
Antonio Filho

Antonio Filho

17/11/2014

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,
GOSTEI 0
Alexandre Faustinoni

Alexandre Faustinoni

17/11/2014

Olá,

sei que o post é antigo.

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

GOSTEI 0
POSTAR