使用TXMLDocument控件遇到的问题,请各位帮帮忙.很急很急!谢谢!--在线等！！！

Question

我把TXMLDocument放在一个窗体上,用它来生成XML文件,但是每次打开这个窗体后就只能生成一个文件,如果想再生成一个文件就会出现如下错误:Access violation at address 008c086b in module 'project1.exe' .Read of address 000000000 .process stopped.use step or run to continue.只能把这个窗体关闭后再开才可以正确生成。请问是不是生成完后，要调用那个函数来释放，请各位指教！！

Answer 1

TXMLDocument的使用是有些特别的东西,不过楼主遇到的问题该是代码写得不对.

Answer 2

谢谢两位!这是我写的有关TXMLDocument的代码,请麻烦指出错误.
   XMLDocument1.Active := True;
   XMLDocument1.Encoding := 'UTF-8';
   XMLDocument1.XML.Add('<COMFIRM xmlns="http://shedi.com/comfirm.xsd">');
   XMLDocument1.XML.Add('</COMFIRM>');
   XMLDocument1.Active := True;
   containers:=XMLDOCUMENT1.DocumentElement.AddChild('CONTAINERS');
   with XMLDocument1 do
     begin
      Container:=CONTAINERS.AddChild('CONTAINER');
      Container.AddChild('SHIP_ID').NodeValue:=svsl_callsign;
      container.AddChild('VOYAGE').NodeValue:=svoy_code;
      container.AddChild('BILL_NUMBER').NodeValue:=sBlno;
      container.AddChild('CONT_NUMBER').NodeValue:=Sctn_code;
      container.AddChild('SAIL_QUAY').NodeValue:=Sfwhf_custcode;
     end;
   XMLDocument1.SaveToFile(filename);
   XMLDocument1.Active:=false;
   XMLDocument1.free;

Answer 3

你把它释放了,下次用它当然要出错.
   XMLDocument1.free;

Answer 4

我把XMLDocument1.free 删了，再次生成时就出现如下错误：
only one top level element is allowed in XMLDocument请各位指导指导，急用。。

Answer 5

原来你只是需要清内容...XMLDocument1.XML.Clear;

Answer 6

加了XMLDocument1.XML.CLear又出现新的问题：Record no found!

Answer 7

呵呵，哈爷继续CSDN论坛浏览器:http://CoolSlob.ys168.com/

Answer 8

直接用IXMLDOMDocument吧……
感觉方便些

Answer 9

试试下面的代码.   XMLDocument1.Active := False;//XMLDOCUMENT1在使用前应该是空的,那这儿一定应该是FALSE
   XMLDocument1.XML.Add('<COMFIRM xmlns="http://shedi.com/comfirm.xsd">');
   XMLDocument1.XML.Add('</COMFIRM>');
   XMLDocument1.Active := True;
   XMLDocument1.Encoding := 'UTF-8';
   containers:=XMLDOCUMENT1.DocumentElement.AddChild('CONTAINERS');
   with XMLDocument1 do
     begin
      Container:=CONTAINERS.AddChild('CONTAINER');
      Container.AddChild('SHIP_ID').NodeValue:='svsl_callsign';
      container.AddChild('VOYAGE').NodeValue:='svoy_code';
      container.AddChild('BILL_NUMBER').NodeValue:='sBlno';
      container.AddChild('CONT_NUMBER').NodeValue:='Sctn_code';
      container.AddChild('SAIL_QUAY').NodeValue:='Sfwhf_custcode';
     end;
   XMLDocument1.SaveToFile('d:\test.xml');
   XMLDocument1.Active:=false;