Hello Julian,
Having trouble getting embedded data in a PDF. I can embed data in an RTF file using AddDataFile method, but when exporting using TWPPDFExport there is no embedded data.
Regards,
Paul Cunningham
Test console code.
Code
program EmbedPdf;
{$APPTYPE CONSOLE}
uses
SysUtils, WPPDFR1, WPCtrMemo, WPOBJ_Container, WPPDFWP, WPRTEDefs;
var
Editor : TWPCustomRtfEdit;
pdf : TWPPDFExport;
obj : TWPTextObj;
begin
try
WPDF_Start('', '');
Editor := TWPCustomRtfEdit.CreateDynamic;
try
obj := Editor.InputMergeField('FIELD_MANUAL', 'Manual');
obj := Editor.TextObjects.InsertClass('TWPODataContainer', 360, 360 );
obj.Mode := obj.Mode + [wpobjSizingDisabled];
(obj.ObjRef as TWPODataContainer).AddDataFile('c:\manual.pdf', wpembDefault);
(obj.ObjRef as TWPODataContainer).Icon := wpemPaperClip;
(obj.ObjRef as TWPODataContainer).AddParam('Contents','Dies ist eine Datei');
(obj.ObjRef as TWPODataContainer).AddParam('Title', 'Julian Ziersch');
Editor.InsertPointAttr.Hidden := true;
Editor.ReformatAll();
Editor.SaveToFile('c:\embed.rtf'); // This has the embedded manual
pdf := TWPPDFExport.Create(nil);
try
pdf.Source := Editor;
pdf.FileName := 'c:\embed.pdf'; // this doesn't
pdf.AutoLaunch := true;
pdf.Print;
finally
pdf.Free;
end;
finally
Editor.Free;
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Alles anzeigen