多媒體播放器的設(shè)計(jì)

/目錄１vb簡介………………12多媒體播放器的開發(fā)設(shè)計(jì)…………22。1設(shè)計(jì)要求…………２2.２設(shè)計(jì)方案…………22．3基本原理…………３3設(shè)計(jì)方案的實(shí)現(xiàn)……………………54程序代碼……………55運(yùn)行結(jié)果……………106心得體會……………137參考資料……………1４1ＶB簡介Viｓuaｌ意為可視的、可見的，指的是開發(fā)像Windｏws操作系統(tǒng)的圖形用戶界面（GｒａphicUseｒInｔerfａｃe，GUI）的方法,它與其他編程軟件不同的是不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立好的對象拖放到屏幕上相應(yīng)的位置即可。應(yīng)該說,這是一次質(zhì)的飛躍，是一次編程技術(shù)的革命。Ｂaｓic實(shí)際上是一個(gè)短語的縮寫,這個(gè)短語就是Begiｎnerｓ'Ａll-PｕrposeSｙmbolicInsｔrｕctiｏnCｏｄe，其中文意思為“初學(xué)者通用符號指令代碼”。ViｓuａlBasic6有學(xué)習(xí)版、專業(yè)版和企業(yè)版三種版本,以滿足不同的開發(fā)需要。學(xué)習(xí)版適用于普通學(xué)習(xí)者及大多數(shù)使用ＶiｓuａlBａｓｉc開發(fā)一般Wiｎdoｗs應(yīng)用程序的人員；專業(yè)版適用于計(jì)算機(jī)專業(yè)開發(fā)人員，包括了學(xué)習(xí)版的全部內(nèi)容功能以及Iｎternｅt控件開發(fā)工具之類的高級特性;企業(yè)版除包含專業(yè)版全部的內(nèi)容外,還有自動(dòng)化構(gòu)件管理器等工具，使得專業(yè)編程人員能夠開發(fā)功能強(qiáng)大的組骨子里分布式應(yīng)用程序。隨著版本的提高，ViｓuａlBasic的功能也越來越強(qiáng)。自從5。0版，ＶisualＢａsic推出了中文版,與前個(gè)版本相比，其功能有了很大提升.但是,功能再強(qiáng)大,ViｓuａlＢasiｃ仍然有一個(gè)缺點(diǎn)：在沒有MＳVBＶM＊＊。DLL的計(jì)算機(jī)上必須安裝所需的DLL文件(同樣VｉsuａlC++在沒有MSVCRT*。DLL情況下亦無法運(yùn)行）。不過在Ｗiｎｄows2０00之后,這個(gè)DLＬ就被預(yù)置到操作系統(tǒng)中了，一般來說，程序如果只使用了VB內(nèi)部的控件和對象,基本上不會有太大的問題.在２1世紀(jì)初，Micrｏｓoft公司推出VisｕalStudiｏ.NET２０03，它與ＶｉsualBasic之間有了重大變化，ＶｉsualStuｄio為各種編程工具做了一個(gè)平臺，Viｓｕa可在這種平臺上運(yùn)行。相對于傳統(tǒng)VＢ，有很大的不同。ＶB。Neｔ首次使用.Net構(gòu)架進(jìn)行可視化編程,并且能很好地與ＣOM構(gòu)架兼容,ViｓｕaｌStｕdio．NET20０3應(yīng)用．NETFrａmework1.1。20０５年VisｕaｌStudiｏ20０5則運(yùn)用了ＮET2.0的技術(shù)，更加的方便了程序員的工作?？墒切碌某绦?qū)ο到y(tǒng)配置要求也較高,需要微軟.NetFramｅwork２.０以上的.Net構(gòu)架支持。2０07年１2月,微軟（Ｍicroｓoｆｔ)推出了VisualＳtudio2０08Beｔａ2發(fā)生了重大的變化（見附圖）在代碼輸入的時(shí)候,可以比VB２005快很多,在非特殊的情況下，VＢ2００８都會自動(dòng)開啟自動(dòng)完成關(guān)鍵字這個(gè)命令而且支持最新的．NETＦｒamework3。５SP1Beｔa微軟開發(fā)了一系列有關(guān)ＶB的腳本語言:VisuａｌＢasｉｃforAｐplｉcatｉoｎｓ,即VBA，包含在微軟的應(yīng)用程序中（比如MicｒｏsoｆｔＯffiｃe),以及類似WoｒｄPeｒfｅctOｆfiｃe這樣第三方的產(chǎn)品里面。VBA這樣嵌入在各種應(yīng)用程序中看起來有些矛盾,但是它的功能和VB一樣強(qiáng)大.VBＳcrｉpt是ＡＳP的默認(rèn)語言，還可以用在Wｉndowｓ腳本編寫（ShellScript)和網(wǎng)頁編碼（ＨＴMＬ）中.盡管它的語法類似于VＢ,但是它卻是一種完全不同的語言。ＶＢS不使用VB運(yùn)行庫運(yùn)行，而是由Windoｗｓ腳本宿主(wsｃript。exｅ—ＭｉcrｏsoftＷinｄowsＢaｓｅdＳcriptHｏsｔ）解釋執(zhí)行。這兩種語言之中的不同點(diǎn)影響ASＰ網(wǎng)站的表現(xiàn)。當(dāng)微軟準(zhǔn)備開發(fā)一種新的編程工具的時(shí)候,第一決定就是利用最搶手的VＢ6來進(jìn)行修改,或者就是重新組建工程開發(fā)新工具。微軟后來開發(fā)了VB的繼任者ViｓuａlBasｉｃ。NET,同時(shí)也是。NET平臺的一部分。VB.ＮET編程語言是一種真正的面向?qū)ο缶幊陶Z言（VＢ4—VB６只能稱為基于對象而不是面向?qū)ο?，最明顯的特征就是ＶB4—VB6都不支持類的繼承),和傳統(tǒng)VｉsuaｌBａsic并不完全兼容.[2］２多媒體播放器的開發(fā)設(shè)計(jì)2.１設(shè)計(jì)要求內(nèi)容：多媒體播放器是根據(jù)計(jì)算機(jī)用戶使用系統(tǒng)時(shí)的實(shí)際需求而開發(fā)，完全能夠?qū)崿F(xiàn)用戶對計(jì)算機(jī)多媒體文件的查詢和播放.要求：根據(jù)多媒體播放器的要求，要求系統(tǒng)具有以下功能：選取多媒體文件；播放多媒體文件;停止播放多媒體文件；打開字幕功能；關(guān)閉字幕功能；打開CD驅(qū)動(dòng)器功能；關(guān)閉ＣD驅(qū)動(dòng)器功能;添加播放列表功能。2．2設(shè)計(jì)方案WindｏｗsMｅｄiaPlayer控件(ｍsｄxm．ocx)支持的文件類型比較豐富，可以播放WAV、MID、MP3、WMA、AIＦ、ASF、MPEG、MPＧ、AVI、ＭOV、DＡT、ＲMI等多媒體文件。在ＶＢ6．0ＳP5下利用這個(gè)控件實(shí)現(xiàn)自動(dòng)連續(xù)循環(huán)播放以及啟動(dòng)時(shí)自動(dòng)從上次退出時(shí)的文件處繼續(xù)播放多媒體文件的技術(shù)。多媒體技術(shù)的基本工作原理是：多媒體終端通過不同接入層網(wǎng)絡(luò)(固定NGN、移動(dòng)NGN、Iｎternet),接入傳輸層IP分組網(wǎng)絡(luò)，在控制層IMS/ＳofｔSwitch等SIPPrｏxy設(shè)備的控制下，通過業(yè)務(wù)層的邏輯控制實(shí)現(xiàn)多媒體業(yè)務(wù)及應(yīng)用。其結(jié)構(gòu)下圖所示:圖1多媒體結(jié)構(gòu)圖ＭＰｌayer是一款開源的多媒體播放器,以GNU通用公共許可證發(fā)布。此款軟件可在各主流作業(yè)系統(tǒng)使用，例如Ｌinux和其他類Ｕniｘ作業(yè)系統(tǒng)、微軟的視窗系統(tǒng)及蘋果電腦的MacＯSＸ系統(tǒng)。MＰl(wèi)ayer是建基于命令行界面，在各作業(yè)系統(tǒng)可選擇安裝不同的圖形界面。MPlayer是Lｉnux上的最強(qiáng)大的電影播放器（也能跑在許多其它Unixｓ上，甚至非x86CPU上）。如今它也有了在微軟視窗操作系統(tǒng)和蘋果MaｃOS中的版本。它能使用眾多的本地的,XＡnim，RealPlａyeｒ,和Wiｎ３2ＤLL編解碼器，播放大多數(shù)MＰEG，ＶOB,AVI，OGG，VIVＯ,AＳF/WMV，QT/ＭＯV，ＦＬI,RM，NuppｅlVideo，yuｖ4mpeg，F(xiàn)ILM，RｏQ文件.你還能觀看VidｅoCＤ,SＶCＤ，DVD，３ｉvｘ,ReａlMedｉa，和DｉｖX格式的電影(你根本不需要aｖｉfｉｌe庫)。MPlayer的另一個(gè)大的特色是廣泛的輸出設(shè)備支持。它可以在Ｘ11,Xv,DＧA,ＯpｅｎGL,ＳVＧAlib，ｆｂｄev,AAlib，DiｒeｃtFB下工作，而且你也能使用GGI和ＳDL（由此可以使用他們支持的各種驅(qū)動(dòng)模式）和一些低級的硬件相關(guān)的驅(qū)動(dòng)模式（比如Matｒｏx,3Dfｘ和Rａｄeon,Maｃh64，Peｒmｅdia3).他們大多數(shù)支持軟件或者硬件縮放，因此能在全屏下觀賞電影。MPlａyer還支持通過硬件MPEＧ解碼卡顯示,諸如DＶB和DＸR3與Hollywｏod+?？梢允褂肊uropeａn/ISO８859—1,2(匈牙利語,英語,捷克語等等）,西里爾語，韓語的字體的清晰放大并且反鋸齒的字幕(支持１0種格式），和oｎsｃｒeendｉsplaｙ（OSD）。MPlayeｒ是Liｎux上一款非常優(yōu)秀的電影播放器，能夠播放大多數(shù)視頻文件，如MPEG,VOB，AVI,OＧG，VIVO,ＡSF/WＭV，QT/MOV，ＦＬI,RM，ＮuｐpelVidｅo，yuｖ4mpeg,FＩLＭ，RｏQ等。而且它的另一個(gè)優(yōu)點(diǎn)是可移植性好,現(xiàn)在常用的微軟的Wｉｎdows平臺和蘋果的Maｃ平臺都有它的身影.不僅如此，Ｍｐlaｙer還可以移植到很多非X86的平臺上。２。3基本原理MＣI(媒體控制接口）是Microsｏfｔ公司為實(shí)現(xiàn)Wiｎdows系統(tǒng)下設(shè)備無關(guān)性而提供的媒體控制接口標(biāo)準(zhǔn)。用戶可以方便地使用MCI控制標(biāo)準(zhǔn)的多媒體設(shè)備。ＭCI包含在Windowｓ多媒體擴(kuò)展的MMＳYSTEM模塊中，用來協(xié)調(diào)事件間以及MCI設(shè)備驅(qū)動(dòng)程序間的通訊，提供了與設(shè)備無關(guān)的接口屬性。通常應(yīng)用程序是通過指定一個(gè)MＣI設(shè)備類型來區(qū)分ＭCI設(shè)備,設(shè)備類型指明了當(dāng)前實(shí)際使用設(shè)備的物理類型，不同的設(shè)備類型使用不同的控件屬性來進(jìn)行描述（見附表１）。從使用的控制方式上來說,MＣI設(shè)備分為復(fù)合和簡單兩類。一個(gè)簡單MCI設(shè)備并不需要設(shè)備元素。例如，CD音頻和音碟機(jī)就是在一個(gè)已經(jīng)安裝好了的硬盤上工作的，它們不需要應(yīng)用程序?yàn)槠洳僮鞯拿襟w內(nèi)容提供任何信息.但對于復(fù)合的MCＩ設(shè)備，就需要應(yīng)用程序提供設(shè)備元素，即一個(gè)包含全部路徑名的源數(shù)據(jù)文件或目的文件。ＶiｓualBaｓiｃ語言的CuｓtoｍControｌ（用戶控制部件)概念體現(xiàn)了當(dāng)今軟件設(shè)計(jì)的發(fā)展潮流－-面向?qū)ο蠹夹g(shù)，編程者可以在VisualBasic的工具箱（Toolboｘ）中嵌入各式各樣五花八門的用戶控件，每個(gè)用戶控制部件都有一定的屬性和操作方法，編程者通過屬性的設(shè)置和方法的控制完成特定的功能。為了方便地控制多媒體,在專業(yè)版ＶisｕaｌＢａsic工具箱中提供了一個(gè)用于多媒體目的的用戶控件—-MＣI。OCX。多媒體MCI控件MＣI.ＯＣX專用于對多媒體控制接口MCＩ設(shè)備的多媒體數(shù)據(jù)文件實(shí)施記錄和回放，從目的效果上來說，該控件通過一組按鈕來發(fā)出種種設(shè)備控制命令以實(shí)現(xiàn)對諸如:音頻面板、ＭIDI音序器、ＣD-ROM驅(qū)動(dòng)器、音頻CD播放機(jī)、錄像帶播放、錄音帶錄放等設(shè)備的控制。在ＶisｕalＢａｓiｃ程序設(shè)計(jì)時(shí),當(dāng)在表中加入多媒體MCI控件時(shí)（在工具箱內(nèi)雙擊MCI控件）,則出現(xiàn)下列按鈕群：向前(Pｒev）、向后(Nexｔ)、播放（Ｐｌaｙ)、暫停（Pause）、返回(Baｃk)、單步(Ｓtep）、停止（Stop)、記錄(Record)和出帶（Eject)。應(yīng)用程序?qū)CI的這組按鈕操作非常靈活方便,如當(dāng)我們打開一個(gè)ＭCI設(shè)備后，就可以根據(jù)該設(shè)備類型的屬性隨時(shí)從控件中選擇合適的狀態(tài)按鈕來表示即刻設(shè)備的物理狀態(tài).所有ＭCI控件可以有下列幾種方式來編程:⑴控件及其各按鈕的可見性和使能性;⑵可變或完全對控件進(jìn)行重新定義；⑶在一個(gè)窗口表格中可以同時(shí)控制多個(gè)設(shè)備。在ＶisuａlBａsｉc3.０專業(yè)版中,多媒體控件MCI。OＣX（在VisｕalBaｓic3．０和4.0中，多媒體控件的擴(kuò)展名為。VＢX)是作為可選用部件提供的.為了使用它，首先要執(zhí)行Ｆiｌe菜單命令,把Ｗｉｎdowssｙstｅm目錄下的ＭCI。OCX加入到工具箱（Toolbox)中,這時(shí)會在工具箱中出現(xiàn)相應(yīng)的MCＩ.OＣX圖標(biāo)。如果使用的是VｉｓuaｌBasic4.0版（或5。0版）,選擇ooｌｓCusｔｏmCｏntrolｓ菜單或直接鍵入Ｃtrｌ＋T，即可出現(xiàn)對話框,在ＡvａｉlａｂleCｏｎtroｌｓ列表框中選中MicrosｏｆｔMuｌｔimediａContｒoｌs條目旁邊的檢查框，同樣會在工具箱中出現(xiàn)MCＩ．OCX圖標(biāo).

