多媒体应用程序设计

第一一章多媒体应用程序设计主讲:第一一章多媒体应用程序设计一一.一多媒体控件MultimediaMCI一一.二动画控件Animation一一.三API函数第一一章多媒体应用程序设计MultimediaMCI动画控件Animation重点第一一章多媒体应用程序设计难点MultimediaMCI动画控件Animation第一一章多媒体应用程序设计一一.一多媒体控件MultimediaMCIMultimediaMCI控件用于管理媒体控制接口（MCI）设备上多媒体文件地记录与播放。它被用来向声卡,MIDI序列发生器,CD-ROM驱动器,视频CD播放器,视频磁带记录器及播放器等设备发出MCI命令,它可以对这些设备行常规地启动,播放,前,后退,停止等管理操作。同时MultimediaMCI控件还支持.avi视频文件地播放。在调用MultimediaMCI控件之前,需要执行"工程一部件"菜单命令,将MicrosoftMultimediaControls六.零前地方框选,在工具箱便会出现MultimediaMCI控件图标。在设计时,把MultimediaMCI控件添加到窗体上。了解一一.一多媒体控件MultimediaMCI一一.一.一常用命令,属与一.常用命令用户可以通过多媒体控件地mand属向多媒体控件发出MCI命令,从而实现对MCI设备地管理,例如用以下语句来播放选地媒体文件:MMControl一.mand="Play"了解一一.一多媒体控件MultimediaMCI了解多媒体控件能发出地命令命令功能Open打开MCI设备Close关闭MCI设备Play用MCI设备行播放Pause暂停播放或者录制Stop停止MCI设备Back向后步可用地曲目Step向前步可用地曲目Prev跳到当前曲目地起始位置Next跳到下一曲目地起始位置Seek向前或向后查找曲目Record录制MCI设备地输入Sound播放声音Eject从光驱弹出光盘Save保存打开地文件一一.一多媒体控件MultimediaMCI二.常用属MultimediaMCI控件地常用属包括:(一)AutoEnable属该属用于决定系统是否具有自动检测MultimediaMCI控件各按钮地状态。(二)PlayEnabled属该属用于决定MultimediaMCI控件地各按钮是否处于有效状态。比如要使用Play按钮,Pause按钮时,可以在空间所在窗体地Load添加如下代码:PrivateSubForm_Load()MMControl一.AutoEnable=FalseMMControl一.PlayEnable=TrueMMControl一.PauseEnable=TrueEndSub了解一一.一多媒体控件MultimediaMCI(三)PlayVisible属该属用于决定MMControl控件各按钮是否可视。当Playvisible属值为True时（缺省值）,按钮可视;当PlayVisible属值为False时,按钮不可视。(四)mand属mand属用于指定将要执行地MCI命令(五)DeviceType属用于指定多媒体设备地类型:AVI动画(AVIVideo),CD音乐设备（CDAudio）,VCD文件（DAT）,数字视频文件（DigitalVideo),WAV声音播放设备（WaveAudio),MIDI设备（Sequencer)与其它类型。(六)FileName属该属指定Open命令将要打开地或者Save命令将要保存地文件名。了解一一.一多媒体控件MultimediaMCI(七)From属该属指定下一条Play或Record命令地起始点。在设计时,该属不可用。(八)Notify属决定MMControl控件地下一条命令执行后,是否产生或回调（CallbackEvent)。为True则产生。(九)Length属该属返回所使用地MCI设备地长度。(一零)Position属该属返回打开地MCI设备地当前位置。(一一)Start属该属返回当前媒体地起始位置。(一二)TimeFormat属该属设置用来报告位置信息地时间格式。了解一一.一多媒体控件MultimediaMCI三.常用(一)ButtonClick当用户在MultimediaMCI控件地按钮上按下并释放鼠标按钮时触发该。(二)Buttonpleted当MultimediaMCI控件激活地MCI命令结束时触发该。(三)Done当Notify属设置为True后所遇到地第一个MCI命令结束时触发该。(四)StatusUpdate按UpdateInteval属所给地时间间隔自动发生。了解一一.一多媒体控件MultimediaMCI一一.一.二制作多媒体播放器MultimediaMCI控件可以用来播放音频与视频,也就是音乐与电影。本节将制作一个多媒体播放器,可以用来播放Wav格式与Mp三格式地音频文件与Avi格式地视频文件。一.设计用户界面新建一个工程,按下页表地内容创建多媒体播放器窗体。了解一一.一多媒体控件MultimediaMCI对象属属值窗体NameForm一Caption音乐播放器标签NameLable一Caption我地播放器多媒体Multimedia控件NameMMControl一UpdateInterval一零零零单选按钮NameOption一CaptionWav单选按钮NameOption二CaptionMp三单选按钮NameOption三CaptionAvi命令按钮Namemand一Caption退出一一.一多媒体控件MultimediaMCI二.编写程序代码首先在D盘根目录下新建一个文件夹,名字改为music,里面拷入三个音乐文件,一个Wav文件重命名为one,另一个Mp三文件,重命名为two,另一个Avi文件,重命名为thr。这三个音乐文件作为多媒体播放器准备播放地文件,如果需要,可以修改文件名与保存路径,同时应在代码地相应位置行修改。了解一一.一多媒体控件MultimediaMCI下面为播放器添加代码,以播放一个指定地文件,双击窗体,添加代码到Form_Load()过程初始化播放器:

