Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]webservice调用方法

共有4292人关注过本帖树形打印复制链接主题：[求助]webservice调用方法

狐作非为

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00

Post By：2016/6/13 15:27:00 [只看该作者]

Dim msg As String = "codeLang=CHI&codeUser=ADMIN&password=&poolAlias=LLTEST&requestConfig=@" & """adxwss.trace.on=on&adxwss.trace.size=16384&adonix.trace.on=on&adonix.trace.level=3&adonix.trace.size=8"

Output.Show(msg)

Dim req = System.Net.WebRequest.Create("http://192.168.0.17:28880/adxwsvc/services/CAdxWebServiceXmlCC/CAdxCallContext")

req.Method = "POST"

req.C

Dim aryBuf As Byte() = Encoding.GetEncoding("UTF-8").GetBytes(msg)

req.ContentLength = aryBuf.Length

Dim writer = req.GetRequestStream()

writer.Write(aryBuf, 0, aryBuf.Length)

writer.Close()

writer.Dispose()

Dim pos = req.GetResponse

Dim stm As System.IO.Stream = pos.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

pos.Close

stm.Close

reader.close

Output.Show(aryBuf)

此主题相关图片如下：111111.png

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/13 16:49:00 [只看该作者]

看看这个地址，是否可以直接访问？你的路径，必须正确。

http://192.168.0.17:28880/adxwsvc/services/CAdxWebServiceXmlCC/CAdxCallContext

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/13 16:58:00 [只看该作者]

再有就是，传递参数的时候要这样处理一下

Dim str As String = "adxwss.trace.on=on&adxwss.trace.size=16384&adonix.trace.on=on&adonix.trace.level=3&adonix.trace.size=8"
str = str.replace("&", "%26")
Dim msg As String = "codeLang=CHI&codeUser=ADMIN&password=&poolAlias=LLTEST&requestConfig=" & str
msgbox(msg)