怎么写这个播放代码？

mcajie

  

窗口程序集名	保 留	保 留	备 注
program_1
变量名	类 型	数组	备 注
播放器初始高度	整数型
播放器初始宽度	整数型
启动窗口初始高度	整数型
启动窗口初始宽度	整数型
高度差	整数型
宽度差	整数型
播放器高度	整数型
播放器宽度	整数型
FlashWay	文本型
JavaScriptWay	文本型
FlashText	文本型
JavaScriptText	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

FlashWay ＝ 取运行目录 () ＋ “\CLSJ_Flash.html”
JavaScriptWay ＝ 取运行目录 () ＋ “\CLSJ_JavaScript.html”
FlashText ＝ 到文本 (读入文件 (FlashWay))

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

播放器刷新 (VideoWay)

子程序名	返回值类型	公开	备 注
播放器刷新
参数名	类 型	参考	可空	数组	备 注
video	文本型

变量名	类 型	静态	数组	备 注
临时text	文本型

状态条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, 超文本浏览框1.状态条文本)

子程序名	返回值类型	公开	备 注
_Ckplayer官网_被选择

打开指定网址 (“http://www.ckplayer.com/”)

子程序名	返回值类型	公开	备 注
_Ckplayer开发手册_被选择

打开指定网址 (“http://www.ckplayer.com/manualX/”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

播放= (“rtmp://”)

i支持库列表	支持库注释
iext	扩展界面支持库一
HtmlView	超文本浏览框支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 iext<br /> .支持库 HtmlView<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 program_1<br /> .程序集变量 播放器初始高度, 整数型<br /> .程序集变量 播放器初始宽度, 整数型<br /> .程序集变量 启动窗口初始高度, 整数型<br /> .程序集变量 启动窗口初始宽度, 整数型<br /> .程序集变量 高度差, 整数型<br /> .程序集变量 宽度差, 整数型<br /> .程序集变量 播放器高度, 整数型<br /> .程序集变量 播放器宽度, 整数型<br /> .程序集变量 FlashWay, 文本型<br /> .程序集变量 JavaScriptWay, 文本型<br /> .程序集变量 FlashText, 文本型<br /> .程序集变量 JavaScriptText, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> FlashWay ＝ 取运行目录 () ＋ “\CLSJ_Flash.html”<br /> JavaScriptWay ＝ 取运行目录 () ＋ “\CLSJ_JavaScript.html”<br /> FlashText ＝ 到文本 (读入文件 (FlashWay))<br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> <br /> 播放器刷新 (VideoWay)<br /> <br /> .子程序 播放器刷新<br /> .参数 video, 文本型, 参考 可空<br /> .局部变量 临时text, 文本型<br /> <br /> 状态条1.置文本 (1, “重画播放器ing...”)<br /> <br /> 播放器高度 ＝ _启动窗口.高度 － 78<br /> 播放器宽度 ＝ _启动窗口.宽度 － 16<br /> 临时text ＝ #Flash<br /> 临时text ＝ 子文本替换 (临时text, “{video}”, 到文本 (video), , , 真)<br /> 临时text ＝ 子文本替换 (临时text, “{高度}”, 到文本 (播放器高度), , , 真)<br /> 临时text ＝ 子文本替换 (临时text, “&”, “%26”, , , 真)<br /> 临时text ＝ 子文本替换 (临时text, “{宽度}”, 到文本 (播放器宽度), , , 真)<br /> 写到文件 (FlashWay, 到字节集 (临时text))<br /> 超文本浏览框1.跳转 (FlashWay, , )<br /> <br /> .子程序 _打开_被选择<br /> .局部变量 临时text, 文本型<br /> .局部变量 视频地址, 文本型<br /> <br /> 临时text ＝ 编码_Utf8到Ansi (读入文件 (JavaScriptWay))<br /> 视频地址 ＝ 文本_取出中间文本 (临时text, “video:('”, “')”)<br /> 临时text ＝ 子文本替换 (临时text, 视频地址, 到文本 (VideoWay), , , 真)<br /> 调试输出 (临时text)<br /> 写到文件 (JavaScriptWay, 到字节集 (临时text))<br /> <br /> 打开指定网址 (JavaScriptWay)<br /> <br /> <br /> .子程序 _打开本地文件_被选择<br /> <br /> 载入 (本地文件点播, , 假)<br /> 本地文件点播.可视 ＝ 真<br /> <br /> .子程序 _打开网络文件_被选择<br /> <br /> 载入 (网络文件点播, , 假)<br /> 网络文件点播.可视 ＝ 真<br /> <br /> .子程序 _直接保存_被选择<br /> <br /> .如果真 (寻找文本 (VideoWay, “http”, , 假) ≠ -1)<br />     文件_下载 (VideoWay)<br />     返回 ()<br /> .如果真结束<br /> 信息框 (“非网络文件无需下载”, 0, “错误”, )<br /> <br /> <br /> .子程序 _迅雷下载_被选择<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (寻找文本 (VideoWay, “http”, , 假) ≠ -1)<br />     输入框 (“请输入欲保存文件的文件名，带上后缀，如：clsj.mp4”, “请设置保存文件的文件名”, , 文件名, , )<br /> <br />     下载 (VideoWay, 文件名)<br />     返回 ()<br /> .如果真结束<br /> 信息框 (“非网络文件无需下载”, 0, “错误”, )<br /> <br /> <br /> <br /> <br /> .子程序 下载<br /> .参数 下载地址, 文本型<br /> .参数 文件名, 文本型, 可空<br /> .局部变量 外部对象, 对象<br /> .局部变量 bool, 逻辑型<br /> <br /> 线程_初始化COM库 ()<br /> bool ＝ 外部对象.创建 (“ThunderAgent.Agent”, )<br /> 调试输出 (bool)<br /> 外部对象.方法 (“AddTask”, 下载地址, 文件名, , , , , , )<br /> 外部对象.数值方法 (“CommitTasks”, )<br /> 外部对象.清除 ()<br /> 线程_取消COM库 ()<br /> <br /> <br /> .子程序 _超文本浏览框1_即将跳转, 逻辑型<br /> <br /> 状态条1.置文本 (1, 超文本浏览框1.状态条文本)<br /> <br /> .子程序 _Ckplayer官网_被选择<br /> <br /> 打开指定网址 (“http://www.ckplayer.com/”)<br /> <br /> <br /> .子程序 _Ckplayer开发手册_被选择<br /> <br /> 打开指定网址 (“http://www.ckplayer.com/manualX/”)<br /> <br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 播放=(“rtmp://”)

=================================================
按钮1_被单击

播放=(“rtmp://”)    这个代码咋写。 按钮1，让播放器播放指定的网页视频

走一回

如果你的电脑安装了足够解码视频的插件,就可以用 播放器组件来播放,参数就是你获取到的视频地址.当然视频解码插件没有安装,就会提示无法播放或是不播放,建议安装视频解码器后再测试.

mcajie

走一回 发表于 2019-1-27 21:03
如果你的电脑安装了足够解码视频的插件,就可以用 播放器组件来播放,参数就是你获取到的视频地址.当然视频解 ...

按钮1_被单击

播放=(“rtmp://”)     这句代码 正确就行，其他功能 不需要。谢谢

晶晶易

看你的意思既然准备调用网页播放器
那么内置个超文本浏览框调用ckplayer或者dplayer就行吧

mcajie

晶晶易 发表于 2019-1-28 02:40
看你的意思既然准备调用网页播放器
那么内置个超文本浏览框调用ckplayer或者dplayer就行吧

是的，基本弄的差不多了

mcajie

mcajie 发表于 2019-1-27 21:05
按钮1_被单击

播放=(“rtmp://”)     这句代码 正确就行，其他功能 不需要。谢谢

谢谢你阿！！！！！