创建ActiveX控件和多媒体应用程序.ppt

第11章 AxtiveX控件 P325,ActiveX的三种表现形式： ActiveX EXE：支持COM的独立EXE进程。当需要系统服务，或相对独立的子系统存在时，可以选用这种形式，具有良好的可靠性。但跨进程调用，占用资源大，效率较低，不适合频率调用的核心组件。 ActiveX DLL：以DLL方式封装的COM组件。能够提供进程内的透明调用能力。效率高，实现容易。但可靠性不如EXE形式的好。是目前用得最为广泛的ActiveX形式。 ActiveX控件：如果需要ActiveX与用户通过人机界面来交流，则需要以控件形式生成。其内质与ActiveX DLL一样。只是多了一层界面。,13.1 ActiveX部件简介,AcitiveX部件是指一些可执行的代码，如一个.exe、.dll、.ocx文件，它们在提供对象时遵循AcitiveX的规范。通过ActiveX技术，程序员就能把这些可重用的软件部件组装到应用程序或服务程序中。,VB6.0的控件分为标准控件和 ActiveX控件两类。 ActiveX控件以.ocx为后缀保存在WindowsSystem目录下，使用前必须先将它们调到IDE工具箱中。 AcitveX控件分为两类：控件和可插入对象。 可插入对象就是一个应用程序，如Microsoft Word。,11.2 创建ActiveX控件,起动VB，打开“ActiveX控件”。 设计窗体有一个UserControl对象，可以修改其名称为新ActiveX控件名称。在此可以进行ActiveX控件制作。 利用“工具”中“添加过程”可以为新ActiveX 控件公有的“属性”、“事件”等。 界面与代码设计好后，在指定目录生成指定文件的.ocx，完成自制ActiveX控件的工作。 另起VB，就可以通过增加部件找到所自制的新ActiveX控件，放在工具箱上，直接就可使用了。,第12章 开发多媒体应用程序 P325,* MMControl控件； * 多媒体应用程序的实现：音频播放器、视频播放器的制作；使用Win32 API函数。,MCIMultimedia Control Interface,媒体播放器程序：Mplayer.exe CD播放器程序： Cdplayer.exe,*.avi 有声或无声动画文件 *.mid MIDI（Music Instrument Digital Interface 乐器数字接口）格式，只能播放器乐，不含语音。因为.mid文件只存储128种乐器得曲谱而非声波本身。 *.wav 记录声音模拟信号，可以是任何声音。,1. 概述,任何播放动作的5个步骤,选择播放设备（DeviceType) 选择播放文件名（FileName) 打开文件（Open) 播放文件（Play) 关闭（Close),2. MCI控件,“工程”“部件”“控件”“Microsoft MultiMedia Control 6.0”,属性：PrevEnabled 回到节目的起点,属性：NextEnabled 跳到下一个节目的起点,属性：PlayEnabled 播放,属性：PauseEnabled 暂停,属性：EjectEnabled 弹出光盘,属性：RecordEnabled 录音,属性：StopEnabled 停止,属性：StepEnabled 步进,属性：BackEnabled 步退,MMControl控件主要属性和事件,DeviceType: 指定适当的播放设备。P327 媒体设备 DeviceName 描述 视频（.avi文件） AVIVideo Microsoft AVI格式视频 音频CDs CDAudio 用CD-ROM驱动器播放音乐CD MIDI音序器 Sequencer MIDI音序器数据视频 音频（.wav文件） WaveAudio Microsoft Windows音频文件 。,MMControl1.DeviceType=“waveAudio”,Command属性：把MCI命令发送给DeviceType指定的设备。发送的命令与MCI控件上各按钮的名称一致。,MMControl1.Command=“ Play ”,Length属性： 多媒体文件的采样总数，用于判断播放是否到达文件末尾。 Position 属性：多媒体文件的采样序号，从1开始，表明播放到达的位置。 Notify 属性： 决定MCI命令执行后是否发生Done事件。 UpdateInterval属性：设置MMControl控件的StatusUpdate事件的触发间隔（以微秒为单位）,StatusUpdate事件：在UpdateInterval属性设置的时间间隔内自动激活，对控件的运行状态进行跟踪。 MMControl1_Done事件：在多媒体控件执行播放(Play)的过程中，定时执行Done事件的过程代码。,3. 制作播放器1MMControl,Private Sub Form_Load() CommonDialog1.ShowOpen MMControl1.DeviceType = WaveAudio MMControl1.FileName = CommonDialog1.FileName 打开 MCI WaveAudio 设备。 MMControl1.Command = Open End Sub Private Sub MMControl1_StatusUpdate() ProgressBar1.Max = MMControl1.Length ProgressBar1.Value = MMControl1.Position End Sub,添加部件：Microsoft MultiMedia Control 6.0MMControl Microsoft Common Dialog Control 6.0 CommonDialog Microsoft Windows Common Controls 6.0ProgressBar,3. 制作播放器2MediaPlayer,Private Sub Form_Load() CommonDialog1.ShowOpen MediaPlayer1.FileName = CommonDialog1.FileName End Sub,添加部件： Microsoft Common Dialog Control 6.0 CommonDialog Windows Media PlayerMediaplayer,4. 使用API多媒体函数实现播放,APIApplication Programming Interface 应用程序编程接口,API是Windows系统提供的DLL(动态链接库) * Windows内核库(Kernel 32.dll) * Windows用户界面管理库(User.dll) * Windows图形设备界面库(Gdi32.dll) * 多媒体库(Winmm.dll),使用API浏览器,外接程序外接程序管理器VB 6 API Viewer （加载）,这时在“外接程序”菜单中添加了“API浏览器”项,打开“API浏览器”加载文本文件选择“Win32api.txt”,API类型“声明” 以wave开头的函数负责处理语音 以midi开头的函数用于音乐合成 用sndPlaySound过程可以播放音频文件或系统声音 mci有关的函数可以编写多媒体应用程序,API类型“常数” 选用以上所选择的声明函数对应的参数。,例：调用Windows API函数sndPlaySound播放音频文件,在API文本浏览器中选择sndPlaySound声明函数并加载,其中有两个参数： lpszSoundName指定播放的音频文件或系统声音 uFlags设置播放状态 Const SND_SYNC = &H0 play synchronously (default) 同步播放 Const SND_ASYNC = &H1 play asynchronously 异步播放 Const SND_LOOP = &H8 loop the sound until next sndPlaySound 循环播放,Public Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long,Private Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Const SND_LOOP = &H8 loop the sound until next sndPlaySound Const SND_ASYNC = &H1 play asynchronously Const SND_SYNC = &H0 play synchronously (default) Private Sub Command1_Click() Dim i As Integer CommonDialog1.ShowOpen i = sndPlaySound(CommonDialog1.FileName, SND_ASYNC) End Sub Private Sub Command2_Click() Dim i As Integer i = sndPlaySound( , 0) End End Sub,