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

以文本方式查看主题

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

--  作者：wanglin3033
--  发布时间：2022/3/16 15:04:00
--  [求助]post提交JSON数据
代码生成JSON 格式数据，向服务器提交时，一直提示401错误，后来发现有一个说明：“POST请求请在HTTP Header中设置 Content-Type:application/json，否则接口调用失败” 这个代码不知道如何下手了我的代码如下：
Dim url As String = "https://open.moxueyuan.com/api/v1/contacts/user/create?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("token")))
Dim upuser As New JObject
upuser("userid") = "10009"
upuser("name") = "王亚"

hc.Content = upuser.Tostring()
upuser = JObject.parse(hc.getdata())
If upuser("errcode") = "0" Then
MessageBox.show("创建成功")
Else
MessageBox.show("创建失败")
End If

--  作者：有点蓝
--  发布时间：2022/3/16 15:20:00
--

Dim hc As New HttpClient(CExp(url,Functions.Execute("token")))
hc.ContentType = "application/json"

--  作者：nsdata
--  发布时间：2022/11/11 9:40:00
--
我觉得要检测服务端代码，请求头那里确定设置了同样的“application/json”，因为你post数据是json，服务端要”“application/json”“ 这是请求数据类型有很多种的，第二状态码”401“也显然说明是服务端的问题