Verwendung von FastReport-Speicherressourcen

Es gibt Situationen, in denen das Ändern bzw. Kopieren von Berichten durch die Programmbenutzern eingeschränkt werden muss. Das Wichtigste ist es so zu implementieren, dass sie nicht einmal merken, dass das Programm ein so wunderbares Produkt wie FastReport verwendet. Lassen Sie uns darüber sprechen, wie man Berichtsvorlagen vor neugierigen Blicken versteckt.

Die Idee ist ganz einfach: Berichtsvorlagen in einer ausführbaren Datei speichern und zum richtigen Zeitpunkt entpacken und ausführen.

Zuerst erstellen wir Berichtsdateien in FastReport VCL und speichern sie im ReportList-Verzeichnis. Die Ressourcen werden durch eine Textdatei mit folgendem Inhalt beschrieben:

1
2

TEST RCDATA ".\ReportList\Test.fr3"
TEST2 RCDATA ".\ReportList\Test2.fr3"

Speichern Sie die Datei unter dem Namen «TestFR.rc». Danach kompilieren Sie es mit dem Befehl BRCC32 TestFR.rc und erhalten TestFR.res. Die folgende Zeile muss am Anfang des Moduls eingefügt werden:

1

{$R TestFR.res} 

Eine einfachere Möglichkeit ist die Verwendung der RxLib-Bibliothek. Nach der Installation wird das Element Project Resources im Menü View angezeigt. Wählen Sie Project Resources->New->User Data und fügen Sie die erforderlichen Berichtsdateien hinzu.

Das Entpacken der gewünschten Ressource wird so aussehen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

private
 { Private declarations }
 procedure LoadRptFromResource(Report: TfrxComponent; const ResName: string);
...............
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;

Schreiben Sie nun einen Print-Handler für unseren Bericht.   

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

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 ');
 // Zum Debuggen ist es bequemer, LoadFromFile zu verwenden. Nach dem Debuggen und nach
 // dem Erstellen der Berichtsressourcenbeschreibungsdatei können Sie das folgende Verfahren anwenden
 LoadRptFromResource 
 LoadRptFromResource(Report, 'Test'); // Bericht aus den Ressourcen herunterladen 
 Report.PrepareReport(True);
 
 //Report.LoadFromFile( ExtractFilePath(Application.ExeName) + 'ReportList\Test2.fr3 ');
 //
 LoadRptFromResource(Report, 'Test2'); // Bericht aus den Ressourcen herunterladen
 Report.PrepareReport(False);
 
 Report.Preview:= PreviewForm.frxPreviewMain;
 PreviewForm.ShowModal;
end;

Diese Lösung hat natürlich auch Nachteile. Der erste ist die Ressourcenkapazität des Programms, da die ausführbare Datei mehrmals wächst, aber durch Packer gut komprimiert wird. Der zweite ist die Hinderung der Berichtserstellung.

Verfasser des Artikels: Leontew Oleg Gennadewitsch