Acbrnfedanfefr Fastfile Como Stream ?

[CEDG]

Amigos,

 

Gostaria de Carregar o Arquivo FastFile direto do banco de dados...

 

Ja tentei inumeras opcoes... Com Stream e StringStream...

 

O 'Logo' eu consegui com um codigo postado por um colega aqui no forum...

 

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;
 

Claro que adaptei para as minhas necessidades

 

Mas o fastfile naum consegui

 

Agradeco a Ajuda

[Reginaldo Costa]

salve em um campo blob do tipo texto, o arquivo .fr3 é padrão XML

100 % texto.

[CEDG]

Amigo, agradeco a resposta mas mesmo assim naum funcionou...

 

O Que Ocorre eh que ao carregar :

 

ACBrNFeDANFEFR.FastFile:=IBQuery.FieldByName('NomeDoCampo').AsString;

 

E Mando Imprimir a DANFE Aparece um Show Message , Tipo : "O Caminho da Impressao da DANFE........"

[Régys Silveira]

A propriedade "ACBrNFeDANFEFR.FastFile" foi feita para receber o caminho do arquivo FastReport não o xml, o que você pode fazer é carregar o XML do seu banco, gravar localmente em um arquivo e passar o caminho deste arquivo a propriedade, fazendo isso funcionará.

[juaumkiko]

Amigos,

 

Gostaria de Carregar o Arquivo FastFile direto do banco de dados...

 

Ja tentei inumeras opcoes... Com Stream e StringStream...

 

O 'Logo' eu consegui com um codigo postado por um colega aqui no forum...

 

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;

 

Claro que adaptei para as minhas necessidades

 

Mas o fastfile naum consegui

 

Agradeco a Ajuda

 

Olá... Eu fiz algo parecido no Danfe em RAVE.

 

Modifiquei para trabalhar da mesma maneira o Fast Report.

 

Atualize o componente e tente passar o relatorio XML na propriedade FastFile.

Ou faça exatamente como vc fez no seu exemplo, associando o DataString da StringStream na propriedade FastFile.

 

Nos avise se deu certo.

 

[]´s