媒体程序设计——媒体控制接口MCI编程.ppt

《媒体程序设计——媒体控制接口MCI编程.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第9章VisualBasic多媒体程序设计VisualBasic是一个功能强大的编程环境，且与Windows系统紧密结合，对多媒体编程提供了丰富的支持。VisualBasic进行多媒体开发主要有两种方法：利用多媒体控件和WindowsAPI函数。1.多媒体控件VisualBasic提供了几种用于多媒体开发的控件，主要包括以下几种：（1）Animation控件（2）MCI控件（3）ActiveMovie控件（4）PictureClip控件（5）MCIWnd控件（1）Animation控件Animation控件也称为无声控件，用该控件可以播放无声动画文件也不是所有的无声动画文件都可以播放，

2、它只能播放未经压缩的或者用RLE格式压缩的无声动画文件。（2）MCI控件MCI控件可用于管理多媒体控制接口（MCI）设备，这些设备包括声卡、MIDI发生器、CD-ROM驱动器、音频播放器、视频播放器和视频磁带录放器。MCI控件具有一组执行MCI命令的下压式按钮，包括播放、暂停、向后步进、向前步进、停止、录制和弹出等。（3）ActiveMovie控件ActiveMovie控件可以播放MPEG、AVI、MIDI和WAV等媒体文件，该控件是MCI控件的增强版本ActiveMovie控件还自带时间数字显示和进度控制，并可以随意改变播放的起点。（4）PictureClip控件PictureCli

3、p控件用于存储快速显示的位图文件，在建立动画或需要存储大量的位图文件时会用到它。（5）MCIWnd控件MCIWnd控件的功能与MCI控件类似，但MCIWnd控件播放复合型多媒体设备，不能播放简单型设备。2.多媒体API函数使用MCI控件开发Windows系统下的多媒体程序，具有简单、快捷、方便的特点。但在实际程序设计中，常会碰到一些利用MCI控件不好解决的问题。VisualBasic提供了直接调用Windows的API函数的功能，通过调用API函数，可以实现对系统的各个层次的功能调用。Windows的动态链接库文件winmm.dll文件中包含了100多个具有多媒体处理功能的API函数，

4、这些函数大多为低级的程序接口，可以用于处理语音、合成音乐、动画、视频等。常用的MCI高级API函数mciExecute：用于向MCI传送一个命令字符串，以执行各种播放操作。mciSendString：也是向MCI传送一个命令字符串，并可接受反馈信息。mciGetErrorStringGetShortPathName本章内容9.1Animation控件9.2MCI控件9.3MediaPlayer控件9.4多媒体API函数9.1Animation控件Animation控件是一个动画播放控件，Windows下的文件复制进度栏就是使用Animation控件的一个实例，在执行复制操作时，纸页从一

5、个文件夹“飞”到另一个文件夹，非常形象地告诉用户系统正在进行拷贝动作。9.1.1Animation控件介绍9.1.2Animation控件应用实例9.1.1Animation控件介绍（1）AutoPlay属性将AutoPlay属性设置为True时，一旦加载.avi文件，Animation控件会自动连续循环地播放这个.avi文件。（2）Center属性Center属性为True时，根据图像的大小，在控件中心显示.avi文件；当设置为False时，.avi动画定位在控件的左上角。（3）Open方法Open方法打开一个要播放的.avi文件。如果AutoPlay属性设置为True，则一打开就开

6、始播放，在关闭.avi文件或设置AutoPlay属性设置为False之前，它都一直重复播放。（4）Play方法Play方法使Animation控件播放.avi文件。并且可以设置重复播放次数和开始、结束帧。Animation控件介绍（续）（5）Stop方法Stop方法使Animation控件终止播放.avi文件。Stop方法仅终止那些用Play方法启动的动画。对通过设置AutoPlay属性为True的自动播放，使用Stop方法会返回错误。可以通过设置AutoPlay属性为False来终止播放。（6）Close方法Close方法使Animation控件关闭当前打开的.avi文件。如果没有加

7、载任何文件，则Close方法不执行任何操作，也不会产生任何错误。9.1.2Animation控件应用实例【例9.1】利用Animation控件设计一个简单的播放.avi动画的程序。IfcmdPlay.Caption="播放"ThenAnimation1.OpenApp.Path&"clock.avi"'加载动画文件Animation1.PlaycmdPlay.Caption="停止"ElseAnimation1.StopcmdPlay.Cap