以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]使用JSON提交数据出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140854)

--  作者:pear681411
--  发布时间:2019/9/16 11:54:00
--  [求助]使用JSON提交数据出错
我使用JArray作为数据请求,返回400错误,请问是什么原因
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
啊?


--  作者:pear681411
--  发布时间:2019/9/16 11:56:00
--  

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

--  作者:有点蓝
--  发布时间:2019/9/16 13:33:00
--  
……
dim ret as string = hc.getdata
output.show(ret) \'显示什么内容

--  作者:pear681411
--  发布时间:2019/9/16 13:58:00
--  
无法输出返回值,弹窗提示: 远程服务器返回错误: (400) 错误的请求。

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


--  作者:有点蓝
--  发布时间:2019/9/16 14:06:00
--  
说明接口url不正确,或者提交的数据不正确
--  作者:pear681411
--  发布时间:2019/9/16 14:25:00
--  
但是使用postman 提交可以提交成功
--  作者:pear681411
--  发布时间:2019/9/16 14:25:00
--  
同样的接口,同样的数据,采用post 提交
--  作者:有点蓝
--  发布时间:2019/9/16 14:26:00
--  
完整代码,和接口说明发上来
--  作者:pear681411
--  发布时间:2019/9/16 14:36:00
--  回复:(有点蓝)完整代码,和接口说明发上来
\'上传考勤数据到指定接口\'
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
Dim noncestr As String = Rand.NextString(16) \'随机字符
Dim secret As String = "tmfvtbp8My6Fbezqh9Pe29uy"
Dim psecret As String = "TuEMaXb7FuRVoTFxJFTS0sZe"
Dim pretreatmentStr = noncestr & "_" & timestamp & "_" & secret & "_" & psecret
Dim signStr As String = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(pretreatmentStr, "SHA1").ToLower()
Dim hc As New HttpClient("http://186.67.170.78:81/api/open/rn/v3/attendance")
hc.Headers.Add("keyId","d82ef3d0-514e-4864-bcf1_83f77028-216a-477f-a28f")
hc.Headers.Add("ts",timestamp)
hc.Headers.Add("rCode",noncestr)
hc.Headers.Add("signature",signStr)

Dim jo As new JObject
jo("workerId") = "833AD077-6943-4F4E-90F3-AD642C1C41C2"
jo("entry") = "Entry"
jo("mode") = "IDCard"
jo("photo") = ""
jo("attendanceTime") = "2019-09-16 08:03:00"
jo("sn") = "ZK-T1236548N"
jo("lat") = 0
jo("lng") = 0
Dim ja As New JArray
ja.Add(jo)
hc.Content = ja.ToString

Dim ret As String = hc.GetData
output.show(ret) 


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

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/9/16 14:38:01编辑过]

--  作者:有点蓝
--  发布时间:2019/9/16 14:47:00
--  
有没有.net的调用实例?完整文档发上来,有没有在线文档?