多媒体软件设计技术7数字软件开发

第七章：数字视频软件开发技术多媒体软件设计技术第三版陈启安(c)西安电子科技大学出版社出版,2007-2008..可以修改或复制本幻灯片为非商业用途，但作者名及本版权标识不可更改。该幻灯片由作者提供修订日期:2008年1月30日本章学习目标理解AVI文件播放方法和VCD播放方法应用这些方法创造出自定义的播放程序VB视频文件播放AVI文件的6种播放方法实例1——同时播放二个AVI视频文件AVI文件的6种播放方法（1）利用Animation控件播放AVI文件在控件工具栏中按下鼠标右键，选择快捷菜单中的“部件”，并选中

“Microsoft

Windows

Common

controls-2

5.0”前的复选框；在FORM1上拉出一个方框（Animation1），设置它的AutoPlay属性为

False，Visible属性为False；点击控件工具栏中的按钮控件，在FORM1中创建一个按钮（Command1），设置它的Caption属性为“播放”。FORM1的LOAD过程为：Animation1.OPEN

“PLAY.AVI”'双引号指定文件名Command1的Click过程为：Animation1.Visible

=

True'TRUE表示控件可见Animation1.Play‘播放制订文件只适用于播放无声的AVI文件AVI文件的6种播放方法（2）利用API函数mciSendString播放AVI文件在表单上创建一个按钮（Command1），设置它的Caption属性为“播放”；再在表单上创建一个图画盒控件（Picture1）作为动画窗口。FORM1的Activate过程：

Dim

AA

As

LongDim

PlayAvi

As

LongDim

tmpVal

As

StringDim

KeyValSize

As

LongOn

Error

Resume

NexttmpVal

=

String$（1024,

0）KeyValSize

=

1024PlayAvi

=

mciSendString（"OPEN

c:\windows\media\logo.AVI

ALIAS

AVI01

TYPE

AVIVIDEO

STYLE

CHILD

PARENT"

+Str（Picture1.hwnd）+

"

WAIT",tmpVal,

KeyValSize,

0）'OPEN为命令,后跟文件名,ALIAS指定别名参数,AVI01即文件之别名,TYPE为类型参数

'STYLE为风格参数.WAIT向父窗体传递MCI_WAIT消息x1Pos=Picture1.Widthy1Pos=Picture1.HeightOn

Error

Goto

0Command1的Click过程：

On

Error

Resume

NexttmpVal

=

String$（1024,

0）KeyValSize

=

1024PlayAvi=mciSendString（"PLAY

AVI01",

tmpVal,

KeyValSize,

0）

'播放文件

On

Error

Goto

0AVI文件的6种播放方法（3）利用API函数mciExecute播放AVI文件FORM1的Activate过程：

DIM

PlayAvi

AS

INTEGEROn

Error

Resume

NextPlayAvi

=

mciExecute（"OPEN

PLAY.AVI

ALIAS

AVI01

TYPE

AVIVIDEOSTYLE

CHILD

PARENT"+

Str（Picture1.hwnd）+"WAIT"）'同上例x1Pos=Picture1.Widthy1Pos=Picture1.HeightOn

Error

Goto

0Command1的Click过程：

On

Error

Resume

NextPlayAvi=mciExecute（"PLAY

AVI01"）

'播放文件

On

Error

Goto

0AVI文件的6种播放方法（4）利用MMControl控件播放AVI文件选择菜单中的“部件”，选中“Microsoft

Multimedia

Control

6.0”前的复选框。创建一个MMControl1，设置它的DeviceType属性为“AVIVIDEO”，把MMControl1的FileName属性置空，Visible属性为False；再在表单上创建一个按钮（Command1），设置它的Caption属性为“播放”；最后在表单上创建一个图画盒（Picture1），作为动画的输出窗口，设置它的Visible属性为False。FORM1的Activate过程：MMControl1.FileName

=

App.Path

&

"\logo1.avi"'加载AVI文件MMControl1.hWndDisplay

=

Picture1.hWndMmcontrol1.Command

=“OPEN”'准备文件Command1的Click过程：Picture1.Visible

=

TrueMmcontrol1.Command

=“PLAY”'播放文件AVI文件的6种播放方法（5）利用可插入对象中的电影剪辑控件播放AVI文件选择快捷菜单中的“部件”，再选择“可插入对象”选项卡，然后选中“视频剪辑（AVI）”前的复选框，按“确认”键

退出。建立一个新的表单，并在表单上创建一个“视频剪辑（AVI）”控制（avifile1），此时会见到媒体播放器的播放界面，按照在媒体播放器中播放AVI文件的方式进行设置。设置完成后回到VisualBasic中，运行此程序，可见到动画的开始画面，双击它即可实现动画文件的播放。AVI文件的6种播放方法（6）利用OLE控件播放AVI文件在表单上创建一个按钮（Command1），设置它的Caption属性为“播

