以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用丰桥开放平台的快递API接入方案怎么搞  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135145)
--  作者：km007
--  发布时间：2019/5/18 13:47:00
--  [求助]用丰桥开放平台的快递API接入方案怎么搞

[求助]用丰桥开放平台的快递API接入方案，请问怎么写代码进行下订单呢？

 

丰桥开放平台网址
 

API接入方案 里面的 下订单接口

 

 
--  作者：有点蓝
--  发布时间：2019/5/18 14:03:00
--  
没法注册。把下订单接口复制发上来
--  作者：km007
--  发布时间：2019/5/18 16:04:00
--  

麻烦 有点蓝 版主了

 

 

丰桥开放平台网址

 

 

以下内容是专门发给有点蓝浏览

[此贴子已经被作者于2019/5/18 16:04:23编辑过]
--  作者：有点蓝
--  发布时间：2019/5/18 17:07:00
--  
试试

Dim hc As New HttpClient("http://bsp-oisp.sf-express.com/bsp-oisp/sfexpressService")
Dim xml As String = "<Request service = ""OrderService"" lang = ""zh-CN"" > <Head>CS_IcziI</Head><Body>  <Order orderid=""SFKD-20160219000019"" j_company=""深圳宝龙达信息技术股份有限公司"" ...... is_unified_waybill_no=""1""></Order></Body></Request>" 
‘xml 的内容自己根据开发文档拼完整
Dim checkWord As String = "xxxxx校验码"

Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = md5.ComputeHash(system.Text.Encoding.UTF8.GetBytes(xml & checkWord))
Dim verifyCode As String = Convert.ToBase64String(bs)
Output.Show(verifyCode )
hc.FormData.Add("xml",xml)
hc.FormData.Add("verifyCode",verifyCode )
Dim ret As String = hc.getData()
Output.Show(ret)
[此贴子已经被作者于2019/5/18 17:07:11编辑过]
--  作者：km007
--  发布时间：2019/5/19 17:35:00
--  
蓝版，请问这个我应该参考哪个文档呢？谢谢
--  作者：有点甜
--  发布时间：2019/5/19 17:47:00
--  

你需要这个？

 

http://www.foxtable.com/mobilehelp/scr/0163.htm

 
--  作者：km007
--  发布时间：2019/5/19 18:09:00
--  
甜版，我是想在狐表做的系统中，将订单数据直接发送至顺丰的快递下单Api中，达到在系统中就可以下快递单，不用再导出再导入这么麻烦。顺丰有个开放平台，但不知道怎么看
--  作者：有点甜
--  发布时间：2019/5/19 22:44:00
--  

1、拷贝这个xml存放到你表C第一列去

 

<Request service = "OrderService" lang = "zh-CN" >
<Head>CS_IcziI</Head>
<Body>
  <Order
 orderid="SFKD-20160219000019"
 j_company="深圳宝龙达信息技术股份有限公司"
 j_c
 j_tel="15323233432"
 j_mobile="15322234342"
 j_province="广东省"
 j_city="深圳市"
 j_county="南山区"
 j_address="广东省深圳市南山区西丽镇塘朗同富裕工业城7栋"
 d_c d_tel="15023434543"
 d_mobile="15423456545"
 d_province="广东省"
 d_city="深圳市"
 d_county="南山区"
 d_address="科技园软件产业基地"
 express_type="1"
 pay_method="1"
 custid="7551234567"
 parcel_quantity="1"
 is_docall="0"
 sendstarttime=""
 order_source="宝龙达"
 remark="电子产品 笔记本+显卡"
        is_unified_waybill_no="1">
</Order>
</Body>
</Request>

 

2、执行下面代码测试

 

Dim hc As New HttpClient("http://bsp-oisp.sf-express.com/bsp-oisp/sfexpressService")
Dim xml As String = Tables("表C").Rows(1)("第一列")
Dim checkWord As String = "tgz8Lx54wfQkii9E3dWlIJ1v91zYbBUO"

Dim str As String = xml & checkWord
Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider
Dim bs() As Byte = md5.ComputeHash(system.Text.Encoding.UTF8.GetBytes(str))
Dim verifyCode As String = Convert.ToBase64String(bs)
hc.FormData.Add("xml",xml)
hc.FormData.Add("verifyCode",verifyCode)

Dim ret As String = hc.getData()
msgbox(ret)
--  作者：km007
--  发布时间：2019/5/26 22:25:00
--  

谢谢甜版和蓝版，现在还有一个问题：

 

我根据丰桥电子运单自助打印SDK说明  http://qiao.sf-express.com/pages/developDoc/index.html?level2=934395 

 

由于论坛附件上传容量大小限制，上传不了SDK文档，只能填写链接了，丰桥电子运单SDK下载链接：https://qiao.sf-express.com/doc/download/SF-CSIM-PRINTER-SDK-V1.1.1-190517.7z

 

已经配置完以下步骤，并成功启动SDK本地服务了

------------------------------------------------------------------

电子运单SDK的使用说明

使用丰桥平台电子运单打印SDK
电子运单SDK打印SDK为本地的打印服务，支持直接打印。该SDK为可执行的jar包，运行时依赖java环境，需要本地预先安装jdk（1.7或以上版本）。 详细配置使用见如下介绍：
      第一步、 安装jdk，版本为1.6或以上
      详细的安装说明可自行百度，有非常详尽的安装和配置说明。
      第二步、 启动SDK本地服务

------------------------------------------------------------------

 

请问下，我如何将以上下单成功后返回的信息 msgbox(ret) 直接发送至该 运单打印SDK接口 执行自动打印呢？

 


 

在SDK 文档中有这么一个 Newtonsoft.Json.dll 不知道怎么使用呢

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:net-demo.rar

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

 


 

以下内容是专门发给有点甜;有点蓝浏览

[此贴子已经被作者于2019/5/26 23:09:54编辑过]
--  作者：有点甜
--  发布时间：2019/5/27 10:07:00
--  

 

文件【 Newtonsoft.Json.dll】不需要引用，foxtable自身就自带了。

 

c#代码转换成vb.net，可以参考 http://converter.telerik.com/