Fastreport: ExportPDF im TTask

[Amanda]

[QUOTE=Uwe Raabe;1498564]

Zitat von haentschman:

Was habe ich übersehen?

Fastreport Export ist Threadsicher möglich.

Beispiel:

frxReport := TfrxReport.Create(nil);
try

if not loadReport(fr3Lieferliste, frxReport) then begin
log(messageVarStr(reportNichtGeladenMsg, [fr3Lieferliste]), true);
exit;
end; // if

thr:= TThread.CurrentThread;
frxReport.EngineOptions.ReportThread := thr;
frxReport.EngineOptions.SilentMode := true;
frxReport.EngineOptions.NewSilentMode := simSilent;
frxReport.EngineOptions.EnableThreadSafe := true;
frxReport.EngineOptions.DestroyForms := false;
frxReport.PrintOptions.Printer := drucker;
frxReport.PrintOptions.ShowDialog := false;
frxReport.ReportOptions.Name := titelLieferliste+' '+fdAuftragAUFTRAGNR.DisplayText;
frxReport.PrepareReport();

if frxReport.Errors.Count<>0 then begin
log(fr3Lieferliste+' '+frxReport.Errors.Text, true);
exit;
end; // if

finally
frxReport.Free;
end; // try