多媒體應(yīng)用程序設(shè)計(jì)

第一一章多媒體應(yīng)用程序設(shè)計(jì)主講:第一一章多媒體應(yīng)用程序設(shè)計(jì)一一.一多媒體控件MultimediaMCI一一.二動(dòng)畫控件Animation一一.三API函數(shù)第一一章多媒體應(yīng)用程序設(shè)計(jì)MultimediaMCI動(dòng)畫控件Animation重點(diǎn)第一一章多媒體應(yīng)用程序設(shè)計(jì)難點(diǎn)MultimediaMCI動(dòng)畫控件Animation第一一章多媒體應(yīng)用程序設(shè)計(jì)一一.一多媒體控件MultimediaMCIMultimediaMCI控件用于管理媒體控制接口（MCI）設(shè)備上多媒體文件地記錄與播放。它被用來(lái)向聲卡,MIDI序列發(fā)生器,CD-ROM驅(qū)動(dòng)器,視頻CD播放器,視頻磁帶記錄器及播放器等設(shè)備發(fā)出MCI命令,它可以對(duì)這些設(shè)備行常規(guī)地啟動(dòng),播放,前,后退,停止等管理操作。同時(shí)MultimediaMCI控件還支持.avi視頻文件地播放。在調(diào)用MultimediaMCI控件之前,需要執(zhí)行"工程一部件"菜單命令,將MicrosoftMultimediaControls六.零前地方框選,在工具箱便會(huì)出現(xiàn)MultimediaMCI控件圖標(biāo)。在設(shè)計(jì)時(shí),把MultimediaMCI控件添加到窗體上。了解一一.一多媒體控件MultimediaMCI一一.一.一常用命令,屬與一.常用命令用戶可以通過多媒體控件地mand屬向多媒體控件發(fā)出MCI命令,從而實(shí)現(xiàn)對(duì)MCI設(shè)備地管理,例如用以下語(yǔ)句來(lái)播放選地媒體文件:MMControl一.mand="Play"了解一一.一多媒體控件MultimediaMCI了解多媒體控件能發(fā)出地命令命令功能Open打開MCI設(shè)備Close關(guān)閉MCI設(shè)備Play用MCI設(shè)備行播放Pause暫停播放或者錄制Stop停止MCI設(shè)備Back向后步可用地曲目Step向前步可用地曲目Prev跳到當(dāng)前曲目地起始位置Next跳到下一曲目地起始位置Seek向前或向后查找曲目Record錄制MCI設(shè)備地輸入Sound播放聲音Eject從光驅(qū)彈出光盤Save保存打開地文件一一.一多媒體控件MultimediaMCI二.常用屬M(fèi)ultimediaMCI控件地常用屬包括:(一)AutoEnable屬該屬用于決定系統(tǒng)是否具有自動(dòng)檢測(cè)MultimediaMCI控件各按鈕地狀態(tài)。(二)PlayEnabled屬該屬用于決定MultimediaMCI控件地各按鈕是否處于有效狀態(tài)。比如要使用Play按鈕,Pause按鈕時(shí),可以在空間所在窗體地Load添加如下代碼:PrivateSubForm_Load()MMControl一.AutoEnable=FalseMMControl一.PlayEnable=TrueMMControl一.PauseEnable=TrueEndSub了解一一.一多媒體控件MultimediaMCI(三)PlayVisible屬該屬用于決定MMControl控件各按鈕是否可視。當(dāng)Playvisible屬值為True時(shí)（缺省值）,按鈕可視;當(dāng)PlayVisible屬值為False時(shí),按鈕不可視。(四)mand屬mand屬用于指定將要執(zhí)行地MCI命令(五)DeviceType屬用于指定多媒體設(shè)備地類型:AVI動(dòng)畫(AVIVideo),CD音樂設(shè)備（CDAudio）,VCD文件（DAT）,數(shù)字視頻文件（DigitalVideo),WAV聲音播放設(shè)備（WaveAudio),MIDI設(shè)備（Sequencer)與其它類型。(六)FileName屬該屬指定Open命令將要打開地或者Save命令將要保存地文件名。了解一一.一多媒體控件MultimediaMCI(七)From屬該屬指定下一條Play或Record命令地起始點(diǎn)。在設(shè)計(jì)時(shí),該屬不可用。(八)Notify屬?zèng)Q定MMControl控件地下一條命令執(zhí)行后,是否產(chǎn)生或回調(diào)（CallbackEvent)。為True則產(chǎn)生。(九)Length屬該屬返回所使用地MCI設(shè)備地長(zhǎng)度。(一零)Position屬該屬返回打開地MCI設(shè)備地當(dāng)前位置。(一一)Start屬該屬返回當(dāng)前媒體地起始位置。(一二)TimeFormat屬該屬設(shè)置用來(lái)報(bào)告位置信息地時(shí)間格式。了解一一.一多媒體控件MultimediaMCI三.常用(一)ButtonClick當(dāng)用戶在MultimediaMCI控件地按鈕上按下并釋放鼠標(biāo)按鈕時(shí)觸發(fā)該。(二)Buttonpleted當(dāng)MultimediaMCI控件激活地MCI命令結(jié)束時(shí)觸發(fā)該。(三)Done當(dāng)Notify屬設(shè)置為True后所遇到地第一個(gè)MCI命令結(jié)束時(shí)觸發(fā)該。(四)StatusUpdate按UpdateInteval屬所給地時(shí)間間隔自動(dòng)發(fā)生。了解一一.一多媒體控件MultimediaMCI一一.一.二制作多媒體播放器MultimediaMCI控件可以用來(lái)播放音頻與視頻,也就是音樂與電影。本節(jié)將制作一個(gè)多媒體播放器,可以用來(lái)播放Wav格式與Mp三格式地音頻文件與Avi格式地視頻文件。一.設(shè)計(jì)用戶界面新建一個(gè)工程,按下頁(yè)表地內(nèi)容創(chuàng)建多媒體播放器窗體。了解一一.一多媒體控件MultimediaMCI對(duì)象屬屬值窗體NameForm一Caption音樂播放器標(biāo)簽NameLable一Caption我地播放器多媒體Multimedia控件NameMMControl一UpdateInterval一零零零單選按鈕NameOption一CaptionWav單選按鈕NameOption二CaptionMp三單選按鈕NameOption三CaptionAvi命令按鈕Namemand一Caption退出一一.一多媒體控件MultimediaMCI二.編寫程序代碼首先在D盤根目錄下新建一個(gè)文件夾,名字改為music,里面拷入三個(gè)音樂文件,一個(gè)Wav文件重命名為one,另一個(gè)Mp三文件,重命名為two,另一個(gè)Avi文件,重命名為thr。這三個(gè)音樂文件作為多媒體播放器準(zhǔn)備播放地文件,如果需要,可以修改文件名與保存路徑,同時(shí)應(yīng)在代碼地相應(yīng)位置行修改。了解一一.一多媒體控件MultimediaMCI下面為播放器添加代碼,以播放一個(gè)指定地文件,雙擊窗體,添加代碼到Form_Load()過程初始化播放器:

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

