Foxtable(狐表)用户栏目专家坐堂 → [求助]关于hc.FormData.Add模拟表单的异常


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

主题:[求助]关于hc.FormData.Add模拟表单的异常

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


加好友 发短信
等级:二尾狐 帖子:553 积分:4545 威望:0 精华:0 注册:2012/12/2 16:53:00
[求助]关于hc.FormData.Add模拟表单的异常  发帖心情 Post By:2022/6/13 10:19:00 [只看该作者]

客户端程序代码如下:
Dim http,gd As String
http = "http://192.168.3.27:10086/clientShipYMCheck.htm"
Dim hc As New HttpClient(http)

    Dim od As String = "2259"
    hc.FormData.Add("md","LoadPur")
    hc.FormData.Add("id",od)
    hc.Timeout = 100
    gd = hc.GetData()

    hc.FormData.Clear
    hc.FormData.Add("md","LoadTransQty")
    hc.FormData.Add("id",od)
    'hc.Timeout = 100
    gd = hc.GetData()

以上代码,如果不执行最后一行,程序运行没有问题,
如果加上执行最后一行,会报错,

错误内容:
基流不可读。
参数名: stream
请教这是什么问题,要怎么修改。

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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/13 10:24:00 [只看该作者]

每次请求都需要一个新的HttpClient

Dim http,gd As String
http = "http://192.168.3.27:10086/clientShipYMCheck.htm"
Dim hc As New HttpClient(http)

    Dim od As String = "2259"
    hc.FormData.Add("md","LoadPur")
    hc.FormData.Add("id",od)
    hc.Timeout = 100
    gd = hc.GetData()

hc = New HttpClient(http)
    hc.FormData.Add("md","LoadTransQty")
    hc.FormData.Add("id",od)
    hc.Timeout = 100
    gd = hc.GetData()

 回到顶部