以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  webservices接口如何做  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142146)

--  作者:yyr
--  发布时间:2019/10/19 17:32:00
--  webservices接口如何做
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:发货保存接口.xlsx

你好,请问一下,我现在要用ft与别的系统做数据接口,对方用java webservices,我想要从对方获取任务单信息,然后给对方发送发货信息。请问ft 怎么做呢?接口说明请看附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:申请任务单信息接口.xlsx


--  作者:有点蓝
--  发布时间:2019/10/19 17:34:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92876
--  作者:yyr
--  发布时间:2019/10/19 18:29:00
--  
发送数据到对方的接口,怎么发送呢
--  作者:有点酸
--  发布时间:2019/10/19 22:48:00
--  
参考:
http://www.foxtable.com/mobilehelp/topics/0153.htm


--  作者:yyr
--  发布时间:2019/10/20 22:58:00
--  
能否举一个详细的示例,因为对方给的是Java做的webservices接口,需要给对方发送固定格式的xml格式文件,发送成功后有返回的数据,具体格式请看附件。请问一下该怎么做?谢谢
--  作者:yyr
--  发布时间:2019/10/20 23:00:00
--  
这是对方给的接口及格式
--  作者:有点蓝
--  发布时间:2019/10/21 9:10:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92876

只能按照这里的方式使用

--  作者:yyr
--  发布时间: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
--  发布时间:2019/10/24 9:46:00
--  
请问大咖,为什么接不通,程序哪里写错了?
--  作者:有点蓝
--  发布时间:2019/10/24 10:06:00
--  
没有环境测试我也不知道。网上搜搜