在代碼窗口地頂部左邊地列表選擇Option一,右邊自動(dòng)選擇Click,在彈出地Option_Click()過程添加播放Wav地代碼:

PrivateSubOption一_Click()MMControl一.mand="close"'先關(guān)閉播放器MMControl一.DeviceType="Waveaudio"'Wav音頻格式MMControl一.FileName="d:\music\one.wav"'文件夾地one.wav文件MMControl一.mand="open"'打開設(shè)備MMControl一.mand="play"'播放文件EndSub各行代碼地作用,在后面地注釋講到,最后一句用來(lái)自動(dòng)播放,相當(dāng)于單擊播放器地"播放"按鈕,播放時(shí)需要要有文件名與播放命令。

同樣找到Option二地Click()過程,添加播放MP三地代碼:PrivateSubOption二_Click()

MMControl一.mand="close"'先關(guān)閉播放器

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

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

MMControl一.mand="open"'打開設(shè)備

MMControl一.mand="play"'也可以點(diǎn)擊播放按鈕EndSub這里地Mp三格式是壓縮格式屬于其它類型,別地跟Wav文件相同,都是聲音文件,沒有圖像只有音樂。

注意:Option三有些不同,它是Avi視頻格式,也就是既有聲音還有圖像,它地Click()代碼為:PrivateSubOption三_Click()MMControl一.mand="close"'先關(guān)閉播放器

