Delphi 从OpenOffice保存为pdf
因为我刚刚问了一下,得到了一个非常有用的答复,我想知道是否有人已经掌握了使用OpenOffice内置的documentTopdf例程将odt、doc、docx文件保存为pdf的代码 无论如何,还有一个c#示例,因为在Delphi中直接使用它对许多用户来说都是非常好的。非常类似:)Delphi 从OpenOffice保存为pdf,delphi,pdf,openoffice.org,Delphi,Pdf,Openoffice.org,因为我刚刚问了一下,得到了一个非常有用的答复,我想知道是否有人已经掌握了使用OpenOffice内置的documentTopdf例程将odt、doc、docx文件保存为pdf的代码 无论如何,还有一个c#示例,因为在Delphi中直接使用它对许多用户来说都是非常好的。非常类似:) 描述用于配置生成文档的所有功能的教程。 对于下面的示例,我选择了适合宽度放大、密码保护和隐藏窗口控件。当转换时未显示OpenOffice窗口时,导出将在隐藏模式下完成。 请注意,下面的代码同样没有错误处理 uses
描述用于配置生成文档的所有功能的教程。
对于下面的示例,我选择了适合宽度放大、密码保护和隐藏窗口控件。当转换时未显示OpenOffice窗口时,导出将在隐藏模式下完成。
请注意,下面的代码同样没有错误处理
uses
ComObj;
procedure OpenOfficeExportToPDF(const ASourceFileURL: string; const ATargetFileURL: string);
var
StarOffice: Variant;
StarDesktop: Variant;
StarDocument: Variant;
FilterParams: Variant;
ExportParams: Variant;
ExportObject: Variant;
function CreateProperty(const AName: AnsiString; AValue: Variant): Variant;
begin
Result := StarOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Result.Name := AName;
Result.Value := AValue;
end;
begin
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
StarDesktop := StarOffice.CreateInstance('com.sun.star.frame.Desktop');
FilterParams := VarArrayCreate([0, 0], varVariant);
FilterParams[0] := CreateProperty('Hidden', True);
StarDocument := StarDesktop.LoadComponentFromURL(ASourceFileURL, '_blank', 0, FilterParams);
ExportParams := VarArrayCreate([0, 3], varVariant);
ExportParams[0] := CreateProperty('Magnification', 2);
ExportParams[1] := CreateProperty('EncryptFile', True);
ExportParams[2] := CreateProperty('DocumentOpenPassword', AnsiString('StackOverflow'));
ExportParams[3] := CreateProperty('HideViewerWindowControls', True);
ExportObject := StarOffice.Bridge_GetValueObject;
ExportObject.Set('[]com.sun.star.beans.PropertyValue', ExportParams);
FilterParams := VarArrayCreate([0, 1], varVariant);
FilterParams[0] := CreateProperty('FilterName', AnsiString('writer_pdf_Export'));
FilterParams[1] := CreateProperty('FilterData', ExportObject);
StarDocument.StoreToURL(ATargetFileURL, FilterParams);
StarDocument.Close(True);
StarDesktop.Terminate;
StarDocument := Unassigned;
StarDesktop := Unassigned;
StarOffice := Unassigned;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenOfficeExportToPDF('file:///C:/SourceFile.odt', 'file:///C:/TargetFile.pdf');
end;
谢谢:如果你能扩展代码,我想不仅是我,还有很多社区成员都会很感激的!不客气,我在示例中添加了一些PDF导出参数设置;)