Foxtable(狐表) → 用户栏目 → 专家坐堂 → 顺丰接口的问题


  共有8838人关注过本帖树形打印复制链接

主题：顺丰接口的问题
帅哥哟，离线，有人找我吗？
rjh4078
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/12 19:35:00 [只看该作者]

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


辛苦蓝版
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/13 21:15:00 [只看该作者]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim bw As String = FileSys.ReadAllText(dlg.FileName,Encoding.UTF8)
    
    Dim ts As String = clng((Date.Now - new Date(1970, 1, 1)).TotalSeconds)
    Dim hc As New HttpClient("https://sfapi-sbox.sf-express.com/std/service")
    hc.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
    Dim xml As String = CompressJson(JObject.Parse(bw))
    Dim checkword = "自己的checkword "
    
    Dim builder As new StringBuilder()
    For Each c As Char In xml & ts & checkword
        If  System.Web.HttpUtility.UrlEncode(c.ToString()).Length > 1 Then
            builder.Append(System.Web.HttpUtility.UrlEncode(c.ToString()).ToUpper())
        Else
            builder.Append(c)
        End If
    Next
    
    Dim encode As String = Convert.ToBase64String(New System.Security.Cryptography.MD5CryptoServiceProvider().ComputeHash(Encoding.UTF8.GetBytes(builder.ToString())))
    hc.FormData.Add("partnerID","自己的partnerID")
    hc.FormData.Add("requestID",Guid.NewGuid().ToString())
    hc.FormData.Add("serviceCode","EXP_RECE_CREATE_ORDER" )
    hc.FormData.Add("timestamp",ts)
    hc.FormData.Add("msgDigest",encode )
    hc.FormData.Add("msgData",xml)
    Dim ret As String = hc.GetData()
    msgbox(ret)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/13 21:25:00 [只看该作者]

感谢蓝版

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/13 21:45:00 [只看该作者]

蓝版 再请教一下  返回的字符是

{"apiErrorMsg":"","apiResponseID":"00017F8372C52F3FE1B23EB1AA349A3F","apiResultCode":"A1000","apiResultData":"{\"success\":true,\"errorCode\":\"S0000\",\"errorMsg\":null,\"msgData\":{\"orderId\":\"OrderNum20200612224\",\"originCode\":\"755\",\"destCode\":\"020\",\"filterResult\":2,\"remark\":\"\",\"url\":null,\"paymentLink\":null,\"isUpstairs\":null,\"isSpecialWarehouseService\":null,\"mappingMark\":null,\"agentMailno\":null,\"returnExtraInfoList\":null,\"waybillNoInfoList\":[{\"waybillType\":1,\"waybillNo\":\"SF7444438396948\",\"boxNo\":null,\"length\":null,\"width\":null,\"height\":null,\"weight\":null,\"volume\":null}],\"routeLabelInfo\":[{\"code\":\"1000\",\"routeLabelData\":{\"waybillNo\":\"SF7444438396948\",\"sourceTransferCode\":\"755W\",\"sourceCityCode\":\"755\",\"sourceDeptCode\":\"755\",\"sourceTeamCode\":\"\",\"destCityCode\":\"020\",\"destDeptCode\":\"020NK\",\"destDeptCodeMapping\":\"020W\",\"destTeamCode\":\"050\",\"destTeamCodeMapping\":\"\",\"destTransferCode\":\"020W\",\"destRouteLabel\":\"020W-NK-050\",\"proName\":\"\",\"cargoTypeCode\":\"C201\",\"limitTypeCode\":\"T4\",\"expressTypeCode\":\"B1\",\"codingMapping\":\"H8-A-8\",\"codingMappingOut\":\"\",\"xbFlag\":\"0\",\"printFlag\":\"000000000\",\"twoDimensionCode\":\"MMM={'k1':'020W','k2':'020NK','k3':'050','k4':'T801','k5':'SF7444438396948','k6':'','k7':'134bf3d8'}\",\"proCode\":\"T  特快\",\"printIcon\":\"00000000\",\"abFlag\":\"\",\"destPortCode\":\"\",\"destCountry\":\"\",\"destPostCode\":\"\",\"goodsValueTotal\":\"\",\"currencySymbol\":\"\",\"cusBatch\":\"\",\"goodsNumber\":\"\",\"errMsg\":\"\",\"checkCode\":\"134bf3d8\",\"proIcon\":\"\",\"fileIcon\":\"\",\"fbaIcon\":\"\",\"icsmIcon\":\"\",\"destGisDeptCode\":\"020NK\",\"newIcon\":null,\"sendAreaCode\":null,\"destinationStationCode\":null,\"sxLabelDestCode\":null,\"sxDestTransferCode\":null,\"sxCompany\":null,\"newAbFlag\":null,\"destAddrKeyWord\":null,\"rongType\":null,\"waybillIconList\":null},\"message\":\"SF7444438396948:\"}],\"contactInfoList\":null,\"sendStartTm\":null,\"customerRights\":null,\"expressTypeId\":null}}"}


