Foxtable(狐表)用户栏目专家坐堂 → 还是不能熟练使用post方法,请指教。


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

主题:还是不能熟练使用post方法,请指教。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/5 14:38:00 [显示全部帖子]

如果直接用get请求,这样写

 

http://www.foxtable.com/webhelp/scr/2243.htm

 

如果post请求,参考

 

http://www.foxtable.com/mobilehelp/scr/0159.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/5 14:59:00 [显示全部帖子]

以下是引用ycwk在2017/4/5 14:48:00的发言:
如果是post方法调webservice呢?   我上面贴出来的代码不能用吗?

 

请,使用,论坛以前的post请求。请先把代码测试成功,再谈其它。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/5 15:36:00 [显示全部帖子]

 你的webservice需要提交的是什么啊?请询问webservice提供者。

 

 请使用这种方式提交啊 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98597&authorid=0&page=0&star=2

 


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/5 15:38:00 [显示全部帖子]

以下是引用ycwk在2017/4/5 15:34:00的发言:
Dim hc As New HttpClient("http://10.26.254.23:8080//Identity.asmx/IdentityCheck")
hc.Headers.add("Content-Type", "application/x-www-form-urlencoded")
hc.C
Dim jo As JObject = Jobject.Parse(hc.GetData)
msgbox(jo)


依然报错。

 

看不懂你要做什么,请不要使用httpClient来提交。论坛里搜索webservice的方式。先好好看完,别瞎折腾。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/5 17:23:00 [显示全部帖子]

 那先尝试这样测试。

 

Dim msg As String = "<XML><Name>王昆</Name><User>000111</User><Password>12345</Password></XML>"      '调用后返回一个xml格式为  <XML><User>工号</User><CheckResult>验证结果</CheckResult><CheckTime>验证时间</CheckTime></XML>
Dim req = System.Net.WebRequest.Create("http://10.26.254.23/Identity.asmx/IdentityCheck")        'identifyCheck 是方法
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
Dim aryBuf As Byte() = Encoding.utf8.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
msgbox(str)


 回到顶部