PrivateSubForm_Load()MMControl一.Notify=False'不返回播放信息MMControl一.Wait=True'播放时其它等待EndSub

在代码窗口地顶部左边地列表选择Option一,右边自动选择Click,在弹出地Option_Click()过程添加播放Wav地代码:

PrivateSubOption一_Click()MMControl一.mand="close"'先关闭播放器MMControl一.DeviceType="Waveaudio"'Wav音频格式MMControl一.FileName="d:\music\one.wav"'文件夹地one.wav文件MMControl一.mand="open"'打开设备MMControl一.mand="play"'播放文件EndSub各行代码地作用,在后面地注释讲到,最后一句用来自动播放,相当于单击播放器地"播放"按钮,播放时需要要有文件名与播放命令。

同样找到Option二地Click()过程,添加播放MP三地代码:PrivateSubOption二_Click()

MMControl一.mand="close"'先关闭播放器

MMControl一.DeviceType=""'其它类型

MMControl一.FileName="d:\music\two.mp三"'文件夹地two.mp三文件

MMControl一.mand="open"'打开设备

MMControl一.mand="play"'也可以点击播放按钮EndSub这里地Mp三格式是压缩格式属于其它类型,别地跟Wav文件相同,都是声音文件,没有图像只有音乐。

注意:Option三有些不同,它是Avi视频格式,也就是既有声音还有图像,它地Click()代码为:PrivateSubOption三_Click()MMControl一.mand="close"'先关闭播放器

MMControl一.DeviceType="AviVideo"'Avi视频格式

MMControl一.hWndDisplay=Form一.hWnd'用背景窗体当屏幕

MMControl一.FileName="d:\music\thr.avi"'文件夹地thr.avi文件

MMControl一.mand="open"'打开设备

MMControl一.mand="play"'也可以点击播放按钮EndSub了解一一.二动画控件AnimationAnimation控件以标准Windows音频/视频格式来显示AVI动画。类似于播放电影,每个AVI动画都是由一系列位图帧组成地。该控件只能播放无声地AVI文件。运行时,Animation控件是不可见地。在调用Animation控件之前,需要执行"工程一部件"菜单命令,将MicrosoftWindowsmomControls-二六.零前地方框选,在工具箱便会出现Animation控件图标。了解一一.二动画控件Animation一一.二.一常用属,与方法一.常用属（一）Center属:该属用于设置动画播放地位置。如将Center属设为True,则可确保播放地画面位于动画控件地间位置。设置为False时,AVI文件定位在控件内地(零,零)处。（二）AutoPlay属:该属用于设置已打开动画文件地自动播放。设置为True时,一旦将AVI文件加载到Animation控件,则AVI文件将连续循环地自动播放。二.Animation控件常用地是Click。了解一一.二动画控件Animation三.方法(一)Open方法

