eDocEngine VCL
Create documents and reports in 18 formats

Compatibility

Delphi C++Builder

Home » Newsletter » May 2012

By V. Subhash

eDocEngine has "report-export interface components" for providing multiple output format support for Delphi reporting tools. For Quickreport, eDocEngine has the TgtQRExportInterface interface component.

You can either let the end-user of the Quickreport application to choose the output provided by eDocEngine in an interactive report "Save" dialog box or you could export the report programmatically in Object Pascal.

On an application built with Quickreport, an instance of this interface component needs to be paired up with an eDocEngine document-creation engine component. For example, to output a Quickreport report to a PDF document, a TgtQRExportInterface instance needs to be paired with a TgtPDFEngine instance on the same form as a Quickreport report component.

Interactive Quickreport Report Export

1. Open your IDE and create a new VCL forms application project.
2. Drop the following components on the form.
   • TButton
   • TADODataSet
   • TQRPQuickrep
   • TgtExcelEngine
   • TgtPDFEngine
   • TgtQRExportInterface (2 numbers)
3. Select the TButton and set its Caption property to "Launch Report".
4. Select the TADODataSet control and set the following properties
   • ConnectionString - Use the wizard to connect to a database from Microsoft Access or SQL Server
   • CommandText - Enter a valid SQL query that returns some records from the database.
   • Active - Set to true
5. Select the TQRPQuickrep control and set the following properties.
   • DataSet: Set to the TADODataSet control.
   • Bands » HasDetail: Set to True
   • Page » Custom: Set to true
   • Page » Length: Set to 100 mm
   • Page » Width: Set to 160 mm
6. Click on the Detail band of the report and drop a TQRDBText on to it.
7. Set its DataSet property to the TADODataSet control.
8. Set its DataField property to one of the fields returned by the SQL query.
9. Set its font properties if required.
10. Copy the TQRDBText control and paste new instances of the control on the Detail band of the report. Rearrange them if required.
11. Set the DataField property of these TQRDBText controls to other fields returned by the SQL query.
12. Select the TADODataSet control and check if its Active property is still set to true. If not, set it to true.
13. Select a TgtQRExportInterface control and set its Engine property to the TgtExcelEngine control.
14. Select the other TgtQRExportInterface control and set its Engine property to TgtPDFEngine.
    
15. Double-click the TButton control and use the following click-event handler.

    QRPQuickrep1.Preview;
    

16. Run the application.
17. Click the Launch Report button on the window to show the report preview.
    
18. Click the Save report button.
19. From the Save as type list, select one of the output formats supported by eDocEngine.
20. In the File name box, enter a file name for the exported report.
    

Programmatic Quickreport Export

You can make eDocEngine run the report and export the output using a TgtQRExportInterface.RenderDocument() overload.

1. Add a TgtPDFEngine, a TgtExcelEngine, and two TgtQRExportInterface components to a form with a fully set-up TQRPQuickrep component.
2. Add a button and set the following click-event handler.

   procedure TForm9.Button3Click(Sender: TObject);
   begin
     // Export report to a PDF document
     gtPDFEngine1.FileName := 'eDoc_Quickreport_Demo.pdf';
     gtPDFEngine1.Preferences.ShowSetupDialog := false;
     gtQRExportInterface1.Engine := gtPDFEngine1;
     gtQRExportInterface1.RenderDocument(QRPQuickrep1, false);
   
     // Export report to a Excel workbook
     gtExcelEngine1.FileName := 'eDoc_Quickreport_Demo.xls';
     gtExcelEngine1.Preferences.ShowSetupDialog := false;
     gtQRExportInterface2.Engine := gtExcelEngine1;
     gtQRExportInterface2.RenderDocument(QRPQuickrep1, false);
   end;
   

Programmatic Quickreport Export Using QRP File

You can also export a report from a QRP file. There is another TgtQRExportInterface.RenderDocument() overload for this.

1. Add a TgtPDFEngine, a TgtExcelEngine, and a TgtQRExportInterface component to a form that has a TQRPQuickrep component.
2. Add a button and then add this click-event handler for it.

   procedure TForm9.Button2Click(Sender: TObject);
   begin
     gtPDFEngine1.FileName := 'eDoc_QuickReport_Demo.pdf';
     gtPDFEngine1.Preferences.ShowSetupDialog := false;
     gtQRExportInterface1.Engine := gtPDFEngine1;
     gtQRExportInterface1.RenderDocument('eDoc_QuickReport.QRP');
   end;