Foxtable(狐表) → 用户栏目 → 专家坐堂 → webservices接口如何做


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

主题：webservices接口如何做
帅哥哟，离线，有人找我吗？
yyr
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：425 威望：0 精华：0 注册：2019/8/22 22:35:00 		webservices接口如何做  发帖心情 Post By：2019/10/19 17:32:00 [只看该作者]

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

你好，请问一下，我现在要用ft与别的系统做数据接口，对方用java webservices，我想要从对方获取任务单信息，然后给对方发送发货信息。请问ft 怎么做呢？接口说明请看附件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:申请任务单信息接口.xlsx
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/19 17:34:00 [只看该作者]


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


加好友 发短信
等级：幼狐 帖子：51 积分：425 威望：0 精华：0 注册：2019/8/22 22:35:00 		  发帖心情 Post By：2019/10/19 18:29:00 [只看该作者]

发送数据到对方的接口，怎么发送呢

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


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2019/10/19 22:48:00 [只看该作者]

参考：
http://www.foxtable.com/mobilehelp/topics/0153.htm
 回到顶部
帅哥哟，离线，有人找我吗？
yyr
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：425 威望：0 精华：0 注册：2019/8/22 22:35:00 		  发帖心情 Post By：2019/10/20 22:58:00 [只看该作者]

能否举一个详细的示例，因为对方给的是Java做的webservices接口，需要给对方发送固定格式的xml格式文件，发送成功后有返回的数据，具体格式请看附件。请问一下该怎么做？谢谢

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


加好友 发短信
等级：幼狐 帖子：51 积分：425 威望：0 精华：0 注册：2019/8/22 22:35:00 		  发帖心情 Post By：2019/10/20 23:00:00 [只看该作者]

这是对方给的接口及格式

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


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

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92876

只能按照这里的方式使用
 回到顶部
帅哥哟，离线，有人找我吗？
yyr
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：425 威望：0 精华：0 注册：2019/8/22 22:35:00 		  发帖心情 Post By：2019/10/24 9:45:00 [只看该作者]

'生成发送xml文档
Dim xo As New Foxtable.XObject
xo("Head") = New JObject
xo("Head")("FuncCode") = "ApplyTaskNo"
xo("Head")("FuncName") = "获取任务单"
xo("Head")("TransDate") = cstr(Date.Today)
xo("Head")("TransTime") = cstr(format(Date.Now,"T"))
xo("Head")("ClientIP") = "192.168.1.20"
xo("Head")("Operator") = "1"
xo("Body") = New JObject
xo("Body")("Cid") = "1"
Dim str As String = xo.ToXML
str = str.SubString(5,str.Length - 11)
str = "<?xml version=""1.0"" encoding=""GBK"" ?> <PACKET Type=""REQUEST"" version=""1.0"">" & str & "</PACKET>"
MessageBox.Show(str)
'发送请求
Dim body As String = str
Dim req = System.Net.WebRequest.Create("http://114.242.85.231:9000/services/XmlRwd")
req.Method = "POST"
'req.c
Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str1 As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close

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


加好友 发短信
等级：幼狐 帖子：51 积分：425 威望：0 精华：0 注册：2019/8/22 22:35:00 		  发帖心情 Post By：2019/10/24 9:46:00 [只看该作者]

请问大咖，为什么接不通，程序哪里写错了？

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/24 10:06:00 [只看该作者]


 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 5 次数据查询