图书馆。带有 Delphi XE2 的 Net DocX答案

【问题标题】：library. Net DocX with Delphi XE2图书馆。带有 Delphi XE2 的 Net DocX
【发布时间】：2013-09-25 15:26:21
【问题描述】：

您好，可以使用库。用 Delphi XE2 上网？这是http://docx.codeplex.com/ 提供的库 DocX.dll。提前致谢。

【问题讨论】：

stackoverflow.com/q/7994852/62576
简单的答案是“是”
您可以使用 JCL 中的 mscorlib_TLB,mscoree_TLB 单元。
我想要做的是这样的msdn.microsoft.com/en-us/library/cc974107(v=office.12).aspx，但在delphi中。

【解决方案1】：

using (DocX document = DocX.Load("Test.docx"))
{
   document.ReplaceText("pear", "banana", true, RegexOptions.IgnoreCase);
  document.Save();
}

德尔福：

    var
      Host: TJclClrHost;
      Obj: OleVariant;
      Assm: _Assembly;
      T: _Type;
      Params1: Variant;
      params2:Variant;

    begin
      Host := TJclClrHost.Create('v4.0.30319');
      Host.Start;
      Assm := Host.DefaultAppDomain.Load_2('DocX');
      T := Assm.GetType_2('Novacode.DocX');
    //  Obj:=T.InvokeMember_3('', BindingFlags_CreateInstance, nil, null, nil);
      Params1 := VarArrayOf(['sample.docx']);
      obj:=T.InvokeMember_3('Load', BindingFlags_InvokeMethod, nil, null, PSafeArray(VarArrayAsPSafeArray(Params1)));
      Params2 := VarArrayOf(['Before','After']);
      t.InvokeMember_3('ReplaceText', BindingFlags_InvokeMethod, nil, Obj, PSafeArray(VarArrayAsPSafeArray(Params2)));
      t.InvokeMember_3('Save', BindingFlags_InvokeMethod, nil, Obj, nil);
      Host.Stop;
end;

t.InvokeMember_3('ReplaceText',..... 生成错误：方法“Novacode.DocX.ReplaceText”不存在。我不能调用方法 ReplaceText（因为它是继承的方法？）

【讨论】：