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