|
|
1楼
大 中
小 发表于 2008-3-6 02:13 只看该作者
自已编写播放多种格式的播放器
看了电脑爱好者杂志上有一个关于用易语言写搜索工具的文章,所以这里自己也给大家写一个用易语言编写一个简单但功能不简单的播放器,可以支持多种格式文件的播放.
首先要下载易语言编程,安装运行易语言,进入程序编辑界面.如图
在启动窗口属性里修改属性.
最小化按钮(真)
图标(点击右边的...按钮选择一个ICO格式图标文件)
在任务条中显示(真)
保持标题条激活(真)
在启动窗口中添加一个WMP播放器组件,在播放器组件属性中设置"可视"\真,"界面模式"\None
接着添加一个real播放器组件,在播放器组件属性中设置"可视"\真,
再添加一个FLASH组件.播放器组件属性中设置"可视"\真
以上三个组件界面要一样大,要相覆盖住.
我们再来添加一条外型框,在属性中设置"外型"\横向线,线型\直线,这样做是为了界面的好看.
添加两个按钮组件,按钮1的标题设置成"播放",按钮2的标题设置成"停止"
最后我们添加一个通用对话框组件.
我们来书写代码,双击按钮1进入代码编辑界面,
在按钮1被单击事件中写入以下代码
通用对话框1.打开()
播放器1.地址 ＝ 通用对话框1.文件名 (指定播放文件的地址,用播放器打开文件)
Flash播放器1.播放Flash文件路径 ＝ 通用对话框1.文件名 (允许播放SWF格式文件)
如果 (取文本右边 (通用对话框1.文件名, 2) ≠ “rm” 且 取文本右边 (通用对话框1.文件名, 4) ≠ “rmvb
”)
RealAudio1.AutoStart ＝ 假
RealAudio1.可视 ＝ 假
注:判断是什么样的格式后以相对应的播放器打开,如果是RM格式就用real播放器打开,如果不是,就隐藏REAL播放器组件界面,同时它的自动播放停止.
如果 (取文本右边 (通用对话框1.文件名, 3) ≠ “swf”)
Flash播放器1.可视 ＝ 假
注:如果欲播放的文件不是SWF格式文件,就隐藏FLASH播放组件界面
如果 (取文本右边 (通用对话框1.文件名, 2) ＝ “rm”)
RealAudio1.AutoStart ＝ 真
RealAudio1.可视 ＝ 真
RealAudio1.Source ＝ 通用对话框1.文件名
如果欲播放的文件是RM格式的,那RM播放组件中的自动播放命令为真,界面为真,并将地址传递给播放命令.
按钮2的代码
播放器1.关闭 ()
RealAudio1.DoStop ()
完成后的播放器
搜索更多相关主题的帖子:
易语言 播放器
|
