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

[Uwe Raabe]

Zitat von Amanda:

Fastreport Export ist Threadsicher möglich.

[haentschman]

Moin...

Ich hätte was Vernünftiges lernen sollen...

Das hat gestern funktioniert:

Delphi-Quellcode:

TTask.Run(procedure
          var
            I: Integer;
            Success: Boolean;
          begin
            Success := True;

            for I := 0 to FFileList.Count - 1 do
            begin
              NewFile := CurrentNewFilePath + ExtractFileName(FFileList[I]);

              if TFile.GetSize(FFileList[I]) > 0 then // keine leeren Dateien kopieren
              begin
                if CopyFileEx(PChar(FFileList[I]),
                              PChar(NewFile),
                              nil, nil, nil, COPY_FILE_NO_BUFFERING) then
                begin
                  TThread.Synchronize(nil,
                                      procedure
                                      begin
                                        WriteSendToDB(FFileList[I], sdtFolder); // Transus
                                      end);
                  end
                  else
                  begin
                    ...

...heute mache ich das Delphi an und "Erzeuge": Fehler: siehe Bilder

Eingegrenzt (Test):

Delphi-Quellcode:

    TTask.Run(procedure
              var
                Success: Boolean;
              begin
                Success := True;
              end);

//    TTask.Run(procedure
//              var
//                I: Integer;

Fehler: Fehler: siehe Bilder

Lasse ich TTask komplett weg...alles gut.

[Uwe Raabe]

Das sieht mir nach einer verkorksten FastReport Installation aus. Eventuell werden Units unterschiedlicher Versionen verwendet.