Integração API Rest utilizando Json
Olá, estou com um problema em fazer uma integração utilizando uma API que utiliza Rest e trafega conteúdo no formato Json.
Nesta API eu tenho que enviar um Json e pegar no retorno outro Json.
Eu consigo conectar e enviar o conteúdo mas o retorno está vindo em branco.
Não sei se estou fazendo algo errado, estou quebrando a cabeça a 3 dias e nada.
Segue código abaixo:
var
URL, Retorno: String;
JsonStreamRetorno, JsonStreamEnvio: TStringStream;begin
URL := 'https://endereço da API';
JsonStreamEnvio := TStringStream.Create('AQUI VAI O CONTEÚDO NO FORMATO Json');
JsonStreamRetorno := TStringStream.Create('');
// Init request:
try
idHttp.Request.ContentType := 'application/json';
idhttp.Request.Charset := 'UTF-8';
IdHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
// Set username and password:
idHttp.Request.Clear;
idHttp.Request.BasicAuthentication := False;
idHttp.Request.Username := 'usuario';
idHttp.Request.password := 'senha';
idHttp.Response.ContentType := 'application/json';
idHttp.Response.CharSet := 'UTF-8';
idHttp.Post(URL, JsonStreamEnvio, JsonStreamRetorno);
//> Também tentei assim mas tb não funcionou
//>Retorno := idHttp.Post(URL, JsonStreamEnvio);
finally
//> Nenhuma dessas formar funciou para pegar o retono
memo2.Lines.LoadFromStream(JsonStreamRetorno);
memo2.Lines.add('1=' + JsonStreamRetorno.DataString);
memo2.Lines.add('3=' + Retorno);
end;
end;Discussão (3)
Carregando comentários...