vb开发多媒体播放器软件.docx

《vb开发多媒体播放器软件.docx》由会员分享，可在线阅读，更多相关《vb开发多媒体播放器软件.docx（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、vb 开发多媒体播放器软件处理 SSI 文件时出错一、前言随着多媒体硬件环境和软件环境的不断完善，目前，大局部计算机软件开发中都涉及多媒体软件技术的应用。进展多媒体应用程序设计，从原理上说，可以承受从C+到多媒体专用开发 系统如 TOOLBOOK、AUTHORWARE、DIRECTOR等多种层次的工具。然而，由于多媒体软件涉及的媒体简单多样、开发周期短并且需要多种专业人员参与，因此，为了能进展有用高效的开发，必需选用简洁易用、开发效率高的软 件。Visual Basic 是 Microsoft 公司开发的Windows 编程工具软件。由于它具有先进的设计思想、快速易把握的使用方法及掌握媒体对象

2、手段敏捷多样等特点， 受到了多媒体软件开发人员的关注和青睐，也因此成为多媒体应用程序开发的抱负工具。二、Visual Basic 的多媒体控件MCI.OCXMCI。1 / 10从使用的掌握方式上来说，MCI 设备分为复合和简洁两类。一个简洁MCI 设备并不需要设备元素。例如，CD 音频和音碟机就是在一个已经安装好了的硬盘上工作的，它们不需要应用程序为其操作的媒体内容供给任何信息。但对于复合的 MCI 设备，就需要应用程序供给设备元素，即一个包含全部路径名的源数据文件或目的文件。Visual Basic 语言的Custom Control用户掌握部件概念表达了当今软件设计的进展潮流-面对对象技术

3、，编程者可以在Visual Basic 的工具箱Toolbo x中嵌入各式各样五花八门的用户控件，每个用户掌握部件都有肯定的属性和 操作方法，编程者通过属性的设置和方法的掌握完成特定的功能。为了便利地掌握多媒体，在专业版Visual Basic 工具箱中供给了一个用于多媒体目的的用户控件-MCI.OCX。多媒体MCI 控件 MCI.OCX 专用于对多媒体掌握接口MCI 设备的多媒体数 据文件实施记录和回放，从目的效果上来说，该控件通过一组按钮来发出种种设备掌握命令以实现对诸如:音频面板、MIDI 音序器、CD-ROM 驱动器、音频CD 播放机、录像带播放、录音带录放等设备的掌握。在Visual

4、 Basic 程序设计时， 当在表中参加多媒体MCI 控件时在工具箱内双击MCI 控件，则消灭以下按钮群：向前Prev、向后Next、播放Play、暂停Pause、返回Bac k、单步Step、停顿Stop、记录Record和出带Eject。应用程序对MCI 的这组按钮操作格外敏捷便利，如当我们翻开一个MCI 设备后，就可以依据该设备类型的属性随时从控件中选择适宜的状态按钮来表示即刻设备的物理状态。全部MCI 控件可以有以下几种方式来编程：控件及其各按钮的可见性和使能性；可变或完全对控件进展重定义；在一个窗口表格中可以同时掌握多个设备。三、多媒体掌握部件MCI.OCX 的调用在 Visual

5、Basic3.0 专业版中，多媒体控件MCI.OCX在Visual Basic 3.0 和4.0 中，多媒体控件的扩展名为.VBX是作为可选用部件供给的。为了使用它， 首先要执行FileAdd File 菜单命令，把Windowssystem 名目下的MCI.OCX 参加到工具箱Toolbox中，这时会在工具箱中消灭相应的MCI.OCX 图标。假设使用的是Visual Basic4.0 版或 5.0 版，选择oolsCustom Controls 菜单或直接键入Ctrl+T，即可消灭对话框，在Available Controls 列表框中选中Microsoft M ultimedia Cont

