Delphi中TXMLDocument导出XML文本如何得到encoding为UTF-8的编码声明

最新推荐文章于 2022-08-05 10:11:37 发布

原创最新推荐文章于 2022-08-05 10:11:37 发布 · 1.4k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

0 篇文章

订阅专栏

Delphi里TXMLDocument默认字符编码为UTF-8，用IXMLDocument.node.XML获取XML文本时，encoding=\UTF-8\声明会丢失，官方未变更或为故意。文中给出一种获取带有UTF-8字符编码声明的XML文本的代码解决方案，规避了获取不到声明的问题。

Delphi中TXMLDocument将UTF-8作为默认的字符编码方案，如果你想使用IXMLDocument.node.XML获取XML文本，encoding="UTF-8"的声明就会丢失，除非你使用非UTF-8的编码方案。很多人认为这是TXMLDocument的Bug，但从官方一直未变更的情况看可能是故意为之，那么如果你想得到带有UTF-8字符编码声明的XML文本怎么办呢，方法还是有的，下面的代码就是其中的一种解决方案：

var
  doc: TXMLDocument;
  ss:TStringStream;
begin
  doc.Encoding:='UTF-8';
  ss:=TStringStream.Create;
  doc.SaveToStream(ss);
  Result := ss.DataString;
  ss.Destroy;
end;

这样Result中得到的就是带有UTF-8字符编码方案声明的XML文本串，很好的规避了直接利用属性和方法获取不到的问题。