- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求助帮助解决第三方接口连接的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184632)
-- 发布时间：2022/12/18 9:39:00
-- [求助]求助帮助解决第三方接口连接的问题？
按某医保平台接口规范尝试连接，调不通一直有错误提示。
下面这个文件有三个部分组成。第一部分平台JAVA语言连接示例；第二部分是用狐表自己写的转换的程序；第三部分是错提示。
帮助里如果带参数的，是直接将json数据hc.Content = jo.ToString()转字串赋值给Content.
但是本规范好像要求还要加工一下,这里就弄不明白了。
麻烦老师给与帮助。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:9.1 a.1 java 实现调用上传下载交易示例代码.txt |
-- 发布时间：2022/12/18 19:59:00
--
请提供原接口文档看看
-- 发布时间：2022/12/18 20:09:00
--
就提供了这两个文件。其中在规范接口中，提供了JAVA例子。
原始文档上传不上去。找了一个其他省和原始文档一样的文件，放到文件链接里。在那里可以看到。辛苦老师了！
[此贴子已经被作者于2022/12/18 20:21:29编辑过]
-- 发布时间：2022/12/18 20:37:00
--
JAVA我看不懂的，找他们提供.net的例子。文档我先看看
-- 发布时间：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)
-- 发布时间：2022/12/19 7:17:00
--
按老师要求做了修改，但是仍然还是这个错误。
这个程序试图想把返回ip和mac做成变量，但是在赋值时没有成功！
这个程序在ip所指的服务器上运行，也是这个错误。
委托方提供不出.net示例。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
[此贴子已经被作者于2022/12/19 7:30:06编辑过]
-- 发布时间：2022/12/19 8:39:00
--
那我也没有办法
-- 发布时间：2022/12/19 9:37:00
--
谢谢老师！
上面同例！往json赋值为什么会出错？哪不对？
此主题相关图片如下：qq图片20221219093453.png
-- 发布时间：2022/12/19 9:39:00
--
= t2.value.tostring
或者
= t2.text
取值没有什么特别必要建议都使用text属性
-- 发布时间：2022/12/19 10:02:00
--
此主题相关图片如下：qq图片20221219100211.png