Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在FOXTABLE中调用阿里云中的快递查询


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

主题：如何在FOXTABLE中调用阿里云中的快递查询
帅哥哟，离线，有人找我吗？
有点色
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/2 14:27:00 [只看该作者]

以下是引用fpx406在2017/3/2 12:49:00的发言：
预计啥时候可以发布呀

 

如果是高级开发版或者永久开发版，可以直接下载最新版使用。

 

HttpClient的功能，其它版本需要过一段时间才会更新。

[此贴子已经被作者于2017/3/2 14:27:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2017/5/5 20:37:00 [只看该作者]

帮助里面，假定我们的AppCode为：7858a126750949e4a36371580f420413
这个号码是什么号码呢？
比如我有个快递单号“958176190429”，怎么实现在textbox输入单号，点查询按钮就出来物流信息呢？
[此贴子已经被作者于2017/5/5 20:45:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/5 20:46:00 [只看该作者]

AppCode是购买阿里云快递接口服务后阿里云分配给你的一个识别码

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=" & e.form.controls("Textbox1").Text)
hc.Headers.Add("Authorization","APPCODE " & "7858a126750949e4a36371580f420413")
Return hc.getData()
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2017/5/5 21:06:00 [只看该作者]

是阿里云提供的这个吗?
您的Appkey 和 Appsecret如下，需要Appkey不呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/5 21:14:00 [只看该作者]

AppCode直接就可以查看

https://help.aliyun.com/knowledge_detail/44816.html?spm=5176.730006-cmapi010996.102.8.Ekr1jF

其它具体是使用请参考接口帮助
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2017/5/9 12:34:00 [只看该作者]

老师，今天试了一下，用以下代码报错，报错

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=" & e.form.controls("Textbox1").Text)
hc.Headers.Add("Authorization","APPCODE " & "0d9ce00129a34f5b9e6411a732349421")
Return hc.getData()

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170509123325.png
图片点击可在新窗口打开查看

 

按照帮助，点查询没反应


Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=929601675231")
hc.Headers.Add("Authorization","APPCODE " & "0d9ce00129a34f5b9e6411a732349421")
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

[此贴子已经被作者于2017/5/9 12:58:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 14:23:00 [只看该作者]

执行代码

 

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=929601675231")
hc.Headers.Add("Authorization","APPCODE " & "0d9ce00129a34f5b9e6411a732349421")
msgbox(hc.getData())
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2017/5/9 14:53:00 [只看该作者]

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=" & e.form.controls("Textbox1").Text)
 hc.Headers.Add("Authorization","APPCODE " & "0d9ce00129a34f5b9e6411a732349421")
 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")
         msgbox(jt("time").ToString & " | " & jt("context").ToString)
     Next
 End If

 

色大师，这样合成的情况不是一次显示完的，是一条一条显示的呢？

代码在命令窗口执行没问题，但写到按钮里面，用这个字符串集合，不显示。

Output.Show(jt("time").ToString & " | " & jt("context").ToString)

[此贴子已经被作者于2017/5/9 14:58:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 14:59:00 [只看该作者]

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=929601675231")
hc.Headers.Add("Authorization","APPCODE " & "0d9ce00129a34f5b9e6411a732349421")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
    Dim str As String = ""
    For Each jt As JToken In jo("showapi_res_body")("data")
        str &= jt("time").ToString & " | " & jt("context").ToString & vbcrlf
    Next
    msgbox(str)
End If

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


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2017/5/9 15:12:00 [只看该作者]

谢谢色大师，搞好了

 回到顶部
总数 20 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询