DataSnap + REST + JSON + Delphi

Delphi

Flavio Solci

   - 17 nov 2014

Bom dia,
gostaria de saber se é possível e como fazer, para enviar através dos componentes
Cita??o: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
Cita??o:DataSnap Client e adicionar as linhas nos Header.

· Responder · Citar

Post mais votado

Rafael Budag

   - 21 jul 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)