Wrap report file into exe file? Generate report via code?

kthomas · November 2011

Hey there.

I know there is documentation for "Creating a report form from code" (section 1.12 in Programmer Manual), however it's very unclear and diluted. I realize FR is originally a German company, and as such there are a few things that get lost in translation in the manual. I cannot find a real world example ANYWHERE for designing a report via code. If anyone has one that'd be great.

The reason I ask about designing a report via code is because my company needs to distribute an .exe file. I have been looking around for days (if not weeks) about how to bundle or wrap an .fr3 (or .fp3) file into the executable. I have looked into .res files (doesn't work unless I'm missing something), and I have looked into .dll files. Neither of which solve my issue. I've heard tell of .reg files, but I haven't been able to find anything on this. The reports will be passed parameters at run time and displayed accordingly.

So that leaves me to ask the FR community.
- Have you successfully bundled an FR report into an .exe file? If so, how?
- Are there any examples of generating a report through code?

Any help/tips/examples are welcome. Thanks in advance!

technisoft · November 2011

frxReport.StoreInDFM := TRUE;

gpi · November 2011

Also you can store several report templates in resources and use one instance of TfrxReport

unit MainUnit;

interface

uses
Â Â Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Â Â Dialogs, StdCtrls, ImgList, frxDesgn, frxClass;

type
Â Â TFormMain = class(TForm)
Â Â Â Â Button1: TButton;
Â Â Â Â OpenDialog: TOpenDialog;
Â Â Â Â frxReport1: TfrxReport;
Â Â Â Â frxDesigner1: TfrxDesigner;
Â Â Â Â Button2: TButton;
Â Â Â Â Edit1: TEdit;
Â Â Â Â frxReportMain: TfrxReport;
Â Â Â Â procedure Button1Click(Sender: TObject);
Â Â Â Â procedure Button2Click(Sender: TObject);
Â Â private
Â Â Â Â { Private declarations }
Â Â Â Â  procedure LoadRptFromResource(Report: TfrxComponent; const ResName: string);
Â Â public
Â Â Â Â { Public declarations }
Â Â end;

var
Â Â FormMain: TFormMain;

implementation

uses PreviewFormUnit;

{$R *.dfm}

//**********************************************//
procedure TFormMain.LoadRptFromResource(Report: TfrxComponent;
Â Â Â Â Â Â Â Â Â Â  const ResName: string);
var
Â Â m: TResourceStream;
begin
Â Â m := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
Â Â try
Â Â Â Â m.Position := 0;
Â Â Â Â Report.LoadFromStream(m);
Â Â finally
Â Â Â Â m.Free;
Â Â end;
end;
//****************************************************************************//


procedure TFormMain.Button1Click(Sender: TObject);
var
Report: TfrxReport;
begin

 Report:= frxReportMain;
 Report.Preview := nil;

 Report.Script.Variables['dDAT'] := Edit1.Text;

 //Report.LoadFromFile( ExtractFilePath(Application.ExeName) + 'ReportList\Test.fr3 ');
 // 
 LoadRptFromResource(Report, 'Test'); // 
 Report.PrepareReport(True);

 //Report.LoadFromFile( ExtractFilePath(Application.ExeName) + 'ReportList\Test2.fr3 ');
 //
 LoadRptFromResource(Report, 'Test2'); // 
 Report.PrepareReport(False);

 Report.Preview:= PreviewForm.frxPreviewMain;
 PreviewForm.ShowModal;
end;

procedure TFormMain.Button2Click(Sender: TObject);
begin
 frxReport1.DesignReport;
end;

end.

kthomas · November 2011

Thank you so much for your fast responses. I'll look into these immediately!

gpi · November 2011

See a demo project in attach

Wrap report file into exe file? Generate report via code?

Comments

Leave a Comment