Converter PDF Boleto em Base64

[Souza]

Bom dia, tenho a necessidade de gravar base64 do pdf do boleto, existe alguma rotina no ACBr para fazer essa conversão ?

 

Att

Souza.

[antonio.carlos]

12 minutos atrás, Souza disse:

Bom dia, tenho a necessidade de gravar base64 do pdf do boleto, existe alguma rotina no ACBr para fazer essa conversão ?

 

Att

Souza.

Você esta utilizando os Componente ACBrBoleto ? ACBrLibBoleto ? ou ACBrMonitor ? 

[Souza]

ACBrBoleto
Delphi XE6

[Juliomar Marchetti]

Gravar no banco?

[Juliomar Marchetti]

veja se tu tem System.NetEncoding

[Renato Rubinho]

Var
  AStream: TMemoryStream;
  Resposta: Ansistring;
begin
  AStream := TMemoryStream.Create;        
  ACBrBoleto1.GerarPDF(AStream);
    
  Resposta := StreamToBase64(AStream);

Gere o PDF em stream.

function StreamToBase64(AStream: TStream):AnsiString;
begin
  AStream.Position := 0;
  Result := EncodeBase64(ReadStrFromStream(AStream, AStream.Size));
end;

Utilize a função acima para gerar o conteúdo em base64.

Declare a unit synacode

[Souza]

Oi Juliomar, estou utlizando o DELPHI XE6, não tem essa unit System.NetEncoding

 

Renato, Delphi não está localizando o ReadStrFromStream, onde declaro ?

 

Att

Souza

[Renato Rubinho]

1 hora atrás, Souza disse:

Delphi não está localizando o ReadStrFromStream, onde declaro ?

Tentou com ctrl+shift+A?

Senão, localiza nos arquivos por function ReadStrFromStream

[Juliomar Marchetti]

acho que no XE6 não tem isso.

mas pode usar a pesquisa pra descobrir em qual unit está a função

[Renato Rubinho]

Caso não tenha localizado, você deve declarar também a unit synautil

[Souza]

Boa noite Renato, deu certo, +-, agora está dando 

 

 E2010 Incompatible types: 'Pointer' and 'AnsiString'


 

function StreamToBase64(AStream: TStream):AnsiString;
begin

  AStream.Position := 0;
  Result := EncodeBase64(ReadStrFromStream(AStream, AStream.Size));

end;

[Renato Rubinho]

Revise seu código que escorregou em algum lugar. 

Nesta função que você replicou não tem nenhuma atribuição entre pointer e ansistring.

Em 05/11/2024 at 13:03, Renato Rubinho disse:

Var
  AStream: TMemoryStream;
  Resposta: Ansistring;
begin
  AStream := TMemoryStream.Create;        
  ACBrBoleto1.GerarPDF(AStream);
    
  Resposta := StreamToBase64(AStream);

Isso tem que funcionar, pois copiei da Lib e está funcional.