放”；再在表单上创建一个OLE控件（Ole1），此时会见到媒体播放器的播放界面，按照在媒体播放器中播放AVI文件的方式进行设置。设置完成后回到VisualBasic6.0中，设置Ole1的AutoActivate属性为0-Manual，Visible属性为False。Command1的Click过程：Ole1.Visible

=

TrueOle1.Doverb

0'将窗体设为可见

'播放实例1：同时播放二个AVI视频文件利用WINDOWS的API函数mciExecute、mciSendString和SetWindowPos来实现使用一大一小两个PictureBox控件Picture1和Picture2，如下图所示。两个AVI视频：LOGO1.AVI与LOGO2.AVI文件。VCD播放程序实例2——利用ActiveMovie控件播放VCD实例3——利用MCIWndx控件播放VCD其他的影片文件mov、mmm、mpeg、mpg、mpa、mpv和VCD的dat文件的播放方法实例2—利用ActiveMovie控件播放

VCD（1）Microsoft公司的ActiveMovie控件内嵌了MPEG音频解码器和MPEG视频解码器，因此可以直接用它来播放符合MPEG规范的VCD文件。该控件除了支持影片文件avi、mov、mmm、mpeg、mpg、mpa、mpv和VCD的dat文件外，还支持音频文件wav、mid、rmi。鼠标右键双击画面，可以直接对画面的播放、暂停、停止等进行控制。还可以在“属性”栏中对影片播放进行设置，诸如设置“播放次数”、“音量”、“影片大小（1/16、1/4、1/2、1、2倍和全屏）”、“面板”、“颜色”等。实例2—利用ActiveMovie控件播放

VCD（2）建

立

一

个

“

工程

”

，

添

加MicrosoftActiveMovieControl（

Amovie.OCX

）和

MicrosoftCommondialogControl（

COMDLG32.OCX

。将上述两个控件加进窗体，再单击“菜单”工具栏，建立主菜单项，如

右图。实例2—利用ActiveMovie控件播放

VCD（3）运行该程序，当打开一个

VCD文件后，

就可看到VCD影片了。如右

图，图中正播

放影片“地道

战”。注意：

若无法正常播

放影片，需要

重新加载

ActiveMovie控件Amovie.ocx。实例2—利用ActiveMovie控件播放

VCD（4）ActiveMovie控件的其他属性（1）AllowChangeDisplayMode：运行时是否允许改变显示的模式；（2）AllowHideControls：运行时是否允许显示/隐藏控制面板；（3）AllowHideDisplay：运行时是否允许显示/隐藏显示面板；（4）Appearance：设置面板的外观（平面或3D）；（5）AutoStart：设置打开VCD文件后是否“自动播放”；（6）EnableContextMenu：当在画面中右键单击时是否允许出现控制菜单或自定义控制菜单；（7）FileName：设置ActiveMovie播放的文件名；（8）PlayCount：设置播放次数；（9）Rate：设置播放时的速率，为1时为正常播放，大于1时为快进（太大时可能无声、无影像）；（10）SelectionStart：设置播放的开始位置（缺省值为0）；（11）SelectionEnd：设置播放的结束位置（缺省值为-1）；（12）ShowControls：显示/隐藏控制面板；（13）Showdisplay：显示/隐藏显示面板；（14）ShowpositionControls：在控制面板中显示/隐藏位置按钮；（15）ShowSelectionControls：在控制面板中显示/隐藏选择按钮；（16）ShowTracker：在控制面板中显示/隐藏音轨栏；（17）ToolTipText：当光标停留在画面时出现的提示文字。实例3—利用MCIWndx控件播放VCD（1）除了可用ActiveMovie控件来开发VCD播放程序外，还可以用MCIWndX

Control控件（MCIWndx.OCX）。由于

MCIWndx控件是通过XING的MCI驱动程序来实现的，所以在使用MCIWndx控件前，必须先安装XING

VCD播放软件。

MCIWndx控件支持大多数ActiveMovie控件所支持的多媒体文件。实例3—利用MCIWndx控件播放VCD（2）MCIWndx控件的常用属性（1）AutosizeMovie：控制画面是否自动适应窗口，为False可能会遮掩掉部分画面，结合Auotsizewindows使用；（2）Auotsizewindows：控制画面是否自动适应原来影片的大小，为False时可能会挤压或拉长画面，使画面变形，结合AutosizeMovie使用；（3）DefaultContextMenuenabled：当在画面中右键单击时是否允许出现控制菜单（缺省值为TRUE，这样将不能触发鼠标右键的MouseDown、MouseUp和DblClick事件；设成False时可以显示自行设计的控制菜单）；（4）FileName：指定设备所要播放的文件；（5）Menu：显示/隐藏播放条上的控制菜单并设置在控制面板上单击右键时是否弹出菜单；（6）Playbar：显示/隐藏播放条；（7）PositionString：返回打开的MCI设备的当前位置；（8）Record：设置控制菜单的“保存”命令是否可用；（9）Repeat：设置播放时是否“自动重播”；（10）Speed：设置播放时的速率，为1000时表