MediaPlayer9 ActiveX 攻略(原创)

作者：小高

QQ：66814872

一、安装

这个不用多说，多数人都知道，在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，有详细介绍，不过我看不太懂），一人之力有限，还希望有心人能多多挖掘，多多交流。