6、rols 条目旁边的检查框，同样会在工具箱中消灭MCI.OCX 图标。双击工具箱中的多媒体控件MCI.OCX 图标，调用MCI.OCX 控件之后，表单 FORM 中将消灭一排灰色的媒体掌握按钮九个。四、Visual Basic 多媒体应用程序设计步骤多媒体控件MCI.OCX 包含有一组高级的与设备无关的掌握命令。在使用该多媒体控件时，首先用OPEN 命令翻开MCI 设备多媒体设备并建立一个与之对应的文件,以便来进展录或放等操作但是对诸如CDAudio、VCR 和录像带不能使用相应文件。一旦设备翻开成功，就可以向它发出各种操作命令见附表 的按钮命令来完成指定的工作任务。最终记住，要用Close

7、命令来关闭设备和数据文件。使用MCI.OCX 来进展多媒体应用程序开发是很便利的，由于大多数属性都是简洁理解的，其中Command 属性尤为重要，它是在运行过程中向多媒体设备发命令。格式为:Form.Mmcontrol mandcmdstring$其中，cmdstring$变量是如下可执行命令名:Open、Close、Play、Pause、Stop、Back、Step、Prev、Next、Seek、Record、Eject、Sound 和Save。一旦给其命令设置，它就马上执行，所发生的错误存在Error 属性中。下面以播放DEMO.WAV波形文件文件为例，说明Visual Basic 多媒体

8、应用程序设计步骤。首先，创立一个包含有多媒体控件MCI.OCX的表格Form，于是屏幕上显示出外形类似录音机的掌握键，不过这时多媒体掌握部件是不能马上拿来用的在发出 OPEN 命令前要设置多媒体设备的属性Form1.MMControl1.Notify=False Form1.MMControl1.Wait=True Form1.MMControl1.Shareable=False Form1.MMControl1.DeviceType=“WaveAudio“ Form1.MMControl1.FileName=“c:windowss Mmdatademo.wav“ Form1.MMContro

9、l1 mand=“Open“End Sub最终，运行上述程序，掌握键呈黑色，这时就可以使用Play、Record 等键操作数据文件DEMO.WAV 了。例如用鼠标点按Play 键就能听到.WAV 音效装入CD 唱片On Error GoTo MCI_ERROR MMControl1 mand = “Open“ On Error GoTo 0设置时间格式MMControl1.TimeFormat = vbMCIFormatTmsf关闭LOAD 按钮，显示图片Command1.Enabled = False Picture1.Picture = Picture3.Picture 设置初始轨道数La

