- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- api接口调用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179973)
-- 发布时间：2022/9/21 13:16:00
-- api接口调用
以下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。
-- 发布时间：2022/9/21 13:39:00
--
接口文档说明发一下看看
-- 发布时间：2022/9/21 14:06:00
--
接口说明
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:接口文档.rar |
-- 发布时间：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"
……
-- 发布时间：2022/9/21 14:29:00
--
加上
Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11 后
一样的报错信息
加上
hctest.Method = "POST" 后
报下面的错误
-- 发布时间：2022/9/21 14:37:00
--
给个可以访问的接口地址发过来试试
-- 发布时间：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" …… 谢谢老师 |