只贴重要部分
事件 多线程_获取视频数据.取网页源码2完毕(源码 为 文本型)
如果 源码 <> "" 则
变量 JSON对象 为 对象
变量 请求结果 为 文本型
变量 子JSON对象 为 对象
变量 影视信息组 为 对象
变量 标题 为 文本型
变量 图片 为 文本型
变量 链接 为 文本型
变量 I 为 整数型
I=0
JSON对象=JSON操作1.解析(源码)
请求结果=JSON操作1.取文本值(JSON对象,"status")
弹出提示("数据加载成功")
如果 请求结果="success" 则
子JSON对象=JSON操作1.取对象(JSON对象,"data")
影视信息组=JSON操作1.取数组(子JSON对象,"arr")
判断循环首 I<JSON操作1.取数组内成员数(影视信息组)
JSON对象=JSON操作1.取数组内对象(影视信息组,I)
标题=JSON操作1.取文本值(JSON对象,"name")
图片=JSON操作1.取文本值(JSON对象,"imgUrl")
链接=JSON操作1.取文本值(JSON对象,"urlLink")
图片列表框1.添加项目(图片,标题)
图片列表框1.置项目副标题(图片列表框1.取项目数()-1,链接)
I=I+1
判断循环尾
结束 如果
如果 全局_是否筛选 = 真 则
时钟_置视频现行选中项.时钟周期 = 500
结束 如果
否则
ok工具类1.失败信息框(1,"温馨提示","加载视频信息失败,请点右上角筛选进行视频信息读取")
结束 如果
关闭进度对话框()
结束 事件
ShareLife博客站 , 版权所有丨如未注明 , 均为原创|E4A交流群730898463
