Imprimir o Logotipo do banco como tipo de dados BLOB em um banco de dados MySQL

[SisMaster Araras]

Bom dia, estamos tentando utilizar os Logos dos bancos no Boleto Bancário, porem via banco de dados MySQL como tipo de dados BLOB, porem estou tendo dificuldades com a propriedade “DirLogo” do ACBrBoleto, onde mesmo passando um diretório vazio a aplicação passa a procurar a pasta Logos no diretório da minha aplicação. Tentamos utilizar também a procedure CarregaLogo do ACBrBoleto, porem mesmo passando como parâmetro um PictureLogo e NumeroBanco o mesmo não entra no if Assigned( fOnObterLogo ).

Minha dúvida seria a seguinte, no modulo de boletos do ACBr existe alguma forma já implementada de passar as imagens via banco de dados, para eliminar a pasta de Logos local? E caso não tenha essa possibilidade, seria possível passar vazio para “DirLogo” e fazer o tratamento de qual logo utilizar para cada banco fora das classes do ACBr?

Esse é um trecho do código que utilizamos, onde criamos o objeto e passamos para o “DirLogo” o caminho da pasta Logos por meio de uma String;

  vACBrBoletoReport := TACBrBoletoFCFR.Create(nil);
  AACBrBoleto.ACBrBoletoFC := vACBrBoletoReport;
  try
    vACBrBoletoReport.ACBrBoleto := AACBrBoleto;
    vACBrBoletoReport.LayOut := TACBrBolLayOut(0);
    vACBrBoletoReport.DirLogo := vDirLogo;
    vACBrBoletoReport.FastReportFile := vDirReports;
    vACBrBoletoReport.IncorporarBackgroundPdf := False;
    vACBrBoletoReport.IncorporarFontesPdf := False;
    vACBrBoletoReport.ModoThread := False;
    .
    .

Agradeço desde já.

[Juliomar Marchetti]

34 minutos atrás, SisMaster Araras disse:

Bom dia, estamos tentando utilizar os Logos dos bancos no Boleto Bancário, porem via banco de dados MySQL como tipo de dados BLOB, porem estou tendo dificuldades com a propriedade “DirLogo” do ACBrBoleto, onde mesmo passando um diretório vazio a aplicação passa a procurar a pasta Logos no diretório da minha aplicação. Tentamos utilizar também a procedure CarregaLogo do ACBrBoleto, porem mesmo passando como parâmetro um PictureLogo e NumeroBanco o mesmo não entra no if Assigned( fOnObterLogo ).

Minha dúvida seria a seguinte, no modulo de boletos do ACBr existe alguma forma já implementada de passar as imagens via banco de dados, para eliminar a pasta de Logos local? E caso não tenha essa possibilidade, seria possível passar vazio para “DirLogo” e fazer o tratamento de qual logo utilizar para cada banco fora das classes do ACBr?

Esse é um trecho do código que utilizamos, onde criamos o objeto e passamos para o “DirLogo” o caminho da pasta Logos por meio de uma String;

  vACBrBoletoReport := TACBrBoletoFCFR.Create(nil);
  AACBrBoleto.ACBrBoletoFC := vACBrBoletoReport;
  try
    vACBrBoletoReport.ACBrBoleto := AACBrBoleto;
    vACBrBoletoReport.LayOut := TACBrBolLayOut(0);
    vACBrBoletoReport.DirLogo := vDirLogo;
    vACBrBoletoReport.FastReportFile := vDirReports;
    vACBrBoletoReport.IncorporarBackgroundPdf := False;
    vACBrBoletoReport.IncorporarFontesPdf := False;
    vACBrBoletoReport.ModoThread := False;
    .
    .

Agradeço desde já.

a principio não. seria necessário modificar o componente para receber. ou levar num resource por exemplo

 

[Juliomar Marchetti]

 

tu pode carregar do seu banco de dados as logos

[SisMaster Araras]

Boa tarde Juliomar, obrigado pela ajuda, referente a levar em uma resource é uma boa alternativa, porem queríamos utilizar via banco de dados.

Nesse segundo exemplo que você passou, já tentamos utilizar o CarregaLogo, porem quando deixamos de passar o DirLogo ou o passamos recebendo uma string vazia, a classe ainda continua tentando buscar a pasta de Logos local, mesmo passando uma TPicture e o NumeroBanco para o CarregaLogo. Para deixar de verificar essa pasta local seria possível apenas modificando o componente mesmo?

[Juliomar Marchetti]

Em 17/05/2022 at 15:56, SisMaster Araras disse:

Boa tarde Juliomar, obrigado pela ajuda, referente a levar em uma resource é uma boa alternativa, porem queríamos utilizar via banco de dados.

Nesse segundo exemplo que você passou, já tentamos utilizar o CarregaLogo, porem quando deixamos de passar o DirLogo ou o passamos recebendo uma string vazia, a classe ainda continua tentando buscar a pasta de Logos local, mesmo passando uma TPicture e o NumeroBanco para o CarregaLogo. Para deixar de verificar essa pasta local seria possível apenas modificando o componente mesmo?

Sim só modificando o componente. tu pode avaliar o que está ocorrendo no CarregarLogo pois deveria ignorar e funcionar

[SisMaster Araras]

Bom dia Juliomar, entendi, então vamos analisar como fazer essa alteração aqui, muito obrigado pela sua ajuda.