FastReport Preview

[tomkupitz]

Hallo,

ich erstelle mit FastReport eine PDF Datei und möchte diese in einem TfrxPreview anzeigen. Folgenen Code habe ich probiert (ohne Erfolg):

Code:

var mv: TfrxMemoView;

begin
  with frxPDFExport1 do
  begin
    ShowDialog:=False;
    ShowProgress:=False;

    UserPassword:='';
    OwnerPassword:='';

    OpenAfterExport:=False;

    Author:='';
    Subject:='';

    EmbeddedFonts:=True;

    Compressed:=True;
    OverwritePrompt:=True;
    UseFileCache:=True;

    FileName:=AddBackSlash(ExtractFilePath(Application.ExeName))+'tmp.pdf';
  end;

  frxReport1.PrepareReport;


  mv:=TfrxMemoView(frxReport1.PreviewPages.Page[0].FindObject('Edit1'));
      
  if mv<>nil then 
    mv.Text:=AnsiString('Hallo Welt');

  
  frxReport1.Export(frxPDFExport1);

  // bis hier ok, folgene Zeilen funktionieren nicht...

  frxReport1.Preview:=frxPreview1;
  frxReport1.PrepareReport(False);

  frxPreview1.Report:=frxReport1;
  frxPreview1.Export(frxPDFExport1);
  frxPreview1.Show;
  
  oder

  frxReport1.Preview:=frxPreview1;
  frxReport1.PrepareReport(True);
  frxReport1.ShowReport();
end;

Danke für Eure Ideen und beste Grüße

[blawen]

Eigentlich müsste folgendes reichen:

Delphi-Quellcode:

  frxReport1.PrepareReport(true);
  frxReport1.ShowPreparedReport;