10、bel1.Caption = “1“ Exit Sub MCI_ERROR:DisplayErrorMessageBox Resume MCI_EXIT MCI_EXIT:Unload CD End SubPrivate Sub Form_Load( MMControl1.Wait = True MMControl1.UpdateInterval = 0 设置设备类型MMControl1.DeviceType = “CDAudio“设置缺省轨道数为 0Label1.Caption = “0“ nd SubPrivate Sub Form_Unload(Cancel As Integer MCI

11、Test.ShowEnd Sub“出带”按钮触发大事Private Sub MMControl1_EjectClick(Cancel As Integer Command1.Enabled = TruePicture1.Picture = Picture2.Picture MMControl1.UpdateInterval = 0 On Error GoTo MCI_ERROR2 MMControl1 mand = “Eject“ MMControl1 mand = “Close“ On Error GoTo 0Label1.Caption = “0“ Label3.BackColor = &

12、H404040 Exit SubMCI_ERROR2:DisplayErrorMessageBox Resume NextEnd Sub“向前”按钮触发大事Private Sub MMControl1_NextCompleted(ErrorCode As Long Label1.Caption = Str$(MMControl1.TrackEnd Sub“暂停”按钮触发大事Private Sub MMControl1_PauseClick(Cancel As Integer MMControl1.UpdateInterval = 0Label3.BackColor = &H404040 End

13、 Sub“播放”按钮触发大事Private Sub MMControl1_PlayClick(Cancel As IntegerMMControl1.UpdateInterval = 1000 Label1.Caption = Str$(MMControl1.TrackEnd Sub“向后”按钮触发大事Private Sub MMControl1_PrevCompleted(ErrorCode As Long Label1.Caption = Str$(MMControl1.TrackEnd SubPrivate Sub MMControl1_StatusUpdate( Label1.Capt

14、ion = Str$(MMControl1.Position And &HFF If MMControl1.Mode = vbMCIModePlay Then Label3.BackColor = &H80FF&ElseLabel3.BackColor = &H404040 End IfEnd Sub“停顿”按钮触发大事Private Sub MMControl1_StopClick(Cancel As Integer MMControl1.UpdateInterval = 0Label3.BackColor = &H404040 MMControl1.To = MMControl1.Star

15、t MMControl1 mand = “Seek“ MMControl1.Track = 1Label1.Caption = “1“ End Sub2、播放AVI音频视频接口文件电影包括声音和图像是宽阔计算机工作者最为关心的媒体信息之一，电 影处理技术也是多媒体关键技术之一。而在多媒体系统中，AVIAudio Video Interface，音频视频接口文件是存储电影包括声音和图像的标准格式，这些AVI 文件一般是通过捕获实时视频信号得来的，也可以通过扫描仪猎取图像或者使用动画制作软件得到。于是，屏幕窗口上的音频视频操作，就变成了对AVI 文件文件后缀为AVI的处理。在实际工作中，播放AVI

16、 文件即影片的方法有很多种，而其中以利用Visual Basic 的多媒体控件方法最为简洁、便利。下面以一个具体实例来说明如何播放AVI 文件：假设用户当前名目下知名字为DEMO. AVI 的视频音频文件，则利用Visul Basic 播放该影片需要经过如下步骤：1在Visual Basic 的窗体中参加一个MMControl 多媒体控件、一个Pictur eBox 图片框控件和两个ComandButton 命令按钮部件；2设置各个控件的属性，其中窗体命名为Form1，MMControl 多媒体控件命名为MMControl1、PictureBox 图片框控件命名为Picture1、两个Coma

17、nd Button 命令按钮控件分别命名为Play 和 Close；MMControl1.Filename = “DEMO.AVI“MMControl1.DeviceType= = “AVIVIDEO“ MMControl1.hWndDisplay = Picture1.hWnd MMControl1 mand = “OPEN“ MMControl1.To = 1MMControl1 mand = “SEEK“ MMControl1 mand = “PLAY“ End SubPrivate Sub Close_Click( MMControl1 mand = “STOP“ MMControl1

18、 mand = “CLOSE“End Sub值得留意的是：在播放AVI 文件之前，首先应当把AVI音频视频驱动程序安装在Windows 下。AVI 的驱动程序名为MCIAVI.DRV，必需将它拷贝到WI NDOWSSYSTEM 名目下，同时在SYSTEM.INI 文件的MCI局部加上：AVIVIDEO=MCIAVI.DRV这样，运行Windows 时，Windows 会自动地将AVI 的驱动程序安装好。以上仅描述了利用多媒体掌握部件播放音频文件.WAV、CD 唱片和音频视频文件.AVI的操作过程。实际上利用多媒体掌握部件同样可以播放动画文件.FLI、.FLC、MIDI 文件等其他媒体信息。六、

19、完毕语通过前面论述，不难看出：利用Visual Basic 供给的多媒体掌握部件MCI.O CX，宽阔计算机用户可以便利、快捷、高效率地开发出各种多媒体应用程序。 但需要强调的是：开发设计Visual Basic 多媒体应用程序，除了可以利用多媒体掌握部件以外，还可以承受其他手段，例如通过调用API 函数等等鉴于篇幅， 这里未做争论。可见， Visual Basic 确实是专业与非专业多媒体软件开发人员共同拥有的抱负开发工具。附表 1 MCI 设备类型定义设备类型设备描述CDAudio激光唱盘播放设备 DAT数字化磁带音频播放机DigitalVideo 动态数字视频图像设备Animation动画播放设备Other未给出标准定义的MCI 设备Overlay模拟视频图像叠加设备SequenceMIDI 音序发生器VCR可以使用程序掌握的磁盘录像机VideoDisc可以使用程序掌握的激光视盘机WaveAudio播放数字化波形音频的设备?附表 2 多媒体掌握部件特有大事列表大事说明Done完成MCI 命令动作Notify 为真 ButtonClick单击按钮ButtonCompleted 按钮执行命令完成ButtonGetFocus按钮获得输入焦点ButtonLostFocus 按钮失去输入焦点StatusUpdate更媒体掌握对象的状态信息10 / 10