Delphi XE7中使用TXML文档对象不能正确显示XML文件中的度数符号

Question

****XMLDoc.Active := True;
  XMLDoc.Options := [doNodeAutoCreate, doNodeAutoIndent];
  XMLDoc.Version := '1.0';
  XMLDoc.Encoding := 'utf-8';****

？xml version=“1.0”encoding=“UTF-8”？这是我打开XML文件时预期的结果。但是它没有在XML文件中显示encoding=“UTF-8”。因此，我认为学位符号没有正确地显示在XML文件中。（因为它不能编码）。

我将UTF-8更改为UTF-16，但当我试图打开XML文件时，它显示了错误消息，如从当前编码切换到指定的编码不受支持。我想在RAD Studio XE7中有一些编码问题，因为对于以前的版本（Delphi XE5)来说，它工作得很好。请给我一些建议。

XMLDocument1:= TXMLDocument.create(nil);
    XMLDocument1.Active := True;
    XMLDocument1.Version :='1.0';
    XMLDocument1.Encoding :='UTF-8';
        XMLDocument2:= TXMLDocument.create(nil);
    XMLDocument2.Active := True;
    XMLDocument2.Version :='1.0';
    XMLDocument2.Encoding :='UTF-8';          

  { Add new child. This will become the document element.
    If the document element already exists, then an exception is raised. }
  //LNode := XMLDocument1.AddChild('Airbus');
  LNode := XMLDocument1.CreateElement('TestElement', '101°F (38.33°C)');
  XMLDocument1.DocumentElement := LNode;

  { Display document content. }

    XMLDocument1.SaveToFile('c:\mk1.xml');
{if we take xmldocuments.xml.text method is not taking “Encoding=’UTF-8’}
    XMLDocument2.LoadFromFile ('c:\mk1.xml');
    **strsampletext:= XMLDocument2.XML.text; //Here I am not getting "Encoding='UTF-8". and the string "strsampletext" passed as a parameter**. If I write "strsampletext" into another XML file I can't view Degree Symbol correctly when I view in IE.

加载保存的XML后，编码的UTF-8将不再使用。

Answer 1

这里没有我可以复制的错误。根据您的代码考虑以下程序：

{$APPTYPE CONSOLE}

uses
  Xml.XMLIntf, Xml.XMLDoc, Winapi.ActiveX;

procedure Main;
var
  XMLDocument1, XMLDocument2: IXMLDocument;
  LNode: IXMLNode;
begin
  XMLDocument1 := TXMLDocument.Create(nil);
  XMLDocument1.Active := True;
  XMLDocument1.Version := '1.0';
  XMLDocument1.Encoding := 'UTF-8';
  XMLDocument2 := TXMLDocument.Create(nil);
  XMLDocument2.Active := True;
  XMLDocument2.Version := '1.0';
  XMLDocument2.Encoding := 'UTF-8';
  LNode := XMLDocument1.CreateElement('TestElement', '101°F (38.33°C)');
  XMLDocument1.DocumentElement := LNode;
  XMLDocument1.SaveToFile('c:\desktop\mk1.xml');
  XMLDocument2.LoadFromFile('c:\desktop\mk1.xml');
  Writeln(XMLDocument2.Encoding);
end;

begin
  CoInitialize(nil);
  Main;
  Readln;
end.

当用XE7 Update1，32位编译时，该程序的输出是：

UTF-8

保存的文件使用UTF-8编码。这是我加载文件时记事本++的截图：

Memo1.Lines.Text := XMLDocument1.XML.Text;
Memo1.Lines.SaveToFile(...);

这将失败，因为保存TStrings时的默认编码是ANSI。