Sawan

Desculpe Srs, fontes desatualizados. Atualizei e funcionou. Obrigado.

Boa tarde. Estou implementando o boleto híbrido com Bradesco e estou enfrentando diversas dificuldades para conseguir comunicar minha aplicação com ele. A conta no portal foi criada e o app configurado, gerado credenciais, gerado os certificados .BradescoAPI-02-02-2026.txtkey.pem e cert.pem via GitBash conforme informado na documentação. Inserido os dados no postman deu tudo certo, referente a requisição de token, que foi onde testei...ao adicionar arquivo .pem adicionei o .cert.pem e renomeei o certificado gerado parceiro.homologacao.key.pem para parceiro.homologacao.key e deu tudo certo lá. Com o ACBr ainda não deu, ao usar as mesmas credenciais e certificados, passando o caminho direto dos arquivos ArquivoCRT e ArquivoKey, o erro devolvido ao usar UseCertificateHTTP True é: ```error loading private key error: 151584876 - eror: 0909006C:PEM routines:get_name:no start line``` assim que chega no gerarHeader internamente. e se false, anexei o log txt aqui, onde consta o erro "Falha ao obter dados do cliente OTK" ao solicitar o token. Considerando minha inexperiência fui atrás dos fóruns onde foram tratados esse ou problemas parecidos, encontrei 2 tópicos onde um dizia que eu deveria informar: FACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := False; FACBrBoleto.Configuracoes.WebService.ArquivoKEY :='c:\pastaCertificado\Certificado.key'; FACBrBoleto.Configuracoes.WebService.ArquivoCRT :='c:\pastaCertificado\Certificado.crt'; e outro, onde contém os exemplos de homologação com os bancos dizendo: FACBrBoleto.Configuracoes.WebService.ArquivoCRT :='c:\pastaCertificado\Certificado.crt'; FACBrBoleto.Configuracoes.WebService.ArquivoKEY :='c:\pastaCertificado\Certificado.key'; FACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True; O que posso estar errando ou configurando errado? Precisa ser utilizado obrigatoriamente um .crt? Vi que existe um processo para enviar certificado ao Bradesco via e-mail para vincular certificado a aplicacao, mas eu já fiz isso no portal, ele pediu lá. Fiz teste SSL de comparação entre os certificados e tudo bateu, é integro. Poderiam me explicar isso, por favor. ConfigurarBoletoBradesco.pas

Já. No D7, se desativo o define no inc, o código cai na ZLib nativa e dá erro de incompatibilidade (TZCompressionLevel, zcNone, TCompressionStream etc). // Descomente essa linha, para usar ZLibExGZ de \ACBr\Fontes\Terceiros\ZLibExGZ // ZLib de D7 contém bugs e está incompleta. Caso contrário usará compactação nativa, unit "ZLib" {$DEFINE USE_ZLibExGZ} mas depois é definido // ZLib em D7 contem muitos bugs e não suporta GZip de forma correta {$IfNDef FPC} {$IfNDef DELPHIXE2_UP} {$Define USE_ZLibExGZ} {$EndIf} {$Else} {$UnDef USE_ZLibExGZ} // ZLibExGZ não é compatível com FPC {$EndIf} Se deixo ativado, compila, mas não resolve a questão do ZIP da API. "O seu compilador não tem suporte nativo a ZipFile." Ou seja, a troca de define não resolveu. Existe algum suporte oficial do ACBr pra ZIP no D7 ou não? Pode ser algo só do meu ambiente?

Boa tarde. Uso Delphi 7 (VER150) no Windows, com ACBrBoleto/ACBrCompress atual. A Sicoob API retorna um arquivo ZIP em Base64 dentro do JSON. Eu decodifico para um TMemoryStream e chamo ACBrCompress.DeCompress(inStream, outStream). Ocorre o erro: “O seu compilador não tem suporte nativo a ZipFile.” Entendo que isso acontece porque o Delphi 7 não possui System.Zip/TZipFile. Encontrei relatos semelhantes: https://www.projetoacbr.com.br/forum/topic/45622-delphi-7-erro-o-seu-compilador-não-tem-suporte-nativo-a-zipfile/ Sair do Delphi 7 é inviável no momento. Preciso descompactar ZIP no Delphi 7 sem bibliotecas externas. GZip e ZLib já funcionam; ZIP não. Sugestão técnica: para D7, condicionalmente salvar o ZIP em %TEMP% e extrair via Shell.Application (COM), copiar o arquivo extraído para o outStream e limpar os temporários. Testei essa abordagem e funcionou. Perguntas: Existe alguma forma oficial no ACBr para lidar com ZIP no Delphi 7 que eu possa habilitar? Caso não exista, vocês aceitam um ajuste condicional para D7 usando o Shell? Aceito orientações. Obrigado. ACBrCompress.pas

Boa tarde. Gostaria de fazer a gravação do QR Code no meu banco de dados após o registro dos boletos via API Banco do Brasil. Porém .Enviar registra o boleto e inclui nele o QrCode de PIX, porém eu dou a opção ao meu usuário de não imprimir com o QrCode. Como poderia eu ter o EMV no retorno sem imprimir isso nos documentos? Já tentei percorrer a lista dos boletos após envio e deixar QrCode.emv = ''; e utilizar ABoleto.Cedente.CedenteWS.IndicadorPix := False; porém dai então nesse caso o QrCode parece não vir no retorno. Obrigado.