以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  api接口调用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179973)

--  作者:rxbdchrx
--  发布时间: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
--  
接口文档说明发一下看看
--  作者:rxbdchrx
--  发布时间: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"
……

--  作者:rxbdchrx
--  发布时间:2022/9/21 14:29:00
--  
加上
Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11 后
一样的报错信息

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

--  作者:有点蓝
--  发布时间:2022/9/21 14:37:00
--  
给个可以访问的接口地址发过来试试
--  作者:rxbdchrx
--  发布时间: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"
……

谢谢老师