frxreport.export() : result is dummy?

Comments

• -=Den=-

  January 2020

  Hello,

  You need to call PrepareReport before Export method and build the report first.

  
  

  If Report.PrepareReport then

   Report.Export(ExportFilter);

  
  

  Also Export return a result of export process (True if it was successful) and write all errors to Report.Errors.

  So you always can check for errors like that (and even raise an exception if you need one):

  
  

  If Report.PrepareReport then

   if not Report.Export(ExportFilter) then

    raise Exception.Create(Report.Errors.Text);
• Klaus88

  January 2020

  Hello,

  I tried this proposal, but it did not work for me - Export() does not return False in case of problems.

  While exporting the PDF file, where a locked version of this file already exists, the debugger shows an exception EFCreateError, but Export() returns True anyway.

  Any further tips?
• -=Den=-

  January 2020

  Just checked this code and it works as expected.

  When file is locked it generates EFCreateError exception and show error or re-throw it (depends on engine settings).

  If you have a test case which produce behavior when in case of exception it does not throw an error , please open a support ticket with a test case.
• Klaus88

  January 2020

  I unfortunately forgot to tell you, that I am using the Synopse PDF filter along with FastReport.

  Meanwhile I found the function SaveToFile (see below) in unit SynPDF to be my problem: here the try..except block does not work at an EFCreateError (even when the internal debugger shows this error), and additionally the return value of this function is not interpreted in the calling procedure. I made some small changes, which seem sufficient for me (preset result:=false on beginning of SaveToFile, and raising an exception in the calling procedure if result=false).

  Thank you for your help!

  
  

  Source of problem:

  function TPdfDocument.SaveToFile(const aFileName: TFileName): boolean;

  var FS: TFileStream;

  begin

   try

     FS := TFileStream.Create(aFileName,fmCreate);

     try

       SaveToStream(FS);

       result := true;

     finally

       FS.Free;

     end;

   except

     on E: Exception do // error on file creation (opened in reader?)

       result := false;

   end;

  end;