以文本方式查看主题 - 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接口如何做
你好,请问一下,我现在要用ft与别的系统做数据接口,对方用java webservices,我想要从对方获取任务单信息,然后给对方发送发货信息。请问ft 怎么做呢?接口说明请看附件
|
||||||||
-- 作者:有点蓝 -- 发布时间: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 |
||||||||
-- 作者:yyr -- 发布时间:2019/10/24 9:46:00 -- 请问大咖,为什么接不通,程序哪里写错了? |
||||||||
-- 作者:有点蓝 -- 发布时间:2019/10/24 10:06:00 -- 没有环境测试我也不知道。网上搜搜 |