如何让 IXmlDomDocument2.XML 正确转义引号？

Question

我正在解决一个问题，从我们的程序导出的 XML 没有转义引号（将 " 转换为 ",），导致接收端出现问题它可以很好地转义 &s 和尖括号，但不能转义引号。

当我深入研究 XML 导出代码时，我发现它是一个非常简单的 IXmlDomDocument2 DOM 接口。在通过调用 .XML 方法生成 XML 字符串输出的步骤中，我碰上了无法追踪的专有性之墙，因为所有工作都在 C:\Windows\System32\msxml3.dll

显然，Microsoft 的 IXmlDomDocument2 实现知道如何转义某些符号，但不知道如何转义其他符号，而更糟糕的是，这是显而易见但丑陋的解决方案。 ，（通过递归遍历整个文档并在调用 .XML 之前将值中的所有引号替换为 '"' 来运行预处理步骤，）将不起作用，因为 .XML 方法将看到其中的 & 并转义它们！有什么办法可以解决这个问题吗？

Answer 1

这可以被视为另一端使用的 XML 解析器中的错误。 XML 规范详细说明了可以转义的实体。但它们只需要在属性内部转义，其工作原理如下所示：

program Project2;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  MSXML2_TLB,
  SysUtils;
var
  Dom : IXMLDOMDocument2;
  Root :  IXMLDOMNode;
  Attr : IXMLDOMNode;
begin
  CoInitialize(nil);
  try
    DOM := CoDOMDocument40.Create;
    Root := Dom.createElement('root');
    Attr := Dom.createAttribute('attr');
    Attr.text := '"';
    root.attributes.setNamedItem(Attr);
    root.text := '"Hello World"';
    DOM.appendChild(Root);
    writeln(Root.xml);
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

但现实是您可能无法控制等式的另一边。
因此，您可以通过执行以下操作获得所需的行为：

program Project2;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  MSXML2_TLB,
  SysUtils;
function QuoteEscape(const v : String) : String;
begin
  result := StringReplace(V,'"','"',[rfReplaceAll]);
end;


var
  Dom : IXMLDOMDocument2;
  Root :  IXMLDOMNode;
  Attr : IXMLDOMNode;
begin
  CoInitialize(nil);
  try
    DOM := CoDOMDocument40.Create;
    Root := Dom.createElement('root');
    Attr := Dom.createAttribute('attr');
    Attr.text := '"';
    root.attributes.setNamedItem(Attr);
    root.text :=  QuoteEscape('"Hello World"');
    DOM.appendChild(Root);
    writeln(StringReplace(Root.xml,'"','"',[rfReplaceAll]));
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.