Carregar Logos Com Stream

[Augusto Fontana]

Como tenho o logo do cliente e da prefeitura salvos no banco, preciso carregá-los usando stream. No DANFE da NF-e é possível carregar o logo a partir do stream. Fiz a seguinte alteração, caso o arquivo não exista, será feito o carregamento através do stream. Alteração feita para os relatórios do QuickReport e FortesRpeport, seguem arquivos em anexo.

 

Tem como liberar essas alterações nos fontes ?
Fiz a alteração seguindo de modelo implementado no DANFE do Rave.

ACBrNFSeDANFSeQRRetrato.pas

ACBrNFSeDANFSeRLRetrato.pas

[Italo Giurizzato Junior]

Boa tarde Augusto,

 

Muito obrigado pela colaboração.

 

Favor atualizar os fontes e testar.

[Augusto Fontana]

Funcionou Italo, muito obrigado.

[Marcio Lopes ACBr]

Como faço para carrega a logo de uma stream ?

Editado 2 Outubro, 2013 por marciotga

[EMBarbosa]

Para controle: http://www.projetoacbr.com.br/forum/index.php?/tracker/issue-8-carregar-logos-com-stream/

[Marcio Lopes ACBr]

Bom dia,

 

Depois que atualizei a versão começou a dar um erro na DANFSe, comentei a alteração e deixei como esta antes e deu certo, acho que teria que testar se a stream é um tipo válido para não gerar uma exceção.

 

O teste que fiz foi colocando um caminho de arquivo que não existia, dai gerou uma exceção.

 

 if (FPrestLogo <> '') and FilesExists(FPrestLogo) then
 begin
   rliPrestLogo.Picture.LoadFromFile(FPrestLogo);
 end;


 // Alterado por Augusto Fontana - 18/09/2013
{ if (FPrestLogo <> '') then
   begin
     if FilesExists(FPrestLogo) then
       rliPrestLogo.Picture.LoadFromFile(FPrestLogo)
     else
       begin
         vStringStream := TStringStream.Create(FPrestLogo);
         try
           rliPrestLogo.Picture.Bitmap.LoadFromStream(vStringStream);
         finally
           vStringStream.Free;
         end;
       end;
   end;
}

Editado 4 Outubro, 2013 por marciotga

[Augusto Fontana]

Como faço para carrega a logo de uma stream ?

var
  vLogo: TStringStream;
begin
  vLogo := TStringStream.Create('');
  try
    // Logotipo da prefeitura
    vLogo.WriteString(FieldByName('logoprefeitura').AsString);
    ACBrNFSe.Danfse.Logo := vLogo.DataString;
    // Logotipo do prestador
    vLogo.Clear;
    vLogo.WriteString(FieldByName('logocliente').AsString);
    ACBrNFSe.Danfse.PrestLogo := vLogo.DataString;
  finally
    FreeAndNil(vLogo);
  end;

Assumindo que vc já tenha os logos salvos em um campo Blob no banco de dados, eu faço como apresentado acima.

Editado 8 Outubro, 2013 por Augusto Fontana

[Augusto Fontana]

Com relação ao erro na geração da DANFSE, a princípio não vejo o que pode ser melhorado. Não conheço uma forma para identificar se o stream é válido ou não. A alteração que fiz segue o padrão do ACBr já implementado para o DANFE do Rave.

 

Para evitar que a DANFSE não seja gerada, caso tenha um contéudo inválido setado nos Logos, adicionei um try except para o carregamento. Segue anexo os arquivos alterados.

ACBrNFSeDANFSeQRRetrato.pas

ACBrNFSeDANFSeRLRetrato.pas

[Augusto Fontana]

Bom dia,

 

Ítalo as alterações liberadas no revision 6134 do arquivo ACBrNFSeDANFSeRLRetrato.pas, removeram as modificações tratadas nesse post, refiz essas alterações em cima do arquivo sincronizado.

 

Segue arquivo em anexo

ACBrNFSeDANFSeRLRetrato.pas

ACBrNFSeDANFSeRLRetrato.pas

[Italo Giurizzato Junior]

Boa tarde Augusto,

 

Muito obrigado pela colaboração, já esta disponível.