FastReport Anfängerfrage

[t2000]

Ich habe einen frxReport und ein frxUserDataSet.
Im frxUserDataSet.Fields(Stringlist) ist genau ein Eintrag drin: 'QRCode'
frxReport hat eine Seite 8x8cm und dort drin ist nur eine Element: Ein QRCode

Ziel der Sache: Ich bekomme einen String und muss dazu einen QRCode erstellen und den als Bitmap abspeichern
FastReport (Enterprise) habe ich sowieso, daher dachte ich, ich nehme das. Fange aber gerade erst mit FastReport an und habe bisher nicht ein einzigen Bericht damit gemacht

Das VCL Programm hat weiterhin eine frxPreview Komponente auf der Form, die den Code anzeigt.

Ganz simpel:

Delphi-Quellcode:

type
  TfrmMain = class(TForm)
    btnMachen: TButton;
    frxReport: TfrxReport;
    frxPreview: TfrxPreview;
    frxUserDataSet: TfrxUserDataSet;
    procedure btnMachenClick(Sender: TObject);
    procedure frxDataSetGetValue(const VarName: string; var Value: Variant);
  private
  public
    QRCode : String;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}


procedure TfrmMain.btnMachenClick(Sender: TObject);
begin
  QRCode := 'Dies ist mein Test-QRCode';
  frxReport.ShowReport;
end;

procedure TfrmMain.frxDataSetGetValue(const VarName: string; var Value: Variant);
begin
  Value := QRCode;
end;

Wenn ich das starte, sehe ich den QRCode im Preview. Ohne separate Form, so wie ich es möchte. Aber das Programm lässt sich nicht mehr beenden. Ich vermute, da ist ein unsichtbares Fenster aktiv.
Weiterhin glaube ich, das mein Vorgehen mal so gar nicht in Ordnung, geschweige denn gut und sinnvoll, ist.

Hat jemand dazu einen Vorschlag?
Also mal eben ganz simpel aus einem String ein QRCode-Bitmap machen und als Datei speichern.

Dank euch.

Gruß Thomas

[Der schöne Günther]

Die Previews in FastReport habe ich nie genutzt, aber du hast doch einen Debugger. Wenn sich das Programm beim Verlassen aufhängt drück im Debugger doch einfach mal auf Pause ⏸ und schaue wo er genau hängt.

[t2000]

in der ntdll. In einem UserThread. Habe dort keine 10 Zeilen asm-code zum debuggen.

Aber ich denke, hier geht es um eine grundsätzliche Sache. Wie man mit FastReport und Preview arbeiten kann.
Ich werde es wohl herausfinden, aber die Zeit drängt gerade sehr.

[mytbo]

Ab FastReport Version 5 gibt es die BarCode Komponente. Lass erst einmal die Datenbindung weg. Erstelle einen neuen Report im Designer. Schiebe die gewünschte BarCode Komponente auf die leere Seite. Mach einen Doppelklick auf die Komponente und trage im Editor unter Code (erste Zeile) z.B. "<Date>" ein. Dann zeigt dir das Preview das aktuelle Datum als BarCode an. Du hast dabei die Variable "Date" mit der BarCode Komponente verbunden. Auf gleiche Weise kannst du das auch mit allen anderen Datenquellen machen.

Du musst den Report immer erst zusammenstellen. Entweder durch ein ShowReport(), oder ohne Anzeige der Vorschau mit einem PrepareReport().
Zum Speichern kann man eine Export Klasse verwenden. Zum Beispiel als PDF speichern:

Delphi-Quellcode:

var
  memStream: TMemoryStream;
  pdfExport: TfrxPDFExport;
begin
  memStream := TMemoryStream.Create;
  try
    pdfExport := TfrxPDFExport.CreateNoRegister;
    try
      pdfExport.Stream := memStream;
      pdfExport.Compressed := True;
      pdfExport.ShowDialog := False;
      pdfExport.ShowProgress := False;
      frxReport.Export(pdfExport);
    finally
      pdfExport.Free;
    end;
...

Oder es gibt auch noch die IOTransport Klassen. Da musst schauen, was für dich günstiger ist.

Bis bald...
Thomas

[t2000]

Das hatte ich ja gemacht.
Ich habe ein BarCode Element genommen. Und einen Text zugewiesen. Danach anstelle der direkten Zuweisung ein UserDatenSet genommen, damit ich den Wert VON HAND setzen kann. Ich bekomme den ja einfach als String von extern übergeben.
Das ist alles gut und schön.
Aber wie rufe ich den Bericht auf? Als Preview in meiner Form. Egal ob ich ShowReport oder PrepareReport aufrufe, der Bericht bleibt in genau dieser Funktion hängen und kommt nicht wieder.

[t2000]

Es muss am UserDataSet liegen. Ein ganz simples Beispiel ohne funktioniert.