zoukankan      html  css  js  c++  java
  • 一个关于Delphi XML处理单元的BUG

    使用delphi的XML处理单元 XMLDoc XMLIntf

    在获取XML文本内容的时候, 高版本的Delphi会丢失编码描述....在D7上却是正常的, 下面是测试源码:

    复制代码
    procedure TForm1.Button1Click(Sender: TObject);
    var
      nXMLDoc: IXMLDocument;
      i: Integer;
      nMS: TMemoryStream;
      nSS: TStringStream;
      nStr: string;
    begin
      nXMLDoc := TXMLDocument.Create(nil);
      nXMLDoc.Active := True;
      nXMLDoc.Encoding := 'GB2312';
      nXMLDoc.AddChild('test');
      for i := 0 to 4 do
        nXMLDoc.DocumentElement.AddChild('测试').NodeValue := i;
      with Memo1 do
      begin
        Lines.Clear;
        Lines.Add('---- nXMLDoc.XML.Text ----');
        Lines.Add('');
        Lines.Add(nXMLDoc.XML.Text);
      end;
      nMS := TMemoryStream.Create;
      nXMLDoc.SaveToStream(nms);
      nms.Position := 0;
      with Memo2 do
      begin
        Lines.Clear;
        Lines.LoadFromStream(nms);
        Lines.Insert(0, '');
        Lines.Insert(0, '---- nXMLDoc.SaveToStream ----');
      end;
      nMS.Free;
      nXMLDoc.SaveToXML(nStr);
      with Memo3 do
      begin
        Lines.Clear;
        Lines.Add('---- nXMLDoc.SaveToXML ----');
        Lines.Add('');
        Lines.Add(nStr);
      end;
    end;
    复制代码

    下面是同样的代码分别在Delphi7 和Delphi2010的执行效果

    对比可以发现, XML.Text和SaveToXML这2个方法, 在2010上, 输入以后 encoding="GB2312" 的编码信息会丢失

    使用XE5的版本测试也一样会丢失, 只有在D7上是正常的

    Delphi7结果

    Delph2010结果

    http://www.cnblogs.com/hs-kill/p/3829183.html

  • 相关阅读:
    派遣函数
    英文论文(1)
    状态机和时序图的“前世姻缘”
    线程安全性:原子性,安全性,加锁机制
    多线程程序中操作的原子性
    win10下安装Centos7总笔记!
    分支限界法---旅行售货员问题
    PHP+ajax聊天室源码!支持长轮循跟定时请求两种
    elasticsearch配置优化
    hbase region与内存的关系
  • 原文地址:https://www.cnblogs.com/findumars/p/5812162.html
Copyright © 2011-2022 走看看