• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

Delphi中多媒体组件使用解析_Delphi

Delphi 搞代码 3年前 (2018-08-09) 124次浏览 已收录 0个评论

张旭
  Delphi是美国Borland公司推出的一个十分优秀的软件
开发平台。它以其强大的开发功能在众多的开发环境中独
占鳌头,尤其是它在多媒体软件的开发上更是技高一筹。
Delphi的组件板system页上有一个称为MediaPlayer的
组件,它是多媒体软件制作的核心,以下将就MediaPlayer
组件的使用作以详解。

  MediaPlayer组件主要是用于控制MCI(MediaContr
olInterface)设备,该组件提供了一系列按钮用于控制

http://www.gaodaima.com/?p=65929Delphi中多媒体组件使用解析_Delphi

诸如CD-ROM、MIDI、VCR等多媒体设备,这些多媒体设备
可以是硬件也可以是软件。这些按钮在缺省情况下从左到
右依次为:Play(播放)、Pause(暂停)、Stop(停止)
、Next(下一个曲目)、Prev(前一个曲目)、Step(步
进)、Back(后退)、Record(录音)、Eject(弹出媒
体)等9个功能按钮。在用户自己开发的程序中,多媒体设
备可以有两种方法实现以上9个功能,一种方法是将Media
Player组件放在窗体上,在程序运行时单击相应按钮;另
一种方法是用与按钮相应的“方法”(Method)来实现这
些功能。按钮与对应的“方法”见下表:

  

  以上9个按钮在视图和功能上均允许进行选择,使用
者可以通过改变objectinspector(对象监视器)的属性页
中的+VisibleButtons和+EnabledButtons属性来实现,
使用者只需要双击此属性使其上的“+”变成“-”,然
后在下面新出现子属性表中将相应的子属性的值赋给true
/false即可。

  MediaPlayer组件有许多的属性(property)和方法
(method)。属性是程序设计时在objectinspector(对象
监视器)中进行设置的,它无需开发程序的人自行编码(
当然也可以在代码中进行属性设置);而方法是程序开发
者在程序代码中必须用到的过程和函数等。在正常情况下
,Delphi会将常用的属性设置为缺省值,这些值对于一般
的开发来说已经足够了,但是有一些关键的属性值却是必
须由使用者自己给定的。其中最重要的几个属性及其使用
说明见下表:

  

  MediaPlayer组件方法除了前面提到的对应9个按钮的
方法外,Delphi还提供了MediaPlayer组件的一些很重要
的方法,如open、save、rewind、resume、pauseOnly及cl
ose等,它们的使用详情如下:

  1.open方法:

  open方法用于打开一个多媒体设备。在调用该方法之
前,必须确保在MediaPlayer组件的DeviceType(设备类
型)属性中设定正确的多媒体设备类型。

  【示例】以下代码用于在程序开始运行时就播放CD音
乐。

  procedureTForm1.FormCreat(Sender:Tobject)

  begin

  withMediaPlayer1do

  begin

  DeviceType:ΚdtCDAudio;

  Visible:ΚFalse;

  open;

  play;

  end;

  end;

   2.Save方法:

  Save方法用于将当前装入的媒体内容保存到由FileNa
me属性指定的文件中。对于不能用媒体存取的设备(如Vi
deodiscs),Save方法被忽略。

   3.Rewind方法:

  Rewind方法用于设定当前位置到媒体的开始处,也就
是用Start属性保存的值的位置。

  【示例】以下代码用到一个MediaPlayer组件和一个B
utton组件。当单击Button按钮时,WavAudio媒体返回开
始处并进行播放。

  procedureTForm1.FormClick(Sender:Tobject)

  begin

  MediaPlayer1.DeviceType:ΚdtWavAudio;

  MediaPlayer1.fileName:Κ′c:ιwindowsιch
imes.wav′;

  Button1.Caption:Κ′返回并开始播放′;

  Button1.width:Κ125;

  end;

  procedureTForm1.Button1Click(Sender:Tobje
ct);

  begin

  MediaPlayer1.Rewind;

  MediaPlayer1.play;

  end;

   4.Resume方法:

  Resume方法用于重新开始播放或录制当前被暂停的多
媒体设备。

   5.Close方法:

  Close方法用于关闭当前已打开的多媒体设备。

   6.PauseOnly方法:

  PauseOnly方法仅仅用于暂停多媒体设备,如果该设
备已经暂停,则当PauseOnly方法被调用时,设备仍旧保持
暂停状态。

  以上就是MediaPlayer组件最常用的属性和方法。如
果您喜欢的话,在您的应用程序中就可以使用这些属性和
方法实现多媒体的音频和视频效果。

欢迎大家阅读《Delphi中多媒体组件使用解析_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址