以文本方式查看主题

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

--  作者:cd_tdh
--  发布时间:2020/7/31 12:38:00
--  api调用

老师,请教一下这个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("发票代码").Text)     
hc.FormData.Add("invoiceNumber",e.Form.Controls("发票号码").Text)
hc.FormData.Add("billingDate",e.Form.Controls("开票日期").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


--  作者:有点蓝
--  发布时间:2020/7/31 13:35:00
--  

If jo("
message")("status") = 2 Then
    \'MessageBox.Show("验证通过")
End If
--  作者:cd_tdh
--  发布时间:2020/7/31 15:59:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200731144823.png
图片点击可在新窗口打开查看
报错
--  作者:有点蓝
--  发布时间:2020/7/31 16:05:00
--  
If jo("message")("status").tostring = "2" Then
--  作者:cd_tdh
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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
--  发布时间:2020/7/31 16:44:00
--  

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

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


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

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

--  作者:有点蓝
--  发布时间:2020/7/31 16:51:00
--  
开票日期控件是日期控件还是组合框?
--  作者:cd_tdh
--  发布时间:2020/7/31 16:55:00
--  
日期输入框,会不是api还没授权的原因呢?我在已授权api里面还看不到翻篇验证购买的授权信息。
--  作者:有点蓝
--  发布时间:2020/7/31 17:04:00
--  
授权这个您要自行联系阿里云咨询了

hc.FormData.Add("billingDate",format(e.Form.Controls("开票日期").value,"yyyy-MM-dd"))