以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教如何解析 调用webservice端口后返回的xml文件?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81452)

--  作者:ycwk
--  发布时间:2016/2/27 23:28:00
--  求教如何解析 调用webservice端口后返回的xml文件?
求教如何解析 调用webservice端口后返回的xml文件?
发送按钮事件

Dim url As String
Dim http As Object
url = "http://118.145.18.236:9999/smsGBK.aspx?action=send&userid=xxxx&account=xxxx&password=xxxx&mobile=12345678&content=【中心】测试测试&sendTime=&extno="
http = CreateObject("MSXML2.XMLHTTP")
MessageBox.show(url)
http.Open("post", url, False)

http.send()
MessageBox.Show("返回信息:" & http.responseText)


发送短信后,会返回一条信息表示成功与否,   http.responseText也是一个xml,请问如何获取到这个xml文件?

--  作者:ycwk
--  发布时间:2016/2/27 23:42:00
--  
试着在后面加了两句,结果运行报错。
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load(http.responseXML)
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("returnsms" )


.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2015.12.22.1
错误所在事件:窗口,窗口1,Button1,Click
详细错误信息:
重载决策失败,因为没有 Public“Load”可以用这些参数调用:
    \'Public Overrides Sub Load(txtReader As System.IO.TextReader)\':
        与参数“txtReader”匹配的参数无法从“__ComObject”转换为“TextReader”。
    \'Public Overrides Sub Load(reader As System.Xml.XmlReader)\':
        与参数“reader”匹配的参数无法从“__ComObject”转换为“XmlReader”。
    \'Public Overrides Sub Load(filename As String)\':
        与参数“filename”匹配的参数无法从“__ComObject”转换为“String”。
    \'Public Overrides Sub Load(inStream As System.IO.Stream)\':
        与参数“inStream”匹配的参数无法从“__ComObject”转换为“Stream”。


--  作者:ycwk
--  发布时间:2016/2/28
--  
s=http.responseText

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.LoadXml(s.Trim())
不知效率如何? 运行的时候有点卡

--  作者:大红袍
--  发布时间:2016/2/28 11:13:00
--  

Dim url As String
Dim http As Object
url = "http://118.145.18.236:9999/smsGBK.aspx?action=send&userid=xxxx&account=xxxx&password=xxxx&mobile=12345678&content=【中心】测试测试&sendTime=&extno="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("post", url, False)


http.send()
MessageBox.Show(http.responseXML.GetElementsByTagName("returnstatus")(0).text)
MessageBox.Show(http.responseXML.GetElementsByTagName("message")(0).text)