- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求指点，如何显示EMS的物流信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136177)
-- 发布时间：2019/6/9 16:24:00
-- 求指点，如何显示EMS的物流信息
用户在网页上输入面单号后，如何显示详细的物流信息
-- 发布时间：2019/6/9 16:34:00
--
1、你能否正确调用和返回json数据了？
2、如果已经可以返回，那就读取json，然后生成页面，显示到自己的网页去。
3、或者换一种方式，嵌入查询，如 https://www.kuaidi100.com/openapi/api_jump.shtml
-- 发布时间：2019/6/9 19:02:00
--
Dim hc As New HttpClient("http://211.156.193.140:8000/cotrackapi/api/track/mail/最近收寄的邮件号码") hc.Headers.Add("version","ems_track_cn_1.0") hc.Headers.Add("authenticate","jsmobile_c8c8jk890qws") dim res as string = hc.GetData msgbox(res) Dim jo As JObject = Jobject.Parse(res) Output.Show(jo.ToString) |
-- 发布时间：2019/6/10 9:25:00
--
学会分别提取json数据 http://www.foxtable.com/mobilehelp/scr/0140.htm
把每一个值取出来。然后把值写入你的网页里面，即可。
-- 发布时间：2019/6/10 14:26:00
--
那weui里哪个命令适合来显示加载大段的文字
-- 发布时间：2019/6/10 14:34:00
--
-- 发布时间：2019/6/10 14:40:00
--
看红色代码
Select Case e.Path
Case "test.htm", ""
Dim wb As new WeUI
Dim dh As String
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=ems&nu=9895269350924")
hc.Headers.Add("Authorization","APPCODE " & "47a0277bcf0d4effa558641df91204f3")
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")
dh = dh & jt("time").ToString & " | " & jt("context").ToString & Chr(13) & Chr(10)
Next
End If
\'wb.AddForm("","form1","mdcx.htm")
With wb.AddMsgPage("","msgpage","面单信息",dh)
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2019/6/10 16:33:00
--
现在是用的多行文本框来显示面单信息，只能预先在参数里设定好行数，不能随着文本内容的多少自动调节长度
此主题相关图片如下：oj~84j~}54xznf2v}ngpdw.png
-- 发布时间：2019/6/10 18:01:00
--
参考
http://www.foxtable.com/mobilehelp/scr/0079.htm
-- 发布时间：2019/6/10 18:44:00
--
AddContent(Text, Attribute)