Foxtable(狐表)用户栏目专家坐堂 → api接口调用


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

主题:api接口调用

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


加好友 发短信
等级:幼狐 帖子:85 积分:1658 威望:0 精华:0 注册:2012/5/18 23:26:00
api接口调用  发帖心情 Post By:2022/9/21 13:16:00 [只看该作者]

以下Web_api测试程序(postman测试api接口OK)运行时总是报错,请教老师程序如何修改?

Dim mystring As String
Dim hctest As New HttpClient("https://157.116.12.9/Web_api" )
Dim jotest As New JObject
hctest.C
jotest("jsonrpc") = "2.0"
jotest("method") = "login"
jotest("id") = 12345678
jotest("params") = New JObject
jotest("params")("username") = "lljgl"
jotest("params")("password") = "3b8c13cf10ab0e2416e253270d7f35d277dae9156ba5218837d413e8bc617b1092697f2f5f4ff23c3d44242e51271e4f380e9398ea25d9d35abf91ea9d850496"
hctest.Content = jotest.Tostring
mystring = hctest.GetData()
output.Show( mystring )

错误信息如下:
必须先将 ContentLength 字节写入请求流,然后再调用 [Begin]GetResponse。
图片点击可在新窗口打开查看



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


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

接口文档说明发一下看看

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


加好友 发短信
等级:幼狐 帖子:85 积分:1658 威望:0 精华:0 注册:2012/5/18 23:26:00
  发帖心情 Post By:2022/9/21 14:06:00 [只看该作者]

接口说明
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:接口文档.rar


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


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

试试

Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11
Dim mystring As String
Dim hctest As New HttpClient("https://157.116.12.9/Web_api" )
Dim jotest As New JObject
hctest.ContentType = "application/json"
jotest("jsonrpc") = "2.0"
……

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


加好友 发短信
等级:幼狐 帖子:85 积分:1658 威望:0 精华:0 注册:2012/5/18 23:26:00
  发帖心情 Post By:2022/9/21 14:29:00 [只看该作者]

加上
Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11 后
一样的报错信息

加上
hctest.Method = "POST" 后
报下面的错误
图片点击可在新窗口打开查看

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


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

给个可以访问的接口地址发过来试试

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


加好友 发短信
等级:幼狐 帖子:85 积分:1658 威望:0 精华:0 注册:2012/5/18 23:26:00
  发帖心情 Post By:2022/9/21 14:41:00 [只看该作者]

把 Net.SecurityProtocolType.Tls11 改为 Net.SecurityProtocolType.Tls12 后 测试OK了

Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12
Dim mystring As String
Dim hctest As New HttpClient("https://157.116.12.9/Web_api" )
Dim jotest As New JObject
hctest.ContentType = "application/json"
jotest("jsonrpc") = "2.0"
……

谢谢老师

 回到顶部