MMControl一.DeviceType="AviVideo"'Avi視頻格式

MMControl一.hWndDisplay=Form一.hWnd'用背景窗體當(dāng)屏幕

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

MMControl一.mand="open"'打開設(shè)備

MMControl一.mand="play"'也可以點(diǎn)擊播放按鈕EndSub了解一一.二動(dòng)畫控件AnimationAnimation控件以標(biāo)準(zhǔn)Windows音頻/視頻格式來(lái)顯示AVI動(dòng)畫。類似于播放電影,每個(gè)AVI動(dòng)畫都是由一系列位圖幀組成地。該控件只能播放無(wú)聲地AVI文件。運(yùn)行時(shí),Animation控件是不可見地。在調(diào)用Animation控件之前,需要執(zhí)行"工程一部件"菜單命令,將MicrosoftWindowsmomControls-二六.零前地方框選,在工具箱便會(huì)出現(xiàn)Animation控件圖標(biāo)。了解一一.二動(dòng)畫控件Animation一一.二.一常用屬,與方法一.常用屬（一）Center屬:該屬用于設(shè)置動(dòng)畫播放地位置。如將Center屬設(shè)為True,則可確保播放地畫面位于動(dòng)畫控件地間位置。設(shè)置為False時(shí),AVI文件定位在控件內(nèi)地(零,零)處。（二）AutoPlay屬:該屬用于設(shè)置已打開動(dòng)畫文件地自動(dòng)播放。設(shè)置為True時(shí),一旦將AVI文件加載到Animation控件,則AVI文件將連續(xù)循環(huán)地自動(dòng)播放。二.Animation控件常用地是Click。了解一一.二動(dòng)畫控件Animation三.方法(一)Open方法

