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


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

主题:快递接口的问题

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3370 积分:24858 威望:0 精华:0 注册:2012/3/26 21:47:00
快递接口的问题  发帖心情 Post By:2018/8/3 0:39:00 [只看该作者]

已经购买了code,请教下如何动态合成查询条件
比如 韵达快递 单号是001
申通快递 单号是999
如何合成到查询地址中去?
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=yunda&nu=001")
hc.Headers.Add("Authorization","APPCODE " & "7858a126750949e4a36371580f420413")

Dim
jo As JObject = Jobject.Parse(hc.GetData)
If
jo("showapi_res_body")("data") IsNot Nothing Then
    For Each jt As JToken In jo("showapi_res_body")("data")
        Output.Show(jt("time").ToString & " | " & jt("context").ToString)
   
Next
End
If

这种方式报错啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/3 9:58:00 [只看该作者]

1、哪里的快递接口?接口的说明是怎样的?贴出来看看。

 

2、看懂httpclient,根据需求设置请求 http://www.foxtable.com/mobilehelp/scr/0163.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3370 积分:24858 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2018/8/3 12:32:00 [只看该作者]

我的意思就是用阿里云全国物流查询接口这个

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/3 16:37:00 [只看该作者]

我这样测试没问题

 

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=yuantong&nu=800851552555646645")
hc.Headers.Add("Authorization","APPCODE " & "278b315cabac4df9a39478de0a8321ad")
msgbox(hc.GetData)

 

这样测试也没问题

 

Dim url As String = "http://ali-deliver.showapi.com/showapi_expInfo?com=yuantong&nu=800851552555646645"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
rqst.Method = "GET"
rqst.Headers.Add("Authorization","APPCODE " & "278b315cabac4df9a39478de0a8321ad")
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm,encoding.utf8)
Dim str As String = reader.ReadToEnd  
stm.Dispose()
msgbox(str)

 

你单号不能填错

[此贴子已经被作者于2018/8/3 17:08:53编辑过]

 回到顶部