api调用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3180人关注过本帖树形打印复制链接主题：api调用

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3049 积分：20399 威望：0 精华：0 注册：2016/3/28 16:57:00

api调用

Post By：2020/7/31 12:38:00 [只看该作者]

老师，请教一下这个API调用怎么写，对json不懂，请修改一下，验证成功提示验证成功，不通过返回验证不通过。

https://market.aliyun.com/products/57000002/cmapi028399.html?spm=5176.2020520132.101.2.760c7218RLClrX#sku=yuncode2239900000

‘代码如下

Dim hc As New HttpClient("http://verinvoice.sinosecu.com.cn/verapi/verInvoice.Do")
hc.Headers.Add("Authorization","APPCODE" & "输入你的appode********")
hc.FormData.Add("invoiceCode",e.Form.Controls("fa piao代码").Text)
hc.FormData.Add("invoiceNumber",e.Form.Controls("fa piao号码").Text)
hc.FormData.Add("billingDate",e.Form.Controls("开piao日期").Text)
hc.FormData.Add("totalAmount",e.Form.Controls("合计金额").Text)
hc.FormData.Add("checkCode",e.Form.Controls("校验码").Text)
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo IsNot Nothing Then
    'MessageBox.Show("验证通过")
End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106079 积分：539494 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/31 13:35:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0140.htm

If jo("message")("status") = 2 Then
'MessageBox.Show("验证通过")
End If

cd_tdh

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3049 积分：20399 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/7/31 15:59:00 [只看该作者]

此主题相关图片如下：qq截图20200731144823.png

报错

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106079 积分：539494 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/31 16:05:00 [只看该作者]

If jo("message")("status").tostring = "2" Then

cd_tdh

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3049 积分：20399 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/7/31 16:29:00 [只看该作者]

老师，返回400错误是哪儿不对呢

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.11.3.1
错误所在事件：
详细错误信息：
远程服务器返回错误: (400) 错误的请求。

[此贴子已经被作者于2020/7/31 16:29:34编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106079 积分：539494 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/31 16:35:00 [只看该作者]

Dim hc As New HttpClient("http://verinvoice.sinosecu.com.cn/verapi/verInvoice.Do")
hc.Headers.Add("Authorization","APPCODE " & "输入你的appode********")APPCODE后面必须有一个空格

hc.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"

hc.FormData.Add("........

[此贴子已经被作者于2020/7/31 16:35:13编辑过]

cd_tdh

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3049 积分：20399 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/7/31 16:44:00 [只看该作者]

还以一样报错400，点击确定还报另外一个错误

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.11.3.1
错误所在事件：窗口,fa piao验真,Button1,Click
详细错误信息：
Error reading JObject from JsonReader. Path '', line 0, position 0.

此主题相关图片如下：1111.png