PB中调用MICROSOFT.XMLDOM的实例

PB中调用MICROSOFT.XMLDOM的实例    
     
   
  在通信程序中，通信的格式经常使用XML格式，下面是在PB中利用MICROSOFT.XMLDOM的对象来生成XML字串及解析XML字串内的内容的例子。  
   
  新建一个窗体，在窗体中放上两个按钮两个单行编辑框，按钮1用于生成一个XML串并显示在第1个编辑框内，按钮2的作用是将生成的XML串中ASKFOR标记内的值取出并在第2个编辑框中显示出来。  
   
  按钮1的代码如下：  
   
  oleobject   ixmldom,iNewNode,inewnode1  
  long   ll_1  
  ixmldom   =   create   oleobject    
  string   ls_1  
  ll_1=ixmldom.connecttonewobject(   "microsoft.xmldom")  
  if   ll_1<>0   then  
  messagebox('error','create   object   fail')  
  else  
  iNewNode   =   iXMLDOM.createNode(1,   'EDE',   '')  
  iNewNode1   =   iXMLDOM.createNode(1,   'Askfor',   '')  
  iNewNode1.text   =   '1'  
  iNewNode.appendChild(iNewNode1)  
  iXMLDOM.appendChild(inewnode)  
  sle_1.text=ixmldom.xml  
  end   if  
   
  按钮2的代码如下：  
   
  oleobject   ixmldom,iNewNode,inewnode1  
  long   ll_1  
  ixmldom   =   create   oleobject    
  string   ls_1  
  ll_1=ixmldom.connecttonewobject(   "microsoft.xmldom")  
  if   ll_1<>0   then  
  messagebox('error','create   object   fail')  
  else  
  iXMLDOM.loadXML(sle_1.text)  
   
  inewNode   =   iXMLDOM.selectSingleNode('//Askfor')  
  ls_1=   inewNode.text  
  sle_2.text=ls_1  
   
  end   if  
   
  执行后，单击按钮1，sle_1显示1  
   
  再单击按钮2，sle_2显示   1