| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类:
|杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类:
|动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
Delphi中多媒体组件使用解析
作者:未知    文章来源:网络    点击数:    更新时间:2006-8-15
  Delphi是美国Borland公司推出的一个十分优秀的软件开发平台。它以其强大的开发功能在众多的开发环境中独占鳌头,尤其是它在多媒体软件的开发上更是技高一筹。在Delphi的组件板system页上有一个称为MediaPlayer的组件,它是多媒体软件制作的核心,以下将就MediaPlayer
组件的使用作以详解。

  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

相关文章