Pesquisar na Comunidade
Showing results for tags 'oauth'.
Encontrado 2 registros
-
[Tutorial] Como criar Credencial OAUTH Gmail
um tópico no fórum postou valterpatrick Dúvidas Gerais sobre o ACBr
Pessoal, estava tendo muita dificuldade para criar as credenciais oauth do Gmail e graças a videos no youtube, pesquisas no google e pessoal da comunidade, eu consegui. Com isto eu criei um tutorial ensinando o passo a passo de como criar esta credencial no Gmail e configurar o seu aplicativo de email, isto levando em consideração que estará apto a fazer autenticação OAUTH. Eu recomendo olharem o tópico abaixo, onde há algumas units atualizadas do ACBrMail como contribuição de um membro da comunidade. O ACBr deve atualizar os fontes logo, mas já podem utilizar o código disponibilizado no tópico abaixo. Observação: eu coloquei o arquivo pdf no meu site por que há um limite de tamanho de arquivo que posso disponibilizar no tópico. Fiquem avontade para compartilhar. Link do pdf: https://ctec.com.br/downloads/Envio_de_Email_pelo_GMAIL.pdf -
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
