2

No onCreate do mainform, tenho o seguinte código:

procedure TForm1.FormCreate(Sender: TObject);
begin
 QuickRep1.Prepare;
 QuickRep1.Printer.Load('arquivo.qrp');
 QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('teste.txt'));
 QuickRep1.Free;
end;

Ele deve abrir um arquivo QRP e salvar como TXT. Ele até cria o teste.txt, mas o arquivo está em branco, com 0kb. Onde estou errando?

5
  • 1
    Para ter certeza eu precisaria baixar o componente, mas tenho uma duvida. O arquivo 'arquivo.qrp' está junto com o executável da aplicação ? Tenta especificar o caminho dele. Ex: 'c:/arquivo.qrp'. 16/02/2017 às 10:52
  • Sim, está junto. Quando eu dou um QuickRep1.Printer.Preview; o arquivo é exibido, sinal de que ele está sendo carregado corretamente
    – Kohi
    16/02/2017 às 10:58
  • Pode me dizer qual a versão do QuickReport está utilizando ? 16/02/2017 às 11:01
  • é a versão 5.02
    – Kohi
    16/02/2017 às 11:49
  • Não consegui montar o código como o seu exemplo. Na parte do QuickRep1.Printer.Load('arquivo.qrp'); tiver que trocar por QuickRep1.QRPrinter.Load('arquivo.qrp'); Alem disso, consegue disponibilizar um arquivo de extenção .qrp para testes ? 16/02/2017 às 12:17

1 Resposta 1

2

Tente da seguinte forma:

Crie 2 novas variáveis (na uses interface declare: QRPrntr):

  vFilterLibrary : TQRExportFilterLibraryEntry;
  vExportFilter  : TQRExportFilter;     

Depois do Prepare:

  vFilterLibrary := QRExportFilterLibrary.GetFilterByExtension('txt');
  vExportFilter  := vFilterLibrary.ExportFilterClass.Create(vNomeAnexo);
  QuickRep1.ExportToFilter(vExportFilter);

O que estamos fazendo é localizar o Filter pela extensão, depois pedimos para ele criar o arquivo (forma correta).

Nota: Para este procedimento funcionar, o formulário report que será exportado deve possuir um Filter que exporte com a extensão txt!

3
  • Compilou, mas na execução deu o seguinte erro: raised exception class EAccessViolation with message 'Access violation at address 0050CBD8 in Module 'Project1.exe'. 'Read of address 000000004'. Na seguinte linha: vExportFilter := vFilterLibrary.ExportFilterClass.Create('teste.txt');
    – Kohi
    17/02/2017 às 0:41
  • Uma violação nesta linha só pode ocorrer se não existir no formulário um filter para a extensão mencionada! 17/02/2017 às 10:07
  • Eu testei aqui, coloquei todos os filters do qreport no form, tentei com outro formato, mas ainda dá violação :(
    – Kohi
    19/02/2017 às 1:33

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .