Conversion to .fr3 from QuickReport and ReportBuilder

2019-08-15

logo
Perform the following list of actions:

   1. Create a new application (File -> New -> VCL Forms Application).

   2. Enter in the Uses clause module ConverterQR2FR (for convert QuickReport) or ConverterRB2FR (for convert ReportBuilder).

   3. Depending on the installed components, you may need to remove the following blocks from the Uses clause in ConverterQR2FR.pas or ConverterRB2FR.pas:

   VCLTee.TeeProcs, VCLTee.TeEngine, VCLTee.Chart, VCLTee.Series, VCLTee.TeCanvas

   frxChart, frxBDEComponents, frxIBXComponents

   4. Add the following components to the form:

  • frxReport
  • OpenDialog
  • Button1, Button2, Button3
  • ListBox1, ListBox2
  • Label1, Label2

 screenshot 1

Enter this code to the Button1Click() event of the “Select File” button.

Code Button1Click:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 FirstLine: string;
begin
 OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
 OpenDialog1.Filter := 'Delphi Form (*.dfm)|*.dfm|' + 'QuickReport (*.qr2)|*.qr2|'+
 'ReportBuilder (*.rtm)|*.rtm' + '|All files (*.*)|*.*';
 OpenDialog1.FilterIndex := 1;
 if OpenDialog1.Execute then
 with OpenDialog1.Files do
 for i := 0 to Count - 1 do
 ListBox1.Items.Add(Strings[I]);
end;

 

Enter this code to the Button2Click() event of the “Convert” button.

Code Button2Click:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
 var
 i: integer;
 s : string;
begin
 ListBox2.Clear();
 with ListBox1.Items do
 for i := 0 to Count - 1 do
 if frxReport1.LoadFromFile(ListBox1.Items[i]) then
 begin
 s := ListBox1.Items[i].Substring(0,ListBox1.Items[i].Length-4)+'.fr3';
 frxReport1.SaveToFile(s);
 ListBox2.Items.Add(s);
 end;
end;

Enter this code to the Button3Click() event of the “Clear list of files” button.

Code Button3Click:

1
2
3
4
procedure TForm1.Button3Click(Sender: TObject);
begin
 ListBox1.Clear();
end;

Enter this code to the ListBox2Click() event that performs when you click the ListBox2 element to open the selected template in the designer.

Code ListBox2Click:

1
2
3
4
5
procedure TForm1.ListBox2Click(Sender: TObject);
begin
 frxReport1.LoadFromFile(ListBox2.Items[ListBox2.ItemIndex]);
 frxReport1.DesignReport();
end

Run the application

screenshot 2 

Select files to convert

screenshot 3 

The selected files appear in the “Selected file” list

screenshot 4 

Click the Convert button, the files from the “Selected file” list will be converted, and the address of the saved templates will be displayed in the format *.fr3

screenshot 5 

 

Click on any template address in the “Saved templates in FR” list and it will be opened in the FR designer, check if the conversion is correct.

screenshot 6

 

VCL FastReport Converter QuickReport ReportBuilder Delphi VCL FastReport Converter QuickReport ReportBuilder Delphi
February 20, 2025

Using Dot Matrix Printers for Printing Receipts

This article will explore how to integrate a dot matrix printer into the process of creating and outputting reports using FastReport .NET.
February 17, 2025

Adding New Users to FastReport Cloud

In the Business edition of the FastReport Cloud service, you can add users to a single workspace for simultaneous collaboration.
February 10, 2025

How to Try FastReport .NET WEB Before Purchase

By testing the WEB pack before purchasing, you can make an informed choice about whether FastReport is suitable for you.NET for your tasks.
Fast Reports
  • 800-985-8986 (English, US)
  • +31 97 01025-8466 (English, EU)
  • +49 30 56837-3928 (German, DE)
  • +55 19 98147-8148 (Portuguese, BR)
  • info@fast-report.com
  • 66 Canal Center Plaza, Ste 505, Alexandria, VA 22314

© 1998-2025 Fast Reports Inc.