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?
