Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助帮助解决第三方接口连接的问题？


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

主题：[求助]求助帮助解决第三方接口连接的问题？
帅哥哟，离线，有人找我吗？
新福星
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00 		[求助]求助帮助解决第三方接口连接的问题？  发帖心情 Post By：2022/12/18 9:39:00 [只看该作者]

按某医保平台接口规范尝试连接，调不通一直有错误提示。
下面这个文件有三个部分组成。第一部分平台JAVA语言连接示例；第二部分是用狐表自己写的转换的程序；第三部分是错提示。
帮助里如果带参数的，是直接将json数据hc.Content = jo.ToString()转字串赋值给Content.
但是本规范好像要求还要加工一下,这里就弄不明白了。
麻烦老师给与帮助。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:9.1 a.1 java 实现调用上传下载交易示例代码.txt
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/18 19:59:00 [只看该作者]

请提供原接口文档看看

 回到顶部
帅哥哟，离线，有人找我吗？
新福星
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00 		  发帖心情 Post By：2022/12/18 20:09:00 [只看该作者]

就提供了这两个文件。其中在规范接口中，提供了JAVA例子。
原始文档上传不上去。找了一个其他省和原始文档一样的文件，放到文件链接里。在那里可以看到。辛苦老师了！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文档链接.zip


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:接口demo.zip


[此贴子已经被作者于2022/12/18 20:21:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/18 20:37:00 [只看该作者]

JAVA我看不懂的，找他们提供.net的例子。文档我先看看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/18 20:50:00 [只看该作者]

确定接口地址是对的，我在文档找不到这个接口。试试

Dim hc As New HttpClient("http://10.30.20.27:8080/mbs-fsi/web/api/fsi/getMedUrl")
hc.ContentType = "application/json"
Dim json As String = "{'infno':'9001', 'msgid':'000000000001202106161726210001', 'insuplc_admdvs':'140322', 'mdtrtarea_admvs':'140322', 'recer_sys_code':'01', 'cainfo':'000000000000', 'dev_no':null, 'dev_safe_info':null, 'signtype':'SM3', 'infver':'1.0', 'opter_type':'1', 'opter':'001', 'opter_name':'操作员','inf_time':'2021-06-16 17:26:25','fixmedins_code':'001', 'fixmedins_name':'001', 'sign_no':null, 'input':{'signIn':{'mac':'52-54-00-45-ED-D4', 'ip':'81.69.46.168', 'opter_no':'001'}}}"
Dim jo As JObject = JObject.Parse(json) '将字串转换成json
jo("msgid") = "0000000000012" & Format(Date.Now, "yyyyMMddhhmmss0001") '修改了json几个值
jo("inf_time") = Date.now
Dim zhzc As String = CompressJson(jo) '将json 转字串
hc.Content = zhzc
Dim ret As String = hc.GetData
msgbox(ret)
 回到顶部
帅哥哟，离线，有人找我吗？
新福星
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00 		  发帖心情 Post By：2022/12/19 7:17:00 [只看该作者]

按老师要求做了修改，但是仍然还是这个错误。
这个程序试图想把返回ip和mac做成变量，但是在赋值时没有成功！
这个程序在ip所指的服务器上运行，也是这个错误。
委托方提供不出.net示例。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2022/12/19 7:30:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/19 8:39:00 [只看该作者]

那我也没有办法

 回到顶部
帅哥哟，离线，有人找我吗？
新福星
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00 		  发帖心情 Post By：2022/12/19 9:37:00 [只看该作者]

谢谢老师！
上面同例！往json赋值为什么会出错？哪不对？

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20221219093453.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/19 9:39:00 [只看该作者]

 = t2.value.tostring
或者
 = t2.text

取值没有什么特别必要建议都使用text属性
 回到顶部
帅哥哟，离线，有人找我吗？
chen37280600
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2022/12/19 10:02:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20221219100211.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 7 次数据查询