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

首先HttpClient中必须是完整的地址，如：Dim hc As new HttpClient("http://www.abc.com/ifs/goods_addGoodsNew_resultAction.action")

其次，json使用这种方法生成：http://www.foxtable.com/mobilehelp/scr/0253.htm

Dim jo As New JObject

jo("userName") = "castle"

jo("userPass") = "123456"

jo("content") = new New JObject

jo("content")("sourceType") = "订单"

dim orderJson as string = jo.tostring()

msgbox(orderJson )

Dim hc As new HttpClient("http://qingyun-test.feiyang56.cn/fyhdtest/ifs/goodsType_queryList_resultAction.action")

Dim jo As New JObject

jo("userName") = "张博" (此处实际接口用户名)

jo("userPass") = "E10ADC3949BA59ABBE56E057F20F883E" (此处实际接口密码)

jo("content") = New JObject "请问老师这里是不是没注意多写了一个NEW?" -是的

jo("content")("goodsTypeNo") = "301" "请问老师:对方接口示例的301有什么用?" -- 这个去看开发文档或者问对方，问我们没有用

jo("content")("goodsTypeName") = "" 请问这里是和上行并在一起还是单独一行怎么定义? -- 就这样用

Dim orderJson As String = jo.tostring() "定义变量等于JO定义"

msgbox(orderJson ) --用于调试查看json的结果是否符合要求,没有问题的正式使用这句代码可以去掉

hc.Content = orderJson

Dim ret = hc.GetData

msgbox(ret) '这里显示什么内容

jo("content")("goodsTypeNo") = "301"

jo("content")("goodsTypeName") = ""

这2个参数应该要有值的，具体需要什么值请仔细研究接口开发文档

接口文档地址发上来看看

这样试试

Dim hc As new HttpClient("http://qingyun-test.feiyang56.cn/fyhdtest/ifs/goodsType_queryList_resultAction.action")

Dim jo As New JObject

jo("userName") = "张博" 这里改为自己的用户名

jo("userPass") = "E10ADC3949BA59ABBE56E057F20F883E" 这里改为自己的用户密码

Dim orderJson As String = jo.tostring() "定义变量等于JO定义"

msgbox(orderJson ) --用于调试查看json的结果是否符合要求,没有问题的正式使用这句代码可以去掉

hc.Content = orderJson

Dim ret = hc.GetData

msgbox(ret) '这里显示什么内容

试试

Dim hc As new HttpClient("http://qingyun-test.feiyang56.cn/fyhdtest/ifs/goodsType_queryList_resultAction.action")

Dim jo As New JObject

jo("userName") = "张博" (此处实际接口用户名)

jo("userPass") = "E10ADC3949BA59ABBE56E057F20F883E" (此处实际接口密码)

jo("content") = New JObject "请问老师这里是不是没注意多写了一个NEW?" -是的

jo("content")("goodsTypeNo") = "301" "请问老师:对方接口示例的301有什么用?" -- 这个去看开发文档或者问对方，问我们没有用

jo("content")("goodsTypeName") = "" 请问这里是和上行并在一起还是单独一行怎么定义? -- 就这样用

Dim orderJson As String = jo.tostring() "定义变量等于JO定义"

msgbox(orderJson ) --用于调试查看json的结果是否符合要求,没有问题的正式使用这句代码可以去掉

hc.FormData.Add("param",orderJson )

Dim ret = hc.GetData

msgbox(ret) '这里显示什么内容

或者试试

Dim hc As new HttpClient("http://qingyun-test.feiyang56.cn/fyhdtest/ifs/goodsType_queryList_resultAction.action")

Dim jo As New JObject

jo("userName") = "张博" (此处实际接口用户名)

jo("userPass") = "E10ADC3949BA59ABBE56E057F20F883E" (此处实际接口密码)

jo("content") = New JObject "请问老师这里是不是没注意多写了一个NEW?" -是的

jo("content")("goodsTypeNo") = "301" "请问老师:对方接口示例的301有什么用?" -- 这个去看开发文档或者问对方，问我们没有用

jo("content")("goodsTypeName") = "" 请问这里是和上行并在一起还是单独一行怎么定义? -- 就这样用

Dim orderJson As String = jo.tostring() "定义变量等于JO定义"

msgbox(orderJson ) --用于调试查看json的结果是否符合要求,没有问题的正式使用这句代码可以去掉

jo = New JObject

jo("param") = orderJson

hc.Content = jo.tostring

Dim ret = hc.GetData

msgbox(ret) '这里显示什么内容

这个是生成json字符串的。具体什么问题？

中括号表示是数组，参考：http://www.foxtable.com/mobilehelp/topics/0167.htm，看示例五

[此贴子已经被作者于2019/7/25 11:16:13编辑过]

主题：API接口调用