Foxtable(狐表)用户栏目专家坐堂 → 关于post的写法,测试正常


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

主题:关于post的写法,测试正常

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


加好友 发短信
等级:婴狐 帖子:44 积分:534 威望:0 精华:0 注册:2020/6/27 10:03:00
关于post的写法,测试正常  发帖心情 Post By:2020/11/30 8:21:00 [只看该作者]

本人新手,最近在测试post,下面是测试成功的语句,只需要修改传入内容和webservice地址就行了
Dim xmlRequest As String = e.Form.Controls("TextBox2").text     ----post传入的内容
Dim xml As String = xmlRequest  '实例化一个字符转码对象'
Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8")
'创建一个web请求对象'
Dim request As System.Net.WebRequest = System.Net.WebRequest.Create("http://192.168.1.18:5566/services/RouteService?wsdl")      ----webservice地址
'设置请求方式为post'
request.Method = "POST"
'定义字节数组'
Dim postdata() As System.Byte = encoding.GetBytes(xmlRequest)
'设置request对象的请求字节的长度'
request.ContentLength = postdata.Length
'获取request对象的数据流'
Dim requesstream As System.IO.Stream = request.GetRequestStream()
'将数据内容填充到流中'
requesstream.Write(postdata, 0, postdata.Length)
'关闭流'
requesstream.Close()
'根据请求的request对象获取响应的response对象'
Dim response As System.Net.WebResponse = request.GetResponse()
'获取response数据流对象'
Dim responsestream As New System.IO.StreamReader(response.GetResponseStream())
'将response流中的数据读取'
Dim html As String = responsestream.ReadToEnd()
requesstream.Close()
response.Close()
'返回本次请求的响应数据'
e.Form.Controls("TextBox3").text=html       ----post传出内容

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


加好友 发短信
等级:幼狐 帖子:103 积分:1228 威望:0 精华:0 注册:2017/5/16 22:42:00
  发帖心情 Post By:2022/10/26 19:32:00 [只看该作者]

非常感谢,测试有效!感谢您无私的奉献!

 回到顶部