16,748
社区成员
发帖
与我相关
我的任务
分享delphi 10 生成XML文件时 无法生成 语言信息 encoding
delphi 7 下正常 berlin tokyo均无效
示例代码如下
aXml.BackXml.Active := True;
aXml.BackXml.Version := '1.0';
aXml.BackXml.Encoding :='GBK';
aXml.XmlNode :=aXml.BackXml.CreateNode('document');
aXml.BackXml.DocumentElement := aXml.XmlNode;
aXml.XmlHead := aXml.BackXml.CreateNode('head');
aXml.XmlNode.ChildNodes.Add(aXml.XmlHead);
//交易代码
aXml.XmlNodeSecond:=aXml.BackXml.CreateNode('trans_type');
aXml.XmlHead.ChildNodes.Add(aXml.XmlNodeSecond);
aXml.XmlNodeSecond.Text:='100';
输出显示结果
<?xml version="1.0"?>
<document><head><trans_type>100</trans_type></head></document>
正常应该是
<?xml version="1.0" encoding="GBK"?><document><head><trans_type>100</trans_type></head></document>
少了 encoding="GBK"
示例代码如下
aXml.BackXml.Active := True;
aXml.BackXml.Version := '1.0';
aXml.BackXml.Encoding :='GBK';
aXml.XmlNode :=aXml.BackXml.CreateNode('document');
aXml.BackXml.DocumentElement := aXml.XmlNode;
aXml.XmlHead := aXml.BackXml.CreateNode('head');
aXml.XmlNode.ChildNodes.Add(aXml.XmlHead);
//交易代码
aXml.XmlNodeSecond:=aXml.BackXml.CreateNode('trans_type');
aXml.XmlHead.ChildNodes.Add(aXml.XmlNodeSecond);
aXml.XmlNodeSecond.Text:='100';
输出显示结果
<?xml version="1.0"?>
<document><head><trans_type>100</trans_type></head></document>
正常应该是
<?xml version="1.0" encoding="GBK"?><document><head><trans_type>100</trans_type></head></document>
少了 encoding="GBK"
...全文
请发表友善的回复…
发表回复
堕落恶魔_Delphi 2018-11-26
- 打赏
- 举报
对, 这个我感觉是个BUG 但是一直没修复
使用XML.Text和SaveToXML 都会丢失编码
使用SaveToStream不会
看看我之前做过的测试: https://www.cnblogs.com/lzl_17948876/p/3829183.html
日立奔腾浪潮微软松下联想 2018-11-26
- 打赏
- 举报
不是BUG，SaveToXML是存到一个string/WideString/UTF8String，D2009之后string是unicode编码，WideString本来就是unicode编码，如果你指出一个非unicode编码，那xml的内容在string中怎么存？所以它只能去掉xml头的encoding字段，转换为unicode存储。如果你存到UTF8String，那么encoding字段就会出现。
