webservices接口如何做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:发货保存接口.xlsx

你好，请问一下，我现在要用ft与别的系统做数据接口，对方用java webservices，我想要从对方获取任务单信息，然后给对方发送发货信息。请问ft 怎么做呢？接口说明请看附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:申请任务单信息接口.xlsx

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

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

这是对方给的接口及格式

'生成发送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

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

老师们，有没有get方法的示例代码，谢谢

老师们，有没有get方法发送请求的代码示例，谢谢

请问提示附件图片是什么意思
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20191210002646.png

主题：webservices接口如何做