雙擊工具箱中的多媒體控件MCI.ＯＣＸ圖標(biāo)，調(diào)用ＭCI。OCX控件之后，表單FOＲM中將出現(xiàn)一排灰色的媒體控制按鈕(九個(gè)）。多媒體控件ＭCＩ.OCX包含有一組高級的與設(shè)備無關(guān)的控制命令。在使用該多媒體控件時(shí)，首先用OＰEＮ命令打開MCI設(shè)備（多媒體設(shè)備)并建立一個(gè)與之對應(yīng)的文件，以便來進(jìn)行錄或放等操作（但是對諸如ＣDＡudio、VＣＲ和錄像帶不能使用相應(yīng)文件）。一旦設(shè)備打開成功，就可以向它發(fā)出各種操作命令(見附表的按鈕命令）來完成指定的工作任務(wù)。最后記住，要用Ｃｌose命令來關(guān)閉設(shè)備和數(shù)據(jù)文件。?使用MＣI．OＣX來進(jìn)行多媒體應(yīng)用程序開發(fā)是很方便的，因?yàn)榇蠖鄶?shù)屬性都是容易理解的,其中Command屬性尤為重要,它是在運(yùn)行過程中向多媒體設(shè)備發(fā)命令.格式為：

ｍand＝cｍdｓtring$

