ACBrBoletoWS.Rest.OAuth - Contribuição

[willian_delan]

Boa tarde, tudo bem?

Temos alterações internas em alguns arquivos do ACBr e gostaríamos de ver se são úteis para serem incluídos ao repositório oficial, para contribuir com o repositório e ao mesmo tempo eliminar essas pendências do SVN que precisamos ter devido alguma particularidade encontrada ou algo nesse sentido.

 

unit ACBrBoletoWS.Rest.OAuth.pas

Alterações incluem: Adicionado uses strutils; alterado procedure ProcessarRespostaOAuth:

- Alguns bancos retornam "accessToken" ao invés de "access_token".

- No FExpire caso o expires_in tem valor pega desta propriedade, caso não, pega do tokenExpirationTime.

- Somente mapear os erros do token caso estiver o Assigned(LJson) e (Trim(ARetorno) <> EmptyStr) pois há casos que o JSON retorna vazio e ao mapear o LErrorMessage, se não tiver valor  no LJson.AsString['message'] vai dar exceção, então é mapeado do FHTTPSend.ResultCode + ARetorno

 

Dúvidas questionar; Caso seja aproveitado parcial ou completo informar aqui por gentileza.

Ref:

 

[antonio.carlos]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn - #TK-7077