MediaPlayer9 ActiveX 攻略(原创)

类别:Delphi 点击:0 评论:0 推荐:

MediaPlayer9 ActiveX 攻略(原创)

作者:小高
QQ:66814872
MSN:[email protected]

一、安装
        这个不用多说,多数人都知道,在Delphi7中选择“Component ——Import ActiveX Control...”菜单,会弹出“Import ActiveX0”窗口。在列表中选择“Windows Media Player(Version 1.0)”,再点击“Install”......

        当然,得先安装Mediaplayer 9。另外,最好是使用Delphi7,因为我发现Mp9 ActiveX在Delphi7提供的内容比Delphi6更丰富,delphi6以下的版本我就没有测试过了。

二、一孔之见

[基本属性]

URL:string                            可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean                 全屏显示
stretchToFit:boolean              非全屏状态时是否伸展到最佳大小
uMode:string                         播放器的模式,full:有下面的控制条; none:只有播放部份没有控制条
playState:integer                    当前控件状态,下面是三种基本状态:
3:正在播放
2:暂停
1:已停止
状态变化时会触发OnStatusChange事件

[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息:
 controls.play;       播放
 controls.stop;       停止
 controls.pause;      暂停
 controls.currentPosition:Double 当前播放进度
 controls.currentPositionString:string 时间格式的字符串 "0:32"

[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
 currentMedia.duration  Double 总长度
 currentMedia.durationString 时间格式的字符串 "4:34"

[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置,包括音量和声道等。
settings.volume:integer 音量 (0-100)
settings.balance:integer 声道,通过它应该可以进行立体声、左声道、右声道的控制。但对应的取值尚不清楚。

三、罗嗦一句
        以上我提到的,全是我已经在windows98+Mediaplayer9+delphi7环境下试过了的,其实Mediaplayer9的ActiveX还有好多的属性、方法,我没法一一列出(其实多数是我搞不明白啦,原来下过一个英文的SDK,有详细介绍,不过我看不太懂),一人之力有限,还希望有心人能多多挖掘,多多交流。

本文地址:http://com.8s8s.com/it/it5008.htm