
常用软件类: |
|杀毒安全 | |联络聊天 | |网络软件 | |多媒体类 | |系统工具 | |图形图像 | |系统工具 | |应用软件 | |行业软件 |
开发设计类: |
|动画制作 | |图像处理 | |3D设计 | |操作系统 | |站长学院 | |网络相关 | |WEB设计 | |数据库类 | |程序开发 |
MediaPlayer组件主要是用于控制MCI(MediaControlInterface)设备,该组件提供了一系列按钮用于控制诸如CD-ROM、MIDI、VCR等多媒体设备,这些多媒体设备可以是硬件也可以是软件。这些按钮在缺省情况下从左到右依次为:Play(播放)、Pause(暂停)、Stop(停止)、Next(下一个曲目)、Prev(前一个曲目)、Step(步进)、Back(后退)、Record(录音)、Eject(弹出媒体)等9个功能按钮。在用户自己开发的程序中,多媒体设备可以有两种方法实现以上9个功能,一种方法是将MediaPlayer组件放在窗体上,在程序运行时单击相应按钮;另一种方法是用与按钮相应的“方法”(Method)来实现这些功能。
以上9个按钮在视图和功能上均允许进行选择,使用者可以通过改变objectinspector(对象监视器)的属性页中的+VisibleButtons和+EnabledButtons属性来实现,使用者只需要双击此属性使其上的“+”变成“-”,然后在下面新出现子属性表中将相应的子属性的值赋给true
/false即可。
MediaPlayer组件有许多的属性(property)和方法(method)。属性是程序设计时在objectinspector(对象监视器)中进行设置的,它无需开发程序的人自行编码(当然也可以在代码中进行属性设置);而方法是程序开发者在程序代码中必须用到的过程和函数等。在正常情况下,Delphi会将常用的属性设置为缺省值,这些值对于一般的开发来说已经足够了,但是有一些关键的属性值却是必须由使用者自己给定的。其中最重要的几个属性及其使用说明见下表:
MediaPlayer组件方法除了前面提到的对应9个按钮的方法外,Delphi还提供了MediaPlayer组件的一些很重要的方法,如open、save、rewind、resume、pauseOnly及close等,它们的使用详情如下:
1.open方法:
open方法用于打开一个多媒体设备。在调用该方法之前,必须确保在MediaPlayer组件的DeviceType(设备类型)属性中设定正确的多媒体设备类型。
【示例】以下代码用于在程序开始运行时就播放CD音乐。
| procedureTForm1.FormCreat(Sender:Tobject); begin with MediaPlayer1 do begin DeviceType:=dtCDAudio; Visible:=False; open; play; end; end; |
2.Save方法:
Save方法用于将当前装入的媒体内容保存到由FileName属性指定的文件中。对于不能用媒体存取的设备(如Videodiscs),Save方法被忽略。
3.Rewind方法:
Rewind方法用于设定当前位置到媒体的开始处,也就是用Start属性保存的值的位置。
【示例】以下代码用到一个MediaPlayer组件和一个Button组件。当单击Button按钮时,WavAudio媒体返回开始处并进行播放。
| procedureTForm1.FormClick(Sender:Tobject); begin MediaPlayer1.DeviceType:=dtWavAudio; MediaPlayer1.fileName:=′c:windowschimes.wav′; Button1.Caption:=′返回并开始播放′; Button1.width:=125; end; procedureTForm1.Button1Click(Sender:Tob |