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显示<EDE><Askfor>1</Askfor></EDE>
再单击按钮2,sle_2显示 1
在通信程序中,通信的格式经常使用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显示<EDE><Askfor>1</Askfor></EDE>
再单击按钮2,sle_2显示 1