Foxtable(狐表)用户栏目专家坐堂 → 求教如何解析 调用webservice端口后返回的xml文件?


  共有2096人关注过本帖树形打印复制链接

主题:求教如何解析 调用webservice端口后返回的xml文件?

帅哥哟,离线,有人找我吗?
ycwk
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
求教如何解析 调用webservice端口后返回的xml文件?  发帖心情 Post By:2016/2/27 23:28:00 [只看该作者]

求教如何解析 调用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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2016/2/28 [只看该作者]

s=http.responseText

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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)


 回到顶部