Rafael S Amaral

Pessoal muito obrigado tudo certo resolvido...

Gravei um vídeo demonstrando o problema https://drive.google.com/file/d/1DBplVP5dI0ZOzW9Brj63q9CqhGsS6iLI/view?usp=drive_link

Sim, eu acredito que o problema ocorra somente no Banco Inter. No exemplo que te enviei está FACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True

Segue o exemplo em anexo, lembrando que na primeira consulta funcione a partir da segunda já não funciona caso você precise dos arquivos .key e .crt me chame no Discord exemplo.rar

Hoje a tarde vou tentar realizar a configuração no exemplo.. Me tire uma duvida nos teste que você realizou está utilizando as propriedades abaixo, lembrando que na 1x funciona caso tente novamente que ocorre o erro, outra duvida e se o banco exige certificado em todas requisições como o Inter ou apenas no auth. procedure TDM_BOLETOS.BoletoAntesAutenticar(var aToken: string; var aValidadeToken: TDateTime); begin aToken := v_Token; aValidadeToken := v_Expire; end; procedure TDM_BOLETOS.BoletoDepoisAutenticar(const aToken: string; const aValidadeToken: TDateTime); begin v_Token := aToken; v_Expire := aValidadeToken; end;

O erro passou a ocorrer na revisão 36249 que foi centralizado o código de CarregaCertificados porém removido do TOAuth.Create. Segue a imagem da revisão 36248 como estava antes do dia 26/11/2024 ao reverter o código para 36248 funciona normalmente.

<ACBrBoleto>.Configuracoes.WebService.UseCertificateHTTP := True já está desta forma. Ao reverte voltou o mesmo problema isso só ocorre quando utiliza a propriedade BoletoAntesAutenticar, BoletoDepoisAutenticar para aproveitar o mesmo token em quanto o token está vazio funciona normalmente por ele passar TOAuth.Executa que existe a chamada CarregaCertificados quando você passa o token ele não funciona por não CarregaCertificados segue os logs. ArqBoletoWS1.log ArqBoletoWS2.log

Atualização do dia 26/11/2024 foi alterando algo em relação CarregaCertificados, porém agora esta dando problema ao tentar aproveitar o token para novas requisições não está carregando o certificado. segue a correção alterado CarregaCertificados para TOAuth.Create(ASSL: THTTPSend; AACBrBoleto: TACBrBoleto = nil) e não mais em TOAuth.Executar(const AAuthBase64: String) ACBrBoletoWS.Rest.OAuth.pas

feat: adicionado o filtro fiSVG, fiPNG sendo possível salvar em disco ou em memoria vFile := TMemoryStream.Create;. ACBrSATExtratoFR1.ImprimirExtrato(vFile); fix: todo arquivo por padrão estava por padrão mesmo não sendo formato pdf if ExtractFileExt(AFile) = '' then AFile := AFile + '.pdf'; ACBrDFeReport.pas ACBrSATExtratoClass.pas ACBrSATExtratoFR.pas

var png: TWICImage; begin png := TWICImage.Create; png.LoadFromFile('C:\captch.png'); cxImage1.Picture.Graphic:=png; var png: TWICImage; begin png := TWICImage.Create; png.LoadFromFile('C:\Infoluck_Executavel\captch.png'); cxImage1.Picture.Graphic:=png;