专家坐堂-[求助]用中通开发平台的快递API怎么写代码？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用中通开发平台的快递API怎么写代码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128955)

--  作者：zto001
--  发布时间：2018/12/18 23:32:00
--  [求助]用中通开发平台的快递API怎么写代码？
[求助]用中通开发平台的快递API怎么写代码？
中通开发平台api网址
http://zop.zto.com/apiDoc/
我想用里面的
快件轨迹----获取快件最新一条这个api
请问下该如何写代码，我需要最新的物流记录，怎么获取？
求助大神们

--  作者：有点甜
--  发布时间：2018/12/19 10:23:00
--

1、引用 dll

http://www.foxtable.com/webhelp/scr/1936.htm

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:zopsdk.zip

2、执行代码，如

Dim properties As new zopsdk.ZopProperties("kfpttestCode","kfpttestkey==")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceLatest"
request.addParam("company_id", "your_companyid")
request.addParam("msg_type", "LATEST")
request.addParam("data", "[""680000000000"",""680000000001""]")
msgbox(client.execute(request))

--  作者：zto001
--  发布时间：2018/12/19 15:49:00
--
厉害厉害，我研究研究

--  作者：zto001
--  发布时间：2018/12/25 13:33:00
--
您qq是多少？不太懂，没学会

--  作者：zto001
--  发布时间：2018/12/25 13:33:00
--
我的qq2722838195

--  作者：有点甜
--  发布时间：2018/12/25 14:26:00
--
贴出你的账号密码等信息，说明要调用什么

--  作者：zto001
--  发布时间：2018/12/27 13:28:00
--
非常抱歉，你虽然解释了，但我还是没懂。
我的账户：

需要得到的有：

dim desc as String = 路由详细描述

dim dispOrRecMan as String = 派件或收件员

dim dispOrRecManPhone as String = 派件或收件员电话

dim isCenter as String = 扫描网点是否中心("T" or "F")

dim preOrNextCity as String = 上一站或下一站城市

dim preOrNextProv as String = 上一站或下一站省份

dim preOrNextSite as String = 上一站或下一站网点

dim preOrNextSitePhone as String = 上一站或下一站网点联系方式

dim scanCity as String = 扫描网点所在城市

dim scanDate as String = 扫描时间

dim scanProv as String = 扫描网点所在省份

dim scanSite as String = 扫描网点

dim scanSitePhone as String = 扫描网点联系方式

dim scanType as String = 扫描类型

执行代码，如

Dim properties As new zopsdk.ZopProperties("kfpttestCode","kfpttestkey==")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceLatest"
request.addParam("company_id", "your_companyid")
request.addParam("msg_type", "LATEST")
request.addParam("data", "[""680000000000"",""680000000001""]")
msgbox(client.execute(request))

[此贴子已经被作者于2018/12/27 17:23:32编辑过]

--  作者：zto001
--  发布时间：2018/12/27 14:21:00
--

[此贴子已经被作者于2018/12/27 17:23:07编辑过]

--  作者：有点甜
--  发布时间：2018/12/27 14:57:00
--

参考代码

Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceLatest"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "LATEST")
request.addParam("data", "[""680000000000"",""680000000001""]") \'查询两个单号
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
output.show(jo.Tostring)
msgbox(jo("data")(0)("traces")("desc").tostring)
msgbox(jo("data")(1)("traces")("desc").tostring)

--  作者：zto001
--  发布时间：2018/12/27 17:24:00
--
嗯嗯嗯，可以了

\'获取网点省市区
Dim properties As new zopsdk.ZopProperties("kfpttestCode","488670600479")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/DoNetGatewayService"
request.addParam("company_id", "aba039910ee749e7938e0fa5473eba7a")
request.addParam("msg_type", "LATEST")
request.addParam("baseOrgDto", "{""name"":""长沙岳麓区"",""pageSize"":100,""pageIndex"":1}")
\'MessageBox.Show (client.execute(request))

\'
\'{
\'"data": {
\'"baseOrganize": [
\'{
\'"address": "新港路1号",
\'"code": "000002",
\'"districtid": 350902,
\'"province": "福建",
\'"city": "宁德市",
\'"district": "蕉城区",
\'"fullName": "宁德工业区",
\'"id": 1045440,
\'"cityId": 350900,
\'"provinceId": 350000
\'}
\'],
\'"pageIndex": 1,
\'"recordCount": 31681,
\'"pageSize": 1
\'},
\'"success": true,
\'"message": "操作成功"
\'}

Dim jo As JObject = JObject.Parse(client.execute(request))
Output.Show(jo("data").ToString)

For i As Integer = 0 To jo.Count - 1
\' Output.Show(jo("data")("baseOrganize")(i)("province").ToString)
Output.Show(jo("data")("baseOrganize")(i)("province").ToString & "|" & jo("data")("baseOrganize")(i)("city").ToString & "|" & jo("data")("baseOrganize")(i)("district").ToString & "|" & jo("data")("baseOrganize")(i)("fullName").ToString)

Next

[此贴子已经被作者于2020/9/24 20:29:41编辑过]

快件轨迹----获取快件最新一条 这个api

快件轨迹----获取快件最新一条这个api