delphi - IPersistFile Save() 保存 PDF 文档时返回 0x80004001 E_NOTIMPL 错误

Question

我正在使用 Delphi 2007。IPersistFile.Save()在将文档加载到 Ole 容器后尝试调用时出现“未实现”异常。Acrobat Reader 10 及更高版本存在问题。相同的代码适用于 Acrobat Reader 9。

我试图在 Adob​​e 论坛上找到一些解决方案，但没有成功。也许有人以前有同样的问题。

我正在使用这样的代码：

procedure LoadAndSave();
var PF: IPersistFile;
    saveResult : integer;
    OleContainerDocument: TOleContainer;
    CreateInfo: TCreateInfo;
begin
  CreateInfo := ...
  OleContainerDocument.CreateObjectFromInfo(CreateInfo);

  OleContainerDocument.OleObjectInterface.QueryInterface(IPersistFile, PF);

  if PF <> nil then begin
    saveResult := PF.Save(StringToOleStr(FullFilePath), false);
    //In this place saveResult contains E_NOTIMPL error
  end
end;