其中，ｃmｄstｒｉng$變量是如下可執(zhí)行命令名:Open、Close、Play、Pause、Sｔｏp、Bacｋ、Steｐ、Prｅv、Next、Seek、Recoｒd、Eject、Soｕnd和Ｓａｖe。一旦給其命令設(shè)置,它就立刻執(zhí)行,所發(fā)生的錯(cuò)誤存在Error屬性中。

下面以播放DＥMO.WAV（波形文件)文件為例，說明VｉsualBasic多媒體應(yīng)用程序設(shè)計(jì)步驟。

首先,創(chuàng)建一個(gè)包含有多媒體控件(MCI.ＯCX)的表格（Foｒｍ),于是屏幕上顯示出形狀類似錄音機(jī)的控制鍵,不過這時(shí)多媒體控制部件是不能馬上拿來用的（各鍵呈灰色）,須通過程序代碼來改變鍵的狀態(tài)。

其次，在Form_Lｏad過程中,插入相應(yīng)程序代碼。如下?SｕbFoｒm_Loａd（)?‘在發(fā)出ＯPEN命令前要設(shè)置多媒體設(shè)備的屬性?Fｏrm１．MＭCoｎtrｏl1.Ｎotify=Ｆalsｅ?Fｏrｍ1.MMＣontｒol1.Waiｔ=Trｕe

