Falha de autorização com Indy

[dpaulabh]

Bom dia. 

Continuando minha briga com o Indy....

Estou consumindo uma API Rest e consegui gerar o token utilizando as dlls do openssl. 

Mas agora quando vou acessar passando o token somente recebo o erro abaixo:

 

 

O conteúdo do token está correto. Se copio o memo e uso no PostMan a requisição funciona.

 

imagem removida informação sensível

O código eu estou fazendo conforme abaixo:

procedure TForm2.Button1Click(Sender: TObject);
var
   url : String;
   token : String;
   response : String;
   body : TStringStream;
begin
   url := 'https://xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/api/integracao/catalogo/produto';

   body := TStringStream.Create('{ "superBusca": "TERMINAL DE DIRECAO SANDERO" }', TEncoding.UTF8);

   http.Request.Clear;
   http.Request.ContentType := 'application/json';
   http.Request.BasicAuthentication := false;

   http.Request.CustomHeaders.Clear;
   http.Request.CustomHeaders.AddValue('Authorization' , 'Bearer ' + mToken.Text);

   response := http.Post(url, body);
   ShowMessage(response);
end;
 

Alguém tem alguma dica para me dar. Já tentei de tudo. 

 

Obrigado. 

 

[Juliomar Marchetti]

FIdHTTP.Request.CustomHeaders.FoldLines := False;
FIdHTTP.Request.CustomHeaders.Add('Authorization:Bearer ' + txtToken.Text);

[dpaulabh]

Boa tarde Juliomar,

 

Eu já tinha testado dessa forma. Ocorre o mesmo problema. No Postman passa normal.

[Juliomar Marchetti]

Certeza que funciona 100%

deve ser algum espaço que esteja esquecendo ou algo assim

[dpaulabh]

Descobri. Baixei um monitor HTTP e vi que o componente estava trocando o token. Veja abaixo:

 

imagem removida informação sensível

 

Então depurei o fonte do indy e descobri que se a propriedade http.Request.Authentication tiver algum valor ele vai fazer isso. Então eu acrescentei o comando

   http.Request.Authentication := nil;

antes do post e funcionou. 

 

Obrigado Juliomar!

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.