以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于Json数据发送返回的帮助。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186247)
--  作者：54292550
--  发布时间：2023/4/16 13:23:00
--  [求助]关于Json数据发送返回的帮助。

接口说明：

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


谁帮忙看一下有什么问题？
--  作者：有点蓝
--  发布时间：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)