pb8.0如何向指定的端口发送xml，如何接收到来自指定的端口的xml？
------解决方案--------------------
学习来者
------解决方案--------------------
up
------解决方案--------------------
OleObject loo_XmlDoc, loo_XmlNodeList
string ls_Xml
long ll_state
loo_XmlDoc = Create OleObject
ll_state = loo_XmlDoc.ConnectToNewObject("Msxml2.DOMDocument")
if ll_state = 0 then
loo_XmlDoc.async = false
ls_Xml = '<xml><cls name="CASSYSCOM.PlatForm" />' &
+ '<func name="GetRemindInfo" return = "long"/>' &
+ '<param ref1="'+ as_userid + '"' &
+ ' ref2="'+ as_xml + '"' &
+ ' />' &
+ '</xml>'
ll_state = f_GetHttpXml(ls_Xml)
if ll_state = 1 then
//对结果的处理，将<func>下返回值反回，将<param>引用返回
loo_XmlDoc.loadXml(ls_Xml)
//取反回值
loo_XmlNodeList = loo_XmlDoc.selectSingleNode("//func/return")
If IsNull(loo_XmlNodeList) = False Then
ll_state = long(loo_XmlNodeList.text)
End If
//取引用参数
loo_XmlNodeList = loo_XmlDoc.selectSingleNode("//param")
If IsNull(loo_XmlNodeList) = False Then
as_userid = loo_XmlNodeList.childNodes.item(0).text
as_xml = loo_XmlNodeList.childNodes.item(1).text
End If
end if
end if
destroy loo_XmlNodeList
destroy loo_XmlDoc
return ll_state
------解决方案--------------------
MARK一下，仅供以后学习
------解决方案--------------------
我也想学,高手讲讲
------解决方案--------------------
那函数不重要，你只要把你的xml的内容（string）
放到变量ls_Xml中即可
------解决方案--------------------
我是来学习的，顺便帮你顶上去。
------解决方案--------------------
f_GetHttpXml函数就是打开xml文件，将文件内容读取出来，已string方式保存到变量ls_Xml中