boletos itau Registro via WebService do Itaú

[drandrao]

Bom dia

Estou fazendo uma integração com a API do Itaú para o registro de boletos direto via webservice.

Está dando erro na autenticação, ele usa o oauth.

O código que estou usando é o seguinte:

function TForm1.RetornaTokenAcesso: String;
var
  Resposta : String;
  Params : TStringList;
  dados     : TDados;
begin
   Params := TStringList.create;
   Params.add('client_id='+client_ID);
   Params.add('client_secret='+cliente_SECRET);
   Params.add('grant_type=client_credentials');
   idHttp1.Response.CharSet := 'UTF-8';
   IdHTTP1.Request.ContentType := 'application/json';
   try
    //Obj := TJsonObject.ParseJSONValue(Resposta) as TJsonObject;
    Resposta := IdHTTP1.Post('https://oauth.itau.com.br/identity/connect/token', Params);
      try
        dados     := TDados.Create;
        dados     := TJSON.JsonToObject<TDados>(Resposta);
        Result    := dados.Access_token;
      except
        Result := '';
      end;
   finally
      Params.Free;
   end;
end;

 

Ele dá o erro HTTP/1.1 415 Unsupported Media Types

Já alterei o IdHTTP1.Request.ContentType porém sem sucesso.

 

Desde já obrigado

Evandro

Editado 4 Dezembro, 2018 por drandrao
correção da função

[Nelson Santos]

Boa noite @drandrao

Vc conseguiu prosseguir com o projeto ?

 

[Rodrigo_Gontijo]

Boa noite @drandrao e Nelson Santos

 

Vocês conseguiram prosseguir com o projeto ?

[Juliana Tamizou]

Bom dia.

Me parece que na realidade aqui não se estava fazendo via ACBr, de qq forma estamos no momento trabalhando na inclusão da integração do ACBrBoleto com o Itau, acompanhem o svn para atualizações.

Att.