多媒体程序设计.pptxVIP

多媒体程序设计Delphi程序设计 多媒体程序设计 媒体程序的应用涉及许多方面，其中最重要也是最常用的两个方面是音频文件处理与视频文件处理。下面介绍使用Delphi系统提供的多媒体播放组件MediaPlayer进行多媒体程序设计的方法。 1.1 MediaPlayer组件 在Delphi程序设计中，可以使用MediaPlayer组件来播放音频文件和视频文件。MediaPlayer组件的功能十分强大，几乎不用编写代码就可以实现音频文件与视频文件的播放。 MediaPlayer组件 位于System面板中，如下图所示。System面板 要想熟练使用MediaPlayer组件来播放音频和视频文件，必须了解该组件与播放相关的属性。 1.DeviceType属性 DeviceType属性是MediaPlayer组件最基本的属性，用于设置MediaPlayer组件支持的文件类型。MediaPlayer组件支持的文件类型很多，如 WAV、MP3、MIDI、DAT、AVI和MPG等。通常情况下，只需将DeviceType属性设置为默认值dtAutoSelect即可，这表示根据播放设备自动选择支持的文件类型。 2.FileName属性 该属性的值为字符串类型，用于表示播放文件的名称。一般使用OpenDialog组件来选择需要播放的文件，然后将OpenDialog组件的返回值赋给MediaPlayer组件的FileName属性。 3.VisibleButtons属性 当设置好DeviceType属性和FileName属性后，就可使用MediaPlayer组件来播放音频和视频 文件了。MediaPlayer组件在程序运行时显示为由一系列按钮组成的播放面板，如下图所示。单击播放面板中的按钮可以控制音频和视频文件的播放。MediaPlayer组件的播放面板 MediaPlayer组件的播放面板由9个按钮组成，从左向右分别为播放、暂停、停止、播放下一个、播放上一个、快进、后退、录制和弹出光驱。 设置MediaPlayer组件的VisibleButtons属性可以添加或删除播放面板中的按钮。VisibleButtons属性为集合类型，其中包含了9个变量，每个变量对应一个按钮，这些变量均为布尔类型，当某个变量设置为True时在播放面板上显示该按钮，如果设置为False，则不在播放面板上显示该按钮。当按右图所示设置VisibleButtons属性值时，得到播放面板如下图所示。设置VisibleButtons属性设置后的播放面板 1.2 使用MediaPlayer组件播放文件 了解了MediaPlayer组件的常用属性后，下面介绍如何使用该组件来播放音频文件和视频文件。 1.播放文件的步骤 使用MediaPlayer组件播放音频文件的操作步骤如下： （1）设置DeviceType属性。通常情况下，在窗体中添加一个MediaPlayer组件后，应该将该组件的DeviceType属性设置为dtAutoSelect，这也是默认值。 （2）设置MediaPlayer组件的FileName属性，选择需要播放的文件。 （3）打开MediaPlayer播放器，格式如下：MediaPlayer.Open； （4）使用MediaPlayer组件的播放面板进行播放。 （5）播放完毕后，关闭MediaPlayer组件，格式如下：MediaPlayer.Close；【例8-5】利用MediaPlayer组件播放指定的MP3文件。 （1）在Form窗体中添加一个MediaPlayer组件，一个OpenDialog组件和一个Button组件，创建界面，如下图所示。【例8-5】程序界面 （2）为Form窗体的OnClick事件添加如下代码，设置OpenDialog组件的文件类型。procedure TForm1.FormCreate(Sender: TObject);beginOpenDialog1.Filter := 'MP3音频|*.MP3|所有文件|*.*'; OpenDialog1.FilterIndex := 0;end; （3）为“打开文件”按钮的OnClick事件添加如下代码，设置MediaPlayer组件的属性。procedure TForm1.Button1Click(Sender: TObject);beginOpenDialog1.Execute; MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open;end; （4）单击MediaPlayer组件播放面板中的“播放”按钮 ，即可播放MP3音乐。 2.播放视频文件 使用MediaPlayer组件播放视频文件的方法与播放音频文件的方