Foxtable(狐表)用户栏目专家坐堂 → [求助]api接口post语法如何转换为FT


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

主题:[求助]api接口post语法如何转换为FT

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]api接口post语法如何转换为FT  发帖心情 Post By:2022/11/12 18:44:00 [显示全部帖子]

老师,有如下接口代码不会转FT语言,麻烦帮忙转一下,谢谢!
接口连接:https://www.piaocc.com/path/doc.htm    (二维码技术接口)

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221112183720.png
图片点击可在新窗口打开查看

自己编写的代码:
Dim ul As String = "https://api.piaocc.com/rest/v_1/code_check.html"
Dim hc As New HttpClient("ul")
hc.Headers.Add("content-type", "application/json")
hc.Headers.Add("authCode", "6c7f36927ab8eec9ad559a3f21929932")
Dim jo As New JObject
jo("vCode") = "01,10,062001900111,34645821,264.15,20220315,82545294582625960956,9B34,"
jo("useCache") = "Y"
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Output.Show(ret)
错误信息如下:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221112195539.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/11/12 19:56:33编辑过]

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2022/11/12 20:52:00 [显示全部帖子]

谢谢回复,不行的。还得麻烦蓝版帮忙了!

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2022/11/13 9:14:00 [显示全部帖子]

感谢狐友回复,我测试返回:
远程服务器返回错误: (400) 错误的请求。
不知您测试怎么样?

[此贴子已经被作者于2022/11/13 9:14:08编辑过]

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2022/11/13 10:21:00 [显示全部帖子]

我发的全部是真实数据。可以直接测试!还是不行的,麻烦你再测试看一下!谢谢!
[此贴子已经被作者于2022/11/13 11:02:45编辑过]

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2022/11/13 11:57:00 [显示全部帖子]

就是的,呼叫蓝版!

已解决:
代码如下:
Dim ul As String = "https://api.piaocc.com/rest/v_1/code_check.html"
Dim s As String 
Dim hc As New HttpClient(Cexp(ul))  '出问题地方
hc.ContentType = "application/json"
hc.Method = "POST"  '这一句不能要
hc.Headers.Add("authCode", "6c7f36927ab8eec9ad559a3f21929932")
Dim jo As New JObject
jo("vCode") = "01,10,062001900111,34645821,264.15,20220315,82545294582625960956,9B34,"
jo("useCache") = "Y"
s = jo.ToString
hc.Content = s
Output.Show(s)
Dim ret As String = hc.GetData()
Output.Show(ret)
[此贴子已经被作者于2022/11/13 16:54:13编辑过]

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2022/11/13 19:01:00 [显示全部帖子]

感谢狐友回复!这方面纯粹不懂,谢谢!

 回到顶部