Ｆoｒm1.MMContｒoｌ１.Shareable＝False

Forｍ1.MMＣontroｌ１．DeviｃeTyｐe="WaveAudｉｏ"?Foｒm１。MMＣontrｏl1。"c:windｏwss

Mmdataｄeｍo.wav"

mａnｄ=”Ｏｐｅn"

EndSub3設(shè)計(jì)方案的實(shí)現(xiàn)3。１自動(dòng)連續(xù)循環(huán)播放多個(gè)文件通過對通用對話框控件（COMＤLG3２.OCX）的有關(guān)屬性進(jìn)行設(shè)置，可實(shí)現(xiàn)按選擇的文件類型在列表框中顯示符合條件的文件，用戶可在該列表框中顯示符合條件的文件，用戶可在該列表框中選擇一個(gè)文件，或選擇連續(xù)或不連續(xù)的幾個(gè)文件,若選擇了多個(gè)文件,則按順序連續(xù)循環(huán)播放。開始播放后，組合框和窗體的標(biāo)題欄同時(shí)顯示正在播放文件的文件名。3.２自動(dòng)記憶播放目錄和正在播放的文件的路徑退出播放器時(shí)，程序自動(dòng)將用戶選擇的目錄保存到Ｗindｏws的注冊表中，以便下次選擇要播放的文件時(shí),在打開對話框中，直接顯示的是上次選擇的目錄。同時(shí)，自動(dòng)將用戶選擇的文件清單保存到文件中,以便下次啟動(dòng)該程序時(shí)，可以直接從退出時(shí)正在播放的那個(gè)文件開始繼續(xù)播放,這樣就能實(shí)現(xiàn)每次啟動(dòng)播放器，首先播放的是上次退出時(shí)播放的那個(gè)文件。這樣做就使程序具有了記憶功能。３．3用戶自定義播放順序單擊下一首按鈕，開始播放下一個(gè)文件，單擊上一首按鈕，開始播放上一個(gè)文件。單擊暫停按鈕，則播放器暫停播放，同時(shí)暫停按鈕變?yōu)殚_始按鈕，單擊開始按鈕，播放器從暫停處繼續(xù)播放,同時(shí)開始按鈕恢復(fù)為暫停按鈕。單擊組合框右邊的下拉箭頭,可以看到正在播放的文件列表，要想換一個(gè)文件播放,直接單擊文件名即可。用戶也可以直接打開播放列表文件,用文本編輯器編輯播放文件的順序.程序代碼4。1界面布局設(shè)計(jì)新建一個(gè)窗體Foｒml,在上面畫一個(gè)組合框Ｃomｂｏｌ,設(shè)置其Stｙle屬性2—DｒｏpｄowｎList，畫五個(gè)命令按鈕（打開、暫停、關(guān)閉、上一首、下一首）,一個(gè)通用對話框(ＣommonDｉａlog）控件,一個(gè)媒體播放器(WinｄowｓMeｄiaPlaｙer)控件.調(diào)整好控件在窗體中的位置。4。2系統(tǒng)初始化PrivateDｅcｌaｒeFuｎctioｎGetSystemDiｒectoｒyLｉb″Ｋｅrnｅl32″Aliaｓ″GetSｙｓtemDirectｏryA″（ＢyVaｌpBｕffeｒAsSｔrｉｎg，BｙVａlnSizｅAsＬoｎg)AsLong返回Ｗｉｎ２ｄｏwｓ\systｅｍ所在的文件夾PrivateＷinSysＰaｔhAsStｒｉnｇPrivateSelectFＮame（１0００）AsStｒingＰrｉｖateＳelｅｃtNｕmAｓIｎtｅger，ＮeｘtPlayingAsIntegerＰrivatｅPrｅｖiousPathＡsString此變量保存用戶上次選擇的目錄,其值保存在Ｗｉndows注冊表中4．3自動(dòng)從上次退出時(shí)的文件處繼續(xù)播放要實(shí)現(xiàn)此功能,可以在窗體的Load事件中編寫如下代碼：Diｍtmp1AsＳtrｉngDiｍtｍp2ＡｓIｎｔegerMｅｄiaPlayｅr1.AutoRewind=ＴrueMediaPlａyｅr1．AutoSｔａｒｔ=TrueＭｅdiaPlayer１．ShｏwStatuｓＢar=ＴｒueＭediaＰl(wèi)ａyeｒ1。SｈｏwDisplay=TｒuｅMediaＰl(wèi)ayｅｒ1．AutoSize=ＦaｌseＣｏmbo１.Ｌocｋed=ＦaｌsePreviｏuｓPath=GetSetｔiｎg(″ＭyＰｌａｙer″,″PlaｙMM″，″LaｓtPath″，″NoDaｔa″)以下代碼將上次選擇的多媒體文件(保存在ＷiｎSｙsＰａt(yī)ｈ中)讀出來,放SｅlectFNaｍe數(shù)組中,并開始播放tmｐ１=Spａce(2６0）tｍp2=GetSysｔeｍＤirectｏry（tmp1，Len(ｔmp1））ＷｉnＳysPath=Ｌeｆt(tmp1,ｔmｐ2）ＷinSyｓPaｔh=WingＳｙｓPath+″\Iｎｖｅｎtｏｒy.tｘt″Inventory.txｔ文件保存正在播放文件的列表。ＯｎＥrｒoｒGoＴoErｒhandｌerSeｌectNuｍ=0ＮeｘtPlaｙinｇ=－１O(jiān)pｅnWinＳysPaｔhFｏｒＩｎpuｔAs#1DｏＷｈileNotEＯF(１）LinｅInput#1,SｅlectFName（SelectNum）＼CｏｍbｏL(fēng)．AddｌtemMｉｄ（ＳelｅctFNaｍｅ（Ｓelect2Ｎum），ＩｎStrRev（SelectFＮaｍe（SｅｌｅctＮｕｍ），″\N）+１）ＳelectＮuｍ＝SelｅctNuｍ+1LｏoｐCｌose＃１MediaPlayｅrlEndOfＳtrｅam(0&）Errhandlｅr:ＩfComｂoｌ.LiｓtCount=0Tｈen′Invenｔoｒy.tｘｔ文件不存在或播放列表為空Combｏl。Liｓt(0）=“沒有可選項(xiàng)目”EndIfCｏmｂｏl．Ｌiｓtlｎdeｘ=0４。4選擇播放序列ＰriｖatｅSｕbＣｏｍmanｄ1Ｃlicｋ(）DimFＮameAsSｔrinｇＤｉmiAsIｎteｇeｒ，jAsInｔegerDimTｈePathAｓSｔｒingDｉmｔmｐAsStｒingCｏmmonDｉalog1。ＣancelErrｏr=TruｅOnErｒorＧoＴｏEｒrhandler允許多選，所有選擇的文件名之間用空格分隔，保存在中ComｍonＤialｏgl。Flags=cdlOFNＡｌlowＭultisｅlectCｏmmoｎDialogl.InｉtＤｉr＝IIｆ（ＰｒeviouｓPath=″o２Data″，″C：\WＩNＤＯＷS″,ＰrｅｖiｏuｓPatｈ)CoｍｍoｎDｉalogl。Filter=″3。mpeg｜3.mpeｇ|3.mpg|3.mpg|３．a(chǎn)vi|３3.AVI｜３。wav|3。WAV|3.mid｜3。MID|３。ｍp3｜3。MＰ３|3。ｍov｜3．ＭOV|3.ｄａｔ|３．ＤAT｜3.RＭI|３.rmi|3。3|3.3″CoｍmｏnDｉaｌogl．Max=32767當(dāng)同時(shí)選擇許多文件時(shí)默認(rèn)的260放不下,故要大點(diǎn),這是最大的值CommonＤialog１．ＳhｏwOpenＦName＝CommｏnDｉalogl。下面代碼將選擇的若干文件名分開,放在數(shù)組SelecｔFName中ＩfInStr（FNａme,Chr(32）)=0Ｔhen′若只選擇一個(gè)文件,FNamｅ中沒有空格,否則文件名之間用空格分隔,若文件在根日錄，則路徑形如E:\,否則形如E：＼abc\１2３SelｅctNuｍ＝1SｅｌｅctFＮamｅ（0）=ＦNameTｈePath=Ｌｅｆt(Fｎamｅ,InＳtrRev(Fname,″\″）—１)EｌsｅThePaｔh=Left（ＦNａme，ＩnＳtr（FNamｅ，Chｒ(32）)－１）+″\″FName=Mid(Fname,InStr（Ｆnaｍe，Chr（３2)）＋1)ＳｅleｃtNum=０J=1ｔmp=Spaｃe(0)Foｒｉ=1ToLen（FＮａｍe）IfＭiｄ（FＮame,i,１)＝Ｃhr(32）TｈenSｅlecｔFＮame（SｅlｅｃtＮum）＝ＴｈeＰatｈ+ｔmpSｅlectNｕm=ＳeleｃtＮum+1tmｐ=Spａce(0）Ｅlsetｍp=tmp+Ｍiｄ（ＦNamｅ,i，１）ＥndIｆＮextiSelectＦNamｅ（SeｌｅｃtＮum)=ThePａｔh＋ｔmｐSeｌectNum=SelecｔNum＋1EndIf’分隔結(jié)束Cｏmｂol．ClearＦori=0ToSelｅctNuｍ-1此循環(huán)將選中的文件顯示在組合框中Combｏl．AddｌtemＭｉd（SｅlectFNamｅ（ｉ)，Ｉn2ＳtrRev(SelｅｃｔFNamｅ(i），″\″)+1）NｅxｔｉCombol．Listlnｄeｘ=0NextPlaｙｉng=0Me.Capｔｉｏｎ=Cｏmboｌ．TextMedｉaPlayeｒl。＝SelｅｃtFName（0)SaveSettinｇ″MyPｌａｙer″，″ＰｌaｙMＭ″,″LaｓtＰａt(yī)h″，″ThｅPath″Eｒrhａｎｄler:EｎdSub4。5暫停播放PrivatｅSubCommaｎｄ2Cｌick（)IｆＣｏmmanｄ2.Captioｎ=“暫?！保詇ｅnCｏmmａnd2．Cａｐｔiｏｎ=“開始”MedｉaPｌaｙerl.ＳtoｐElseComｍand2．Caｐtioｎ=“暫停”MｅdiaPlayerl．ＰｌayEndIfEnｄＳuｂ4.６關(guān)閉播放器退出之前，將用戶選中的文件保存起來，以便下一次啟動(dòng)該程序時(shí)，可以直接從保存時(shí)的文件開始繼續(xù)播放,為了做到這一點(diǎn),在將播放列表寫入文件時(shí)，必須讓正在播放的那個(gè)文件首先寫入文件中,然后是它后面的,到底后再繞回來，按這個(gè)順序?qū)懭?。因?yàn)槌绦騿?dòng)后,是按文件電的列表順序從前向后進(jìn)行播放的，故每次啟動(dòng)都省先播放的是退出之前播放的那個(gè)文件。PrivateＳubComｍａｎd3Click（）DimｔmplAｓInｔｅｇｅrOnErｒoｒGｏＴoＥrｒhaｎdleｒtmp1＝0OpeｎＷiｎＳysＰａt(yī)ｈFｏrOutputAs＃1DoＷｈｉletｍpl〈ＳelｅｃtNｕmPｒinｔ＃1,SeｌｅctＦNａmｅ（ＮexｔPlａｙinｇ）tmp1＝tmp１+1ＮextPlaying=（NexｔPlayinｇ+1）ＭｏｄSｅlect2NumLoｏpCｌosｅ＃IEｒrhandler：UnｌoaｄMeEndSｕｂ４。7上一首PrivateSubCoｍmandoClｉcｋ（yNｅxtPlaying＝ＩIf（NextＰl(wèi)aying-1〈0，Seｌecｔ2Ｎuｍ—2，NextPｌaying—２）ＭedｉａＰl(wèi)aｙerl-EndOfStｒeａm（０&)EndSub4.８下一首PｒｉｖatｅSｕbCommandｓＣlｉｃk(）MediａPlayerlEndOfStｒｅaｍ(0&)ＥndSｕb4．9在組合框中選擇播放文件PrivaｔeSubCｏmbolClicｋ(）NextPｌａｙing＝Combol．Ｌistlndｅｘ-1ＭedｉaPlaｙeｒlＥndOfSｔrｅam（0＆)ＥndSｕｂ4。10卸載播放器PriｖaｔeSｕbＦorｍQueryUnloaｄ(CaｎceｌＡｓIｎte2ger，ＵnｌoadModｅＡsIｎteger)Cｏmmand3CliｃｋEｎdＳub4.11切換文件PｒｉvaｔeSubMediａPlayerl－ＥｎｄＯfStｒeaｍ(ＢyVal2ResultAｓLong）播放文件結(jié)束時(shí)觸發(fā)此事件OnＥｒrorGoTｏEｒrｈａndlerNｅxｔPlaｙing＝（NextPlａying+１)ＭodSelecｔNumMeｄiａＰl(wèi)ayerl.=SelectFNａｍe(NexｔＰl(wèi)ayinｇ)Combol.Ｌistlndex=ＮextＰl(wèi)ayinｇMe.Caption=Combｏl.ＴeｘtＣoｍmａnd２。Enabled=TrueＣoｍｍａnd2.Captioｎ=“暫?！盓ｒrhandｌeｒ:EndSub/／DynSｐｌiｔView２。ｃpｐ：imｐｌｅｍenｔaｔｉｏｎfｉlｅ//5運(yùn)行結(jié)果Mｐlayer是我們所設(shè)計(jì)的多媒體播放器的核心，它支持的視頻格式直接影響到整個(gè)播放器的性能。下面將從這方面入手，對它的性能進(jìn)行必要的測試.Mplａyｅr的解碼庫是它支持的視頻格式的決定因素。在Ｘ8６平臺的Linux操作系統(tǒng)中，Mplayer擁有豐富的解碼庫，但是很大一部分都是以非開源的形式提供的。所以將Mplａyer移植到OＭAP3530平臺后，僅僅有為數(shù)不多的幾個(gè)開源的庫可以繼續(xù)使用.移植以后的Mplaｙｅr的視頻解碼器包括FFmｐegDiｖX/ｌｉbａvcoｄeｃ、liｂｍpeg2和XviD等比較常用的庫，可以支持H263、MJPEG、RV10、DｉvX3、DiｖX4、DivX5、MP４1、MP42、WＭV1、WMV2、HufｆYＵＶ以及MPEG和ＡVI編碼格式編碼的視頻流。而通俗的講，常見的媒體類型，除了RＭ格式和QuiｃkＴｉｍｅ格式以外，移植后的Ｍpｌayｅr基本都可以支持的。下面是播放各種格式視頻的截圖:圖2播放fｌv格式視頻圖3播放ａvi格式視頻圖4播放mｐeg格式視頻圖5播放mｐg格式視頻6心得體會學(xué)習(xí)VB程序設(shè)計(jì)的方法保持良好的學(xué)習(xí)心態(tài)，要有自信,自強(qiáng),積極主動(dòng)學(xué)習(xí)．克服畏難情緒,樹立學(xué)好程序設(shè)計(jì)的信心要有良好的學(xué)習(xí)習(xí)慣。VB程序設(shè)計(jì)的入門學(xué)習(xí)并不難,但卻是一個(gè)十分重要的過程，因?yàn)槌绦蛟O(shè)計(jì)思想就在這時(shí)形成的，良好的程序設(shè)計(jì)習(xí)慣也在這個(gè)階段養(yǎng)成。學(xué)習(xí)程序設(shè)計(jì)要注重理解一些重要的概念。VＢ程序設(shè)計(jì)本身并不復(fù)雜，翻開一本程序設(shè)計(jì)學(xué)習(xí)的書籍,看到的無非就是變量,函數(shù),條件語句，循環(huán)語句等概念．但要真正能進(jìn)行程序設(shè)計(jì)，需要深入理解這些概念.因此，在程序入門階段還是應(yīng)該重視概念的學(xué)習(xí).程序設(shè)計(jì)入門階段要經(jīng)常自己動(dòng)手抄寫或編寫一些小程序,親自動(dòng)手進(jìn)