Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
323 Beiträge
 
Delphi 11 Alexandria
 
#1

FastReport Preview

  Alt 22. Jan 2017, 13:17
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
  Mit Zitat antworten Zitat