What’s wrong with this Delphi code?

Question

On the mainform onCreate, I have the following code:

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

It should open a QRP file and save as TXT. It even creates the test.txt, but the file is empty, with 0kb. Where I am missing?

Answer 1

Try it this way:

Create 2 new variables (in the use declare interface: QRPrntr):

  vFilterLibrary : TQRExportFilterLibraryEntry;
  vExportFilter  : TQRExportFilter;     

After Prepare:

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

What we’re doing is locating the Filter by extension, then we ask him to create the file (correct form).

Note: For this procedure to work, the report form that will be exported must have a Filter that exports with the txt extension!