资源说明:现在从网上下载的视频多是flv格式的文件,支持flv文件的播放器也不少,就是太占资源,自己尝试做了个flv格式文件的播放控件,目前我测试的格式支持播放flv、f4v、mp4三种格式的视频文件(别的格式视频文件我也没有试过)。
我上传的附件包里,包含了flv播放控件,还有一个简单的播放器源代码。
下面是控件独有的属性、方法、事件:
flv控件独有的属性
-----------------
BufferTime: 单精度。缓冲时间。
FullScreen: 布尔型。是否全屏。
LoadedBytes: 长整形。已装载字节
TotalBytes: 长整形,只读。文件总字节。
Movie: 字符型,只读。影片
Mute: 布尔型。是否静音。
State: 字符型,只读。状态。
TotalTime: 长整形,只读。文件总时间。
Volume: 长整形。音量大小(0-100)
AutoHideControl:布尔值,全屏时自动隐藏播放控制控件
AutoRewind: 布尔值,播放结束自动回到开始画面
Brightness: 长整形,视频亮度
Contrast: 长整形,视频对比度
Saturation: 长整形,视频饱和度
ShowMenu: 布尔值,显示右键默认菜单
VideoCurrentHeight:视频当前高度
VideoCurrentWidth: 视频当前宽度
VideoMode: 视频尺寸显示模式
VideoHeight: 长整型,视频原始高度
VideoWidth: 长整型,视频原始宽度
flv控件独有的方法
-----------------
GotoTime(Value As Long): 跳转到时间。输入参数单位为秒
PauseMovie(): 暂停。
PlayMovie(FilePath As String):播放。输入参数为全路径文件名,如果无参数就播放上次播放的文件
StopMovie(): 停止。
flv控件独有的事件
-----------------
ButterProgress(TotalBytes As Long, LoadedBytes As Long):网络文件缓冲进展
参数1:总字节
参数2:已装载字节
ButterComplete(ByVal TotalBytes As Single, ByVal AvgSpeed As Single, ByVal ButterTime As Single):网络文件缓冲完成
参数1:总字节
参数2:缓冲平均速度(字节/秒)
参数3:缓冲所使用的时间(秒)
ButterProgress2(ByVal CurrentSpeed As Single, ByVal ExpectButterTime As Single)):网络文件缓冲中
参数1:当前缓冲速度(字节/秒)
参数2:预计缓冲时间(秒)
OnOnReadyStateChange(ByVal newState As Long, ByVal Description As String):当前状态
参数1:数字标示参数2
参数2:当前状态字符串:
"Empty": 正在缓冲
"Play": 正在播放
"Pause": 暂停
"Stop": 停止播放
"FlvNotFound":非flv类型文件
PlayProgress(TotalTime As Single, CurrentTime As Single):播放进展
参数1:总时间
参数2:当前时间
参数3:缓冲时间
PlayComplete(ByVal TotalTime As Single):播放完成
参数:播放总时间
Error(ByVal Err As Long, ByVal Description As String):错误提示
ReSize():大小变化
本源码包内暂不包含可直接显示的源代码文件,请下载源码包。