这段xml代码执行到最后一句时，怎么会报Abstact error，意思是调用了纯虚函数。

[披着虎皮的石头]

这段xml代码执行到最后一句时，怎么会报Abstact error，意思是调用了纯虚函数。

var XmlRoot :IXMLNode; XmlDoc :TXmlDocument;MyStream :TMemoryStream;
begin
 XmlDoc :=TXMLDocument.Create(nil);
 XmlDoc.LoadFromStream(MyStream);

 XmlRoot :=XmlDoc.DocumentElement;
end

[sololie]

都没看到你MyStream哪来的，你既没有create它也没有从其他地方引用。

[披着虎皮的石头]

只是部分代码，实际流： //post方式，以http头部和Parm的StringList参数，隐式请求 IdHTTP1.post(getMaskString(urlStr, '?', 1), Parm_St, RtnStream);

[披着虎皮的石头]

XmlDoc 如果是窗口静态创建的，就不会出现错误。

[披着虎皮的石头]

换个说法，是怎么创建TXmlDocument对象，运行时，不会出错。

[披着虎皮 的石头]

http://blog.csdn.net/zswang/article/details/1610404

[hsfzxjy]

不如用NativeXML吧http://download.csdn.net/detail/hsfzxjy/5664569

[武稀松]

用TXmlDocument不如用IXmlDocument爽

[披着虎皮的石头]

charset属性

[披着虎皮的石头]

引用 6 楼 HSFZXJY 的回复:

不如用NativeXML吧http://download.csdn.net/detail/hsfzxjy/5664569

NativeXML是第三方控件，有什么优势：比如可以动态创建，不依赖底层windows，内存可以清空，不会溢出。

引用 7 楼 wr960204 的回复:

用TXmlDocument不如用IXmlDocument爽

这个改接口后，问题太多，放弃。

[hsfzxjy]

NativeXML不依赖底层windows，使用方便，支持多种编码转化：如Unicode和UTF8

[披着虎皮的石头]

引用 9 楼 HSFZXJY 的回复:

NativeXML不依赖底层windows，使用方便，支持多种编码转化：如Unicode和UTF8

下面这句编译时，提示没有EncodingString属性，怎么设置编码呢？ xml.EncodingString :='GB2312';

[披着虎皮的石头]

procedure TForm1.FormCreate(Sender: TObject);
var xml : TNativeXML; n_bs : TXMLNode;
  begin
    //建立根节点
    //xml :=TNativeXml.Create(nil);
    xml :=TNativeXml.CreateName('bookshift');

    //xml.EncodingString :='GB2312';
    //输出风格为易读
    xml.XmlFormat :=xfReadable;

    //建立Book节点
    n_bs :=xml.Root.NodeNew('book');
    //写入Book节点的属性
    //n_bs.WriteAttribuiteString('author','test_author');
    //建立Book节点下属date节点并写入值
    n_bs.WriteString('date','2000-01-01');

    xml.SaveToFile('test.xml');
  end;