Pdf-export hangs with latest update
Hello,
I was on the latest previous version of version 6 until a few days ago.
Today I upgraded to the latest version.
The code that ran perfectly in Unigui now hangs.
This is the code:
procedure TSc_vw_reports.PrepareAndShow(Report: TfrxReport; Exp: TfrxPDFExport);
var AUrl : string;
begin
Report.PrintOptions.ShowDialog := False;
Report.ShowProgress := false;
Report.EngineOptions.SilentMode := True;
Report.EngineOptions.EnableThreadSafe := True;
Report.EngineOptions.DestroyForms := False;
Report.EngineOptions.UseGlobalDataSetList := False;
Exp.Background := True;
Exp.ShowProgress := False;
Exp.ShowDialog := False;
Exp.FileName := UniServerModule.NewCacheFileUrl(False, 'pdf', '', '', AUrl, True);
Exp.DefaultPath := '';
Report.PreviewOptions.AllowEdit := False;
Report.PrepareReport;
Report.Export(Exp);
PdfFrame.PdfURL := AUrl;
end;
Now it hangs on Report.Export(Exp), no error message, nothing.
Any suggestions?
Thx,
Bernaert Dominique
I was on the latest previous version of version 6 until a few days ago.
Today I upgraded to the latest version.
The code that ran perfectly in Unigui now hangs.
This is the code:
procedure TSc_vw_reports.PrepareAndShow(Report: TfrxReport; Exp: TfrxPDFExport);
var AUrl : string;
begin
Report.PrintOptions.ShowDialog := False;
Report.ShowProgress := false;
Report.EngineOptions.SilentMode := True;
Report.EngineOptions.EnableThreadSafe := True;
Report.EngineOptions.DestroyForms := False;
Report.EngineOptions.UseGlobalDataSetList := False;
Exp.Background := True;
Exp.ShowProgress := False;
Exp.ShowDialog := False;
Exp.FileName := UniServerModule.NewCacheFileUrl(False, 'pdf', '', '', AUrl, True);
Exp.DefaultPath := '';
Report.PreviewOptions.AllowEdit := False;
Report.PrepareReport;
Report.Export(Exp);
PdfFrame.PdfURL := AUrl;
end;
Now it hangs on Report.Export(Exp), no error message, nothing.
Any suggestions?
Thx,
Bernaert Dominique
Comments