Fastreport: ExportPDF im TTask

[haentschman]

Hallöle...

Delphi-Quellcode:

function TPrintBase.ExportPDF(FilePath, FileName: string): Boolean;
begin
  Result := FReport.Export(FReportPDFExport); // in TPrintBase erstellt - Fehler: hier

  if Result then
  begin
    try
      if not FGhostscript.PDFShrink(FilePath + FileName) then // Fehler über Event
      begin
        Result := False;
      end;
    except
      Result := False;
    end;
  end;
end;

der Aufruf sollte so sein:

Delphi-Quellcode:

TTask.Run(procedure
          begin
            ExportPDF(Print.PDF.FilePath, Print.PDF.FileName); // Archiv
          end);

Fehler:
Im Projekt XX.exe ist eine Exception der Klasse EClassNotFound mit der Meldung 'Klasse Picture nicht gefunden' aufgetreten.

:74f7a8b2 KERNELBASE.RaiseException + 0x62
System.Classes.ClassNotFound('Picture')
System.Classes.FindClass('Picture')
frxXMLSerializer.TfrxXMLSerializer.ReadComponentSt r($25192D50,'Picture',True)
frxPreviewPages.DoObjects($28781730,$25192D50)
frxPreviewPages.TfrxPreviewPages.GetPage(0)

im Report:

Code:

<TfrxPictureView Name="TitleImageFirstPage" AllowVectorExport="True" Left="0" Top="0" Width="699,21305" Height="170,07885" Hyperlink.Value="" Frame.Typ="0" HightQuality="False" Transparent="False" TransparentColor="16777215"/>

sonst kein 'Picture'


PS: Ohne den TTask wird normal das PDF exportiert.

Was habe ich übersehen?