请教大家如何用DLEPHI搞定XML??(有钱捧个钱场，没钱捧个人场啊！人人都有分哦~~)

Question

csdn助手不就是delphi+xml做的吗，你跟作者聊聊不就解决了？？

Answer 1

Delphi6/7+XML也不难搞的，看看书了

Answer 2

http://[email protected]
delphi交流。欢迎到我的主页上去发表您的高见！

Answer 3

大家好像都关心这个问题，可是有没有人自己搞过的，大家交流一下啊！
另外  win911(☆洋☆) 兄：如何和csdn的助手联系呢？？

Answer 4

看：http://www.csdn.net/expert/topic/970/970187.xml?temp=.9204065

Answer 5

xml和delphi都熟悉，但是还没有将两者结合起来用过，关注！

Answer 6

D6开始支持xml.试学用clientdataset, TXMLdocument等控件 
就算用ADO 都可以 xml 存档

Answer 7

'所以想请教一下如何用DLEPHI搞定XML'
什么意识阿，你想实现什么方面的功能阿？
xmldocument是个好东西

Answer 8

procedure TMainForm1.Button13Click(Sender: TObject);
var
  i,colnum : integer;
  a : string;
  xmlnode,ValueNode : IXMLNode;
begin
  xmldocument1.FileName :='paper_stp.xml';
  xmldocument1.Active :=true;
  xmlnode := XMLDocument1.DocumentElement.AddChild('model');
  ValueNode  := xmlnode.AddChild('p_lth');ValueNode.text := '280';
  ValueNode  := xmlnode.AddChild('p_wth');ValueNode.text := '210';
  ValueNode  := xmlnode.AddChild('m_t');ValueNode.text := '12';
  ValueNode  := xmlnode.AddChild('m_l');ValueNode.text := '12';
  ValueNode  := xmlnode.AddChild('m_b');ValueNode.text := '12';
  ValueNode  := xmlnode.AddChild('m_r');ValueNode.text := '12';
  XMLDocument1.SaveToFile('paper_stp.xml') ;
end;

Answer 9

请看网络学院：http://www.pconline.com.cn/pcedu/empolder/wz/xml

Answer 10

这是读：
   entpcode:string;
   xpnode:IxmldomNode;
   xnode:ixmldomnode;
   anode:tTreenode;
begin
   entpcode:=node.Stringdata;
   xpnode:=EntpDoc.documentElement.selectSingleNode('//entp[@entpcode="'+entpcode+'"]');
   if (xpnode<>nil)and(xpnode.hasChildNodes)then
   begin
   xnode:=xpnode.firstChild;
   anode:=treeview.Items.AddChild(node,xnode.attributes.item[1].text);
     anode.StringData:=xnode.attributes.item[0].text;
      anode.HasChildren:=true;
      while xnode.Get_nextSibling<>nil do
      begin
   xnode:=xnode.nextSibling;
   anode:=treeview.Items.AddChild(node,xnode.attributes.item[1].text);
anode.StringData:=xnode.attributes.item[0].text;
      end;
   end;
这是写：
var
   xElem:IxmlDomElement;
   xNode:IxmlDomNode;
   ResultStr:string;
   Node:tfcTreenode;
begin
   xNode:=entpdoc.documentElement.selectSingleNode('//entp[@entpcode="'+fcTV_Entp.Selected.StringData+'"]');
   xElem:=entpdoc.createElement('entp');
   xElem.setAttribute('entpcode',E_eID.text);
   xElem.setAttribute('entpname',E_eName.text);
   xElem.setAttribute('entplevel','');
   xElem.setAttribute('xzqh',E_Xzqh.Text);
   xElem.setAttribute('entptype',copy(CBB_EntpType.Text,1,1));
  //showmessage(xDoc.documentElement.xml);
   xnode.parentnode.insertBefore(xElem,xNode);
   //entpdoc.documentElement.insertBefore(xElem,xNode);
   entpdoc.save(Extractfilepath(application.exename)+'\res\postcard.sys');
   Node:=fcTV_Entp.Selected;
   Node:=fcTV_Entp.Items.Insert(Node,E_eName.text);
这是修改：
var
   ResultStr:string;
   xNode:IxmlDomNode;
   xdoc:IxmlDomDocument;
begin
   Fselnode:=fcTV_Entp.Selected;
   xNode:=entpdoc.documentElement.selectSingleNode('//entp[@entpcode="'+fcTV_Entp.Selected.StringData+'"]');   xNode.attributes.item[0].text:=E_eid.Text;
   xNode.attributes.item[1].text:=E_eName.Text;
   xNode.attributes.item[3].text:=E_xzqh.Text;
   xNode.attributes.item[4].text:=copy(CBB_EntpType.Text,1,1);
   entpdoc.save(Extractfilepath(application.exename)+'\res\postcard.sys');   FselNode.Text:=e_ename.Text;这是删除：
   xNode:=entpdoc.documentElement.selectSingleNode('//entp[@entpcode="'+fcTV_Entp.Selected.StringData+'"]');
   xParentNode:=xNode.parentNode;
   if xNode.hasChildNodes then
   begin
      if messagedlg('要删除节点:"'+fcTV_Entp.Selected.Text+'"及其子节点吗？',mtinformation,[mbyes,mbno],0)=mryes then
      begin
         xParentNode.removeChild(xnode);
         fcTV_Entp.Selected.Delete;
      end
      else exit;
   end
   else if messagedlg('要删除节点:"'+fcTV_Entp.Selected.Text+'"吗？',mtinformation,[mbyes,mbno],0)=mryes then
      begin
         xParentNode.removeChild(xnode);
         fcTV_Entp.Selected.Delete;
      end
      else exit;
  entpdoc.save(Extractfilepath(application.exename)+'\res\postcard.sys');

Answer 11

呵呵，看来我的题目起的不好呀！
如果是写写代码，我还是会写的....
大家都知道，XML还是比较~~~的吧，而我们做Delphi的人呢，对数据库了解的往往多一点，我想和大家交流一下，Delphi中XML操作的相对优点和缺点，大家不妨谈谈自己的心得啊！

Answer 12

xml应该应用在哪些方面的呢？
请赐教

Answer 13

XML用于数据存储方面可能很少.其实XML的一个很重要的特性,便是用于交流与沟通,也即数据互换;在做接口程序或网络编程方面有很大的用处.不知各位是否有同感?