我通过编码转成了
{"apiErrorMsg":"","apiResponseID":"00017F8372C52F3FE1B23EB1AA349A3F","apiResultCode":"A1000","apiResultData":"{"success":true,"errorCode":"S0000","errorMsg":null,"msgData":{"orderId":"OrderNum20200612224","originCode":"755","destCode":"020","filterResult":2,"remark":"","url":null,"paymentLink":null,"isUpstairs":null,"isSpecialWarehouseService":null,"mappingMark":null,"agentMailno":null,"returnExtraInfoList":null,"waybillNoInfoList":[{"waybillType":1,"waybillNo":"SF7444438396948","boxNo":null,"length":null,"width":null,"height":null,"weight":null,"volume":null}],"routeLabelInfo":[{"code":"1000","routeLabelData":{"waybillNo":"SF7444438396948","sourceTransferCode":"755W","sourceCityCode":"755","sourceDeptCode":"755","sourceTeamCode":"","destCityCode":"020","destDeptCode":"020NK","destDeptCodeMapping":"020W","destTeamCode":"050","destTeamCodeMapping":"","destTransferCode":"020W","destRouteLabel":"020W-NK-050","proName":"","cargoTypeCode":"C201","limitTypeCode":"T4","expressTypeCode":"B1","codingMapping":"H8-A-8","codingMappingOut":"","xbFlag":"0","printFlag":"000000000","twoDimensionCode":"MMM={'k1':'020W','k2':'020NK','k3':'050','k4':'T801','k5':'SF7444438396948','k6':'','k7':'134bf3d8'}","proCode":"T  特快","printIcon":"00000000","abFlag":"","destPortCode":"","destCountry":"","destPostCode":"","goodsValueTotal":"","currencySymbol":"","cusBatch":"","goodsNumber":"","errMsg":"","checkCode":"134bf3d8","proIcon":"","fileIcon":"","fbaIcon":"","icsmIcon":"","destGisDeptCode":"020NK","newIcon":null,"sendAreaCode":null,"destinationStationCode":null,"sxLabelDestCode":null,"sxDestTransferCode":null,"sxCompany":null,"newAbFlag":null,"destAddrKeyWord":null,"rongType":null,"waybillIconList":null},"message":"SF7444438396948:"}],"contactInfoList":null,"sendStartTm":null,"customerRights":null,"expressTypeId":null}}"}

但是这个又不是一个标准的json格式 是哪里转换错了吗?
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/13 21:53:00 [只看该作者]

返回的数据就可以直接使用，不需要任何转换

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/13 21:57:00 [只看该作者]

原来这样 多谢蓝版

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/13 22:16:00 [只看该作者]

蓝版 再次请教 
使用下列代码获取apiResultData中子节点要怎么获取呢,比如获取订单号,originCode,sendAreaCode
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim bw As String = FileSys.ReadAllText(dlg.FileName,Encoding.UTF8)
    Dim jo As JObject = JObject.Parse(bw)
    output.show(jo("apiResultData")("orderId").Tostring)
    
End If
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:jsontest.txt
 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107033 积分：544396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/13 23:07:00 [只看该作者]

dim jo2 as  JObject = JObject.Parse(jo("apiResultData"))
msgbox（jo2（“msgData”）("orderId").Tostring）
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/14 7:11:00 [只看该作者]

感谢 感谢 

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2022/3/14 9:52:00 [只看该作者]

请教下蓝版 ,如何获取json中节点的名称呢  比如"{'name':'李云龙','age':'36','card':{'bank':'工行','account':'123456'}}" 
获取 节点 name age card bank account这些字段名称?
 回到顶部
总数 27 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询