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


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

主题：api接口调用
帅哥哟，离线，有人找我吗？
rxbdchrx
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：86 积分：1675 威望：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


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

接口文档说明发一下看看

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


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

接口说明
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:接口文档.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113216 积分：576509 威望：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


加好友 发短信
等级：幼狐 帖子：86 积分：1675 威望：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


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

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

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


加好友 发短信
等级：幼狐 帖子：86 积分：1675 威望：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"
……

谢谢老师
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询