窗口程序集名 | 保 留 | 保 留 | 备 注 | program_1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 播放器初始高度 | 整数型 | | 播放器初始宽度 | 整数型 | | 启动窗口初始高度 | 整数型 | | 启动窗口初始宽度 | 整数型 | | 高度差 | 整数型 | | 宽度差 | 整数型 | | 播放器高度 | 整数型 | | 播放器宽度 | 整数型 | | FlashWay | 文本型 | | JavaScriptWay | 文本型 | | FlashText | 文本型 | | JavaScriptText | 文本型 | |
FlashWay = 取运行目录 () + “\CLSJ_Flash.html”JavaScriptWay = 取运行目录 () + “\CLSJ_JavaScript.html”FlashText = 到文本 (读入文件 (FlashWay )) 播放器刷新 (VideoWay )状态条1. 置文本 (1, “重画播放器ing...”)播放器高度 = _启动窗口.高度 - 78 播放器宽度 = _启动窗口.宽度 - 16 临时text = #Flash 临时text = 子文本替换 (临时text, “{video}”, 到文本 (video ), , , 真)临时text = 子文本替换 (临时text, “{高度}”, 到文本 (播放器高度 ), , , 真)临时text = 子文本替换 (临时text, “&”, “%26”, , , 真)临时text = 子文本替换 (临时text, “{宽度}”, 到文本 (播放器宽度 ), , , 真)写到文件 (FlashWay, 到字节集 (临时text )) 超文本浏览框1. 跳转 (FlashWay, , )变量名 | 类 型 | 静态 | 数组 | 备 注 | 临时text | 文本型 | | | 视频地址 | 文本型 | | |
临时text = 编码_Utf8到Ansi (读入文件 (JavaScriptWay )) 视频地址 = 文本_取出中间文本 (临时text, “video:('”, “')”)临时text = 子文本替换 (临时text, 视频地址, 到文本 (VideoWay ), , , 真)调试输出 (临时text )写到文件 (JavaScriptWay, 到字节集 (临时text )) 打开指定网址 (JavaScriptWay )载入 (本地文件点播, , 假)本地文件点播.可视 = 真 载入 (网络文件点播, , 假)网络文件点播.可视 = 真 如果真 (寻找文本 (VideoWay, “http”, , 假) ≠ -1 )文件_下载 (VideoWay )返回 ()信息框 (“非网络文件无需下载”, 0, “错误”, )如果真 (寻找文本 (VideoWay, “http”, , 假) ≠ -1 )输入框 (“请输入欲保存文件的文件名,带上后缀,如:clsj.mp4”, “请设置保存文件的文件名”, , 文件名, , )下载 (VideoWay, 文件名 )返回 ()信息框 (“非网络文件无需下载”, 0, “错误”, )变量名 | 类 型 | 静态 | 数组 | 备 注 | 外部对象 | 对象 | | | bool | 逻辑型 | | | 线程_初始化COM库 ()bool = 外部对象. 创建 (“ThunderAgent.Agent”, )调试输出 (bool )外部对象. 方法 (“AddTask”, 下载地址, 文件名, , , , , , )外部对象. 数值方法 (“CommitTasks”, )外部对象. 清除 ()线程_取消COM库 ()状态条1. 置文本 (1, 超文本浏览框1.状态条文本 )打开指定网址 (“http://www.ckplayer.com/”)打开指定网址 (“http://www.ckplayer.com/manualX/”)播放= (“rtmp://”)
=================================================
按钮1_被单击
播放=(“rtmp://”) 这个代码咋写。 按钮1,让播放器播放指定的网页视频
|