logo
small logo
  • Produkte
  • Shop
  • Support
  • Über uns
  • Customer panel Support
    • en
    • de
    • JP
    • ZH
  • Home
  • /
  • Articles
  • /
  • Verwendung von FastReport-Speicherressourcen
  • So erstellen Sie mit Delphi einen ITF-Barcode (Interleaved, Industrial, Matrix)

    11. November 2020

    Barcodes. Ein Paar Infos. Es ist schwer, sich unser Leben ohne Barcodes vorzustellen, besonders jetzt, wenn

    read more
  • Berichterstellung mit Dialogformularen

    26. April 2021

    In den vorherigen Artikeln zum Bildungsprogramm „Akademiker“ haben wir gelernt, wie man FastReport in

    read more
  • So erstellen Sie ein interaktives PDF-Formular in Delphi und Lazarus

    14. Dezember 2020

    Vielleicht weiß es jemand nicht, aber mit dem PDF-Standard können Sie ausfüllbare Formulare erstellen. Das

    read more
  • So arbeiten Sie mit Karten im SHP-Format in Delphi / Lazarus / С ++ Builder

    28. September 2020

    ShapeFile, sie sind auch "Shapes" (englische Form - Shape) sind eine Form oder eine Reihe

    read more
  • So erstellen Sie eine ZPL Datei in Delphi / C ++ Builder / Lazarus

    22. Dezember 2020

    Was ist ZPL? Im Allgemeinen steht ZPL für Zebra Programmierung Sprache. Teams haben die Möglichkeit,

    read more

Verwendung von FastReport-Speicherressourcen

1. Dezember 2021

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.

Verwendung von FastReport-Speicherressourcen

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

about product buy
avatar
Den Zubov
VCL Development
Fast Reports Team: Den Zubov - VCL Development at Fast Reports
VCL Lazarus FastReport Delphi

Add comment
logo
  • 800-985-8986 (English, US)
  • +4930568373928 (German)
  • +55 19 98147-8148 (Portuguese)
  • info@fast-report.com
  • 901 N Pitt Str #325 Alexandria VA 22314
  • Shop
  • Download
  • Dokumentation
  • Referenzen
  • Informationen zur Deinstallation unserer Produkte
  • FAQ
  • Tutorial Video
  • Forum
  • Articles
  • Unsere Nachrichten
  • Presse über uns
  • Partner
  • Außergewöhnliche Lizenzierung
  • Kontakte

© 1998-2023 by Fast Reports Inc.

  • Datenschutz