Foxtable(狐表)用户栏目专家坐堂 → [求助]关于Json数据发送返回的帮助。


  共有2637人关注过本帖树形打印复制链接

主题:[求助]关于Json数据发送返回的帮助。

帅哥哟,离线,有人找我吗?
54292550
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:287 积分:4213 威望:0 精华:0 注册:2011/8/19 10:07:00
[求助]关于Json数据发送返回的帮助。  发帖心情 Post By:2023/4/16 13:23:00 [只看该作者]

接口说明:

API地址:http://172.16.2.128:9090//API/PanDing/+入口函数

1 、接口函数:Insert_lxyg

函数定义

[HttpPost]

        [Route("Insert_lxyg")]

        public string Insert_lxyg([FromBody]xxx  model)

        {

            JieKouController myclass = new JieKouController();

            return myclass.SJZC_InsertZJ(model);

     }

调用参数:

字段名

变量名

类型

说明

可空

实验室编码

ShiYanSBM

string

 

N

设备编号

SheBeiBM

string

N

样品编码

YangPinBM

string

N

样品种类

YangPinZL

string

N

质检数据

ZhiJianSJ

string

 

N

 

返回参数:

字段名

变量名

类型

说明

可空

返回结果

Result

string

成功

失败

N

返回结果说明

Msg

string

返回问题描述

N

 

返回格式:JSON

==================================================================================



以上是客户给的接口说明,怎样正确的和客户对接上?

写成这样不会了。。。数据没有传输过去。


Dim ur As String = "http://172.16.2.128:9090//API/PanDing/Insert_lxyg"

Dim jo As New JObject

jo("ShiYanSBM") = CStr("LGSYS01")

jo("SheBeiBM") = CStr("XG-LT-01")

jo("YangPinBM") = CStr("78946123")

jo("YangPinZL") = CStr("Y")

jo("ZhiJianSJ") = CStr("2897.38H")

hc.Content = jo.ToString

jo = JObject.Parse(hc.GetData)

If jo("Result") = "成功" Then

    MessageBox.show("消息发送成功!")

Else

    MessageBox.show(jo("Msg"))

End If


谁帮忙看一下有什么问题?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110494 积分:562348 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/16 20:22:00 [只看该作者]

Dim ur As String = "http://172.16.2.128:9090/API/PanDing/Insert_lxyg"
Dim hc As New HttpClient(ur )
hc.FormData.Add("ShiYanSBM","LGSYS01")
hc.FormData.Add("SheBeiBM","XG-LT-01")
……
Dim ret As String = hc.getData()
MessageBox.show(ret)

 回到顶部