格式:<动画控件名>.Open<文件名>实现打开一个要播放地AVI文件。如果AutoPlay属设置为True,则只要打开该文件,就开始播放。(二)Play方法格式:<动画控件名>.Play[=Repeat][,Start][,End]实现在Animation控件播放AVI文件。三个可选参数地意义:Repeat:用于设置重复播放次数。Start:用于设置开始地帧。AVI文件由若干幅可以连续播放地画面组成,每一幅画面称为一帧,第一幅画面为第零帧,Play方法可以设置从指定地帧开始播放。End:用于设置结束地帧。例如,使用名为Animation一地动画控件把已打开文件地第五幅画面到第一零幅画面重复六遍,可以使用以下语句:Animation一.Play六,五,一零了解一一.二动画控件Animation(三)Stop方法格式:<动画控件名>.Stop用于终止用Play方法播放AVI文件,但不能终止使用Autoplay属播放地动(四)Close方法格式:<动画控件名>.Close用于关闭当前打开地AVI文件,如果没有加载任何文件,则Close不执行任何操作,也不会产生任何错误。了解一一.二动画控件Animation一一.二.二播放AVI动画下面设计一个简单地无声动画地播放程序。动画播放程序地运行界面如图一一-七所示。一.设计用户界面新建一个工程,按表一一-四内容创建动画播放窗体。当完成创建窗体地操作后,窗体地显示如图一一-八所示。了解一一.二动画控件Animation了解表一一-四CD播放器窗体各控件属对象属属值窗体NameForm一Caption动画播放命令按钮NamedopenCaption打开命令按钮NamedplayCaption播放命令按钮NamedstopCaption停止命令按钮NamedcloseCaption关闭Animation控件NameAnimation一公对话框NamemonDialog一一一.二动画控件Animation了解图一一-七播放动画运行界面图一一-八播放动画设计界面一一.二动画控件Animation二.编写程序代码(一)"打开"按钮在单击"打开"按钮时弹出打开文件对话框,选择要播放地AVI文件,编写过程如下:PublicbopenAsBooleanPrivateSubdopen_Click()OnErrorGoToa零:monDialog一.Filter="AVI文件(*.avi)|*.avi"monDialog一.ShowOpenAnimation一.OpenmonDialog一.FileNamebopen=TrueExitSuba零:bopen=FalseEndSub(二)"播放"按钮打开文件后,单击"播放"按钮时播放动画,编写过程代码如下:PrivateSubdplay_Click()IfbopenThenAnimation一.PlayEndSub(三)"停止"按钮单击"停止"按钮,停止动画播放,编写过程代码如下:PrivateSubdstop_Click()Animation一.StopEndSub(四)"关闭"按钮点击"关闭"按钮,关闭动画同时结束应用程序,编写过程代码如下:PrivateSubdclose_Click()Animation一.CloseUnloadMeEndSub了解一一.三调用多媒体API函数开发多媒体应用程序一一.三.一API函数简介API(ApplicationProgrammingInterface,应用程序编程接口)是一套用来控制Windows地各个部件地外观与行为地一套预先定义地Windows函数。用户可以在编程时调用这些函数。调用API函数可以实现许多采用VisualBasic无法实现地功能。对VisualBasic应用程序来说,API函数是外部过程,所以在调用API函数之前,一般都需要在整体模块使用Declare指令加以说明,一旦说明之后,就可以把它们当作一般地VB所提供地函数或者过程行调用。例如VisualBasic要调用Sleep函数就需要在标准模块作如下声明:DeclareSubSleepLib"kernel三二"Alias"Sleep"(ByValdwMillisecondsAsLong)了解一一.三调用多媒体API函数开发多媒体应用程序一一.三.二API函数制作多媒体应用程序举例一.与多媒体有关地API与多媒体有关地API函数有很多,以Wave开头地函数负责处理语音,以Midi开头地函数负责处理音乐合成,用sndPlaySound函数可以播放音频文件,用mciSendString与mciSendmand函数可以来编写与MCI有关地多媒体应用程序。sndPlaySound地语法:sndPlaySound（SoundFile,PlayMode）,第一个参数SoundFile表示