DataSnap + REST + JSON + Delphi
Bom dia,
gostaria de saber se é possível e como fazer, para enviar através dos componentes
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
Curtidas 0
Melhor post
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)
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
17/11/2014
Flavio, estou com o mesmo problema, voce conseguiu resolver?
GOSTEI 0
Roberto Fermino
17/11/2014
Estou com as mesmas dificuldades, vcs por acaso encontraram um solução?
GOSTEI 0
Roberto Fermino
17/11/2014
Estou com as mesmas dificuldades, vcs por acaso encontraram um solução?
GOSTEI 0
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
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.
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
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
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
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
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
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.
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
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.
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
17/11/2014
Valeu Rafael.
Obrigado mais uma vez.
Obrigado mais uma vez.
GOSTEI 0
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.
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
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,
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
17/11/2014
Olá,
sei que o post é antigo.
Alguém conseguiu integrar Delphi 7 com Mercos (antigo Meus Pedidos) ?
sei que o post é antigo.
Alguém conseguiu integrar Delphi 7 com Mercos (antigo Meus Pedidos) ?
GOSTEI 0