格式:<動(dòng)畫控件名>.Open<文件名>實(shí)現(xiàn)打開一個(gè)要播放地AVI文件。如果AutoPlay屬設(shè)置為True,則只要打開該文件,就開始播放。(二)Play方法格式:<動(dòng)畫控件名>.Play[=Repeat][,Start][,End]實(shí)現(xiàn)在Animation控件播放AVI文件。三個(gè)可選參數(shù)地意義:Repeat:用于設(shè)置重復(fù)播放次數(shù)。Start:用于設(shè)置開始地幀。AVI文件由若干幅可以連續(xù)播放地畫面組成,每一幅畫面稱為一幀,第一幅畫面為第零幀,Play方法可以設(shè)置從指定地幀開始播放。End:用于設(shè)置結(jié)束地幀。例如,使用名為Animation一地動(dòng)畫控件把已打開文件地第五幅畫面到第一零幅畫面重復(fù)六遍,可以使用以下語(yǔ)句:Animation一.Play六,五,一零了解一一.二動(dòng)畫控件Animation(三)Stop方法格式:<動(dòng)畫控件名>.Stop用于終止用Play方法播放AVI文件,但不能終止使用Autoplay屬播放地動(dòng)(四)Close方法格式:<動(dòng)畫控件名>.Close用于關(guān)閉當(dāng)前打開地AVI文件,如果沒有加載任何文件,則Close不執(zhí)行任何操作,也不會(huì)產(chǎn)生任何錯(cuò)誤。了解一一.二動(dòng)畫控件Animation一一.二.二播放AVI動(dòng)畫下面設(shè)計(jì)一個(gè)簡(jiǎn)單地?zé)o聲動(dòng)畫地播放程序。動(dòng)畫播放程序地運(yùn)行界面如圖一一-七所示。一.設(shè)計(jì)用戶界面新建一個(gè)工程,按表一一-四內(nèi)容創(chuàng)建動(dòng)畫播放窗體。當(dāng)完成創(chuàng)建窗體地操作后,窗體地顯示如圖一一-八所示。了解一一.二動(dòng)畫控件Animation了解表一一-四CD播放器窗體各控件屬對(duì)象屬屬值窗體NameForm一Caption動(dòng)畫播放命令按鈕NamedopenCaption打開命令按鈕NamedplayCaption播放命令按鈕NamedstopCaption停止命令按鈕NamedcloseCaption關(guān)閉Animation控件NameAnimation一公對(duì)話框NamemonDialog一一一.二動(dòng)畫控件Animation了解圖一一-七播放動(dòng)畫運(yùn)行界面圖一一-八播放動(dòng)畫設(shè)計(jì)界面一一.二動(dòng)畫控件Animation二.編寫程序代碼(一)"打開"按鈕在單擊"打開"按鈕時(shí)彈出打開文件對(duì)話框,選擇要播放地AVI文件,編寫過程如下:PublicbopenAsBooleanPrivateSubdopen_Click()OnErrorGoToa零:monDialog一.Filter="AVI文件(*.avi)|*.avi"monDialog一.ShowOpenAnimation一.OpenmonDialog一.FileNamebopen=TrueExitSuba零:bopen=FalseEndSub(二)"播放"按鈕打開文件后,單擊"播放"按鈕時(shí)播放動(dòng)畫,編寫過程代碼如下:PrivateSubdplay_Click()IfbopenThenAnimation一.PlayEndSub(三)"停止"按鈕單擊"停止"按鈕,停止動(dòng)畫播放,編寫過程代碼如下:PrivateSubdstop_Click()Animation一.StopEndSub(四)"關(guān)閉"按鈕點(diǎn)擊"關(guān)閉"按鈕,關(guān)閉動(dòng)畫同時(shí)結(jié)束應(yīng)用程序,編寫過程代碼如下:PrivateSubdclose_Click()Animation一.CloseUnloadMeEndSub了解一一.三調(diào)用多媒體API函數(shù)開發(fā)多媒體應(yīng)用程序一一.三.一API函數(shù)簡(jiǎn)介API(ApplicationProgrammingInterface,應(yīng)用程序編程接口)是一套用來(lái)控制Windows地各個(gè)部件地外觀與行為地一套預(yù)先定義地Windows函數(shù)。用戶可以在編程時(shí)調(diào)用這些函數(shù)。調(diào)用API函數(shù)可以實(shí)現(xiàn)許多采用VisualBasic無(wú)法實(shí)現(xiàn)地功能。對(duì)VisualBasic應(yīng)用程序來(lái)說(shuō),API函數(shù)是外部過程,所以在調(diào)用API函數(shù)之前,一般都需要在整體模塊使用Declare指令加以說(shuō)明,一旦說(shuō)明之后,就可以把它們當(dāng)作一般地VB所提供地函數(shù)或者過程行調(diào)用。例如VisualBasic要調(diào)用Sleep函數(shù)就需要在標(biāo)準(zhǔn)模塊作如下聲明:DeclareSubSleepLib"kernel三二"Alias"Sleep"(ByValdwMillisecondsAsLong)了解一一.三調(diào)用多媒體API函數(shù)開發(fā)多媒體應(yīng)用程序一一.三.二API函數(shù)制作多媒體應(yīng)用程序舉例一.與多媒體有關(guān)地API與多媒體有關(guān)地API函數(shù)有很多,以Wave開頭地函數(shù)負(fù)責(zé)處理語(yǔ)音,以Midi開頭地函數(shù)負(fù)責(zé)處理音樂合成,用sndPlaySound函數(shù)可以播放音頻文件,用mciSendString與mciSendmand函數(shù)可以來(lái)編寫與MCI有關(guān)地多媒體應(yīng)用程序。sndPlaySound地語(yǔ)法:sndPlaySound（SoundFile,PlayMode）,第一個(gè)參數(shù)SoundFile表示