【文章內容簡介】 為“True”時，窗體在需要時自動顯示滾動條；BorderIcons屬性：決定哪些按鈕圖標出現(xiàn)在Form的標題欄中，它是由幾個子屬性組成的組合(a)Bisymmenu:決定一個控制菜單（或稱系統(tǒng)菜單）是否出現(xiàn)在標題欄上。(b)Biminimize:決定一個最小化按鈕是否出現(xiàn)在標題欄上；(c)Bimaxmize:決定一個最大化按鈕是否出現(xiàn)在標題欄上；當Bisymmenu為“False”時，標題欄上無任何按鈕，且在標題欄按鼠標右鍵沒有控制菜單出現(xiàn)，但可以用鼠標拖動邊框改變窗體的大小。當Bisymmenu為“True”，但Biminimize和Bimaxmize為“False”時，標題欄上只有關閉按鈕，而無最大化、最小化按鈕；Showhint屬性:用于開通提示信息功能．當它為真時，開通Hint功能。Form上的對象的Showhint屬性隱含值都采用Form的Showhint屬性設定；(3) 主要事件：OnClose事件:關閉窗體的事件處理，使用Close也可以觸發(fā)該事件；OnShow事件:顯示窗體；(4) 主要方法：Show方法:顯示窗體；Close方法:關閉窗體，如果窗體為主窗體則程序退出； 程序功能設計：我們所設計視頻播放軟件按照預期的效果應包括播放控制模塊、視頻顯示模塊、信息提示模塊、系統(tǒng)菜單模塊以及播放列表模塊等等。播放控制模塊視頻顯示模塊信息提示模塊系統(tǒng)菜單模塊播放列表模塊選擇文件播放文件暫停播放停止播放進度調節(jié)聲音調節(jié)屏幕控制播放狀態(tài)曲目名稱文件類型時間提示進度提示視頻播放器系統(tǒng)文件系統(tǒng)控制系統(tǒng)幫助曲目列表曲目編輯曲目控制列表修飾分項打開退出系統(tǒng)播放控制列表控制圖1 系統(tǒng)功能模塊圖播放控制模塊：基本的播放控制主要是“選擇文件”、“播放”、“暫?！?、“停止”、 “曲目進度調節(jié)”、“聲音調節(jié)”等等。不同的媒體控制框架提供的基本控制功能有所區(qū)別，DMF（Delphi Media Framework）媒體框架為我們在播放器開發(fā)過程中提供了MediaPlayer和RealPlayer兩類基本的播放控制組件。其中，RealAudio媒體播放控制器已經為我們集成了“播放”、“暫停”、“停止”、“曲目進度調節(jié)”以及“聲音調節(jié)”等控制項，這使我們的程序設計得以簡化，便利了用戶控制但并不直觀。此外，為了獲得播放源，我們還需要設計“選擇文件”或“打開文件”以填補基本控制功能，這里的“打開文件”與“選擇文件”是有所區(qū)別的：“選擇文件”只負責打開指定的文件夾選定文件并不負責播放文件；而通常“打開文件”則選定文件的同時播放文件。我們在設計過程中，將“打開文件”分解為“選擇文件”與“播放”兩控制項，這樣盡管使得程序過于復雜，在功能上有所重復，而且勢必使得程序設計界面不盡美觀，但考慮到控制的直觀性，以及對后面程序設計過程的借鑒意義我們有必要保留。信息提示模塊：對于當前所播放的文件，我們總希望獲得其有效的相關信息諸如：當前播放曲目名，播放文件類型，當前播放狀態(tài)，播放時長/當前時間以及當前播放進度等信息。其實，許多媒體播放器新增的歌詞功能同樣是對此功能的擴充。RealPlayer為我們提供了進度條功能，而其狀態(tài)條功能需要我們根據需要加以設定，其設定的方法我們在上面也做了相應的介紹。值得一提的是，對于當前播放文件的播放進度控制我們不僅可以通過“曲目進度調節(jié)”按鈕來完成，而且還可以通過進度條加以動態(tài)的調節(jié)。狀態(tài)條將向用戶提供當前播放狀態(tài)即：正在緩沖/播放進行以及當前播放曲目時長/當前時間等信息，但不足之處在于用戶無法了解當前曲目名以及播放文件類型，這里我們通過文本顯示功能加以彌補，文本顯示可以向用戶提示曲目名及其文件類型等信息，根據需要其功能還可進一步加以擴展。視頻顯示模塊：當用戶選擇并播放視頻文件時，應有指定的視頻顯示窗口。多數媒體框架并沒有為我們提供視頻窗口，默認情況下的RealAudio組件同樣如此，因此通常它也只支持音頻播放，想要獲得對視頻的支持，我們需要設置其Controls屬性，這在上面我們已經做過簡要的介紹。其實，熟悉應用TMediaPlayer的媒體開發(fā)人員是可以理解的，對于RealAudio Controls屬性的設置與TMediaPlayerDisplay屬性設置是等同的，通過這樣的設置可以使得影像播放獲得顯示的承擔者。系統(tǒng)菜單模塊：系統(tǒng)菜單是一個綜合模塊，許多功能與服務都集成于菜單之中，大多系統(tǒng)都擁有系統(tǒng)菜單，也正因如此很多軟件用戶更加習慣于對菜單的應用，為了使得程序界面設計更加美觀，布局更加合理，開發(fā)系統(tǒng)菜單是有必要的，這樣我們的視頻播放界面將顯得更加精簡。我們在初步的開發(fā)過程中僅開發(fā)有“文件”、“控制”與“幫助”基本菜單項?！拔募辈藛雾椣略O“按文件類型打開”與“退出系統(tǒng)”子項，通過“按文件類型打開”項用戶可以按指定的媒體文件類型打開文件并播放文件，通過“退出系統(tǒng)”使得用戶可以安全退出本系統(tǒng)；“控制”菜單項提供了播放器的基本控制功能，同時向用戶提供了對播放列表的簡單控制操作與播放列表編輯功能；“幫助”菜單項為用戶提供系統(tǒng)版本信息以及必要的系統(tǒng)功能幫助。播放列表模塊：播放列表是多數播放器都應具備的主要功能，用戶可以將自己喜歡的播放曲目進行添加與刪除，可以對列表中曲目進行播放控制如：點擊即選取、雙擊播放曲目、順序播放曲目或隨機播放等等。當然，對于成熟完善的播放列表，其功能還很多可擴展的空間也很大，這里根據實際的課題要求及自身開發(fā)水平有限暫且完成基本的播放列表編輯控制功能。1. 視頻播放器軟件詳細設計 軟件開發(fā)流程：功能分析運行并 測試編輯代碼設計程序界面確定設計方案軟件程序開發(fā)重點是程序主要功能的實現(xiàn)，及其為用戶添加的擴展功能的實現(xiàn)，好的開發(fā)計劃將有助于總體功能的實現(xiàn)，并可以促進開發(fā)過程的工作效率，因此在開發(fā)之前有必要對開發(fā)過程作以規(guī)劃。在此我們遵循以下開發(fā)因此在開發(fā)之前有必要對開發(fā)過程作以規(guī)劃。 圖2 開發(fā)設計流程圖 播放器界面設計： 播放器的用戶界面包含一個主窗口、三個菜單以及一個打開文件對話框，由于我們的播放列表不是隨機生成的，設計過程中是獨立的，需要一定的用戶界面支持，因此播放列表的界面設計同樣是用戶界面設計過程中的重要內容。主窗口的窗口標題設為“我的視頻播放器”或其他，結合用戶需求由設計者決定，這里我們設為“文絕視頻播放”，窗口顯示有“文件”、“控制”與“幫助”等菜單項，視頻顯示區(qū)為黑色背景且顯示REAL版本標識，RealPlayer播放控制器帶有的基本控制項以及“選擇文件”、“播放文件”和“編輯顯示區(qū)”等。程序剛啟動時的主窗口見附錄圖3。 “文件”菜單項下設“按文件類型打開”與“退出系統(tǒng)”子項，見附錄圖4。所示，“按文件類型打開”項下含“打開MPG文件”、“打開AVI文件”、“打開RA文件”等7個子項，點擊個子項可顯示“打開文件”對話框，見附錄圖5，選擇指定類型的文件后，單擊“打開”按鈕即可播放打開的媒體文件，單擊“取消”終止文件打開操作。需要區(qū)別的是：通過“選擇文件”我們同樣可以打開“打開文件”對話框，但通過此操作用戶可以選擇多種文件類型并可在不同文件類型間切換，但點擊“打開”按鈕后僅僅是選擇了指定類型的文件。 “控制”菜單項下含“播放控制”與“播放列表控制”子項，“播放列表控制”下含“打開播放列表”、“編輯播放列表”與“關閉播放列表”子項，見附錄圖6。當我們點擊“打開播放列表”項時，將打開播放列表，見附錄圖7。播放列表窗口標題設為“播放列表”，窗口中含有基本的列表編輯按鈕以及列表項目顯示區(qū)，列表項目顯示區(qū)初始狀態(tài)為空，根據需要用戶可通過“添加曲目”向列表項目區(qū)中添加自己想要的欲播放曲目。此外，在播放列表中，我們還通過圖片對列表進行了相應的修飾，使得列表界面更加完美。 播放控制模塊功能實現(xiàn)： RealAudio播放控制組件已經為我們預先集成了“播放”、“暫停”、“停止”、“進度調節(jié)”以及“聲音調控”等基本播放控制項，在設計過程中，沒有特出要求，我們無須對這些控制項進行額外的設計。這里，我們額外的設計了“選擇文件”與“播放文件”控制項，不僅是滿足用戶提示性控制按鈕的需要，更重要的是這些基本設計對于我們以下的設計具有著一定程度的借鑒意義。點擊“選擇文件”可以打開“打開文件”對話框，“打開文件”對話框無須我們設計，通過OpenDialog組件可以打開該對話框?！斑x擇文件”可以對多種類型文件進行選擇且可以在不同文件類型間切換選擇，“選擇文件”的可選文件類型設定我們同樣要借助OpenDialog組件，:屬性進行對應的設定，可以指定需要的文件類型。例如：:=‘MPG (*.mpg)|*.mpg39。通過以上代碼，我們在“打開文件”。依據我們的課題設計目標，結合我們實際的應用，我們還可以設置更多種類的文件類型，這里，我們的設置為：:=39。MPG(*.mpg)|*.mpg|39。+39。AVI(*.avi)|*.avi|39。+39。RA(*.ra)|*.ra|39。+39。RM(*.rm)|*.rm|39。+39。MP3(*.mp3)|*.mp3|39。+39。MIDI(*.midi)|*.midi|39。+39。WAV(*.wav)|*.wav|39。+39。DAT(*.dat)|*.dat|ALL(*.*)|*.*39。即通過以上的代碼?！斑x擇文件”后，我們還要進一步與RealAudio進行通信，使其獲得播放源，以備播放選定的文件，這里我們通過RealAudio的SetSource()函數進行二者間的通信。綜上，“選擇文件”的控制代碼可編程為：Procedure (Sender: TObject)。Begin:=39。MPG(*.mpg)|*.mpg|39。+39。AVI(*.avi)|*.avi|39。+39。RA(*.ra)|*.ra|39。+39。RM(*.rm)|*.rm|39。+39。MP3(*.mp3)|*.mp3|39。+39。MIDI(*.midi)|*.midi|39。+39。WAV(*.wav)|*.wav|39。+39。DAT(*.dat)|*.dat|ALL(*.*)|*.*39。 If then Begin 。 ()。 End。End。 點擊“播放文件”將播放“選擇文件”所選定的類型文件，這里我們只需調用RealAudio的doplay事件即可。其程序如下：Procedure (Sender: TObject)。Begin。End。 “屏幕控制”即：“全屏幕播放”與“還原”控制，屏幕“還原”功能RealAudio的右鍵快捷菜單命令為我們提供此功能項，無須我們再設計。對于“全屏幕播放”的控制，我們通過調用RealAudio的SetFullScreen事件來實現(xiàn)。其程序如下：Procedure (Sender: TObject)。Begin。End。 信息提示模塊功能實現(xiàn)：　　RealAudio播放控制組件為我們事先集成了“播放狀態(tài)條”、“播放進度條”功能。其中“播放狀態(tài)條”為用戶提供了播放的狀態(tài)：“緩沖”還是“播放”，同時還提示我們網絡數據傳輸率；對于不同的版本的RealPlayer插件，RealAudio為我們提供的“播放狀態(tài)”信息有所區(qū)別，有的還為我們提供了時間提示，含播放總時長，當前播放時間，剩余播放時間等等?！安シ胚M度條”可以動態(tài)的提示當前播放曲目播放的實際進度，同時通過“播放進度條”我們還可以通過鼠標拖動改變當前播放的進度。在這里，RealAudio并沒有為我們提供播放文件名及其文件類型等信息，為進一步完善我們的視頻播放器，我們添加了文本提示區(qū)功能，通過該功能可以為用戶提供當前播放文件名及文件類型等信息。通過點擊“選擇文件”、選擇“按文件類型打開”任一子項、“控制”菜單中“播放控制”的“選擇文件”子項以及播放列表中“順序播放”或“播放／暫?！笨刂瓢粹o，我們都可以看到當前欲播放的曲目名及文件類型會出現(xiàn)在該文本編輯區(qū)中。要使該文本編輯區(qū)顯示以上內容，我們無須專門地為TEdit組件編輯相應的方法或調用任何事件，這里只通過應用Copy()函數與ExtractFileName()函數，同時預先定義一個局部字符串型變量，再通過OpenDialog的文件名提取即可實現(xiàn)此項功能。當我們點擊了“選擇文件”并通過“打開對話框”中的“打開”按鈕確定了欲播放的文件，此時可以看到在文本顯示區(qū)中顯示了播放文件名，并通過文件后綴提示了播放文件類型信息。這里，我們可以結合上面的 “選擇文件”程序代碼并對其進行相應的完善，從而實現(xiàn)我們預定的文本提示功能，改進后的程序段如下：Procedure (Sender: TObject)。Var　FNStr: string。Begin:=39。MPG(*.mpg)|*.mpg|39。+39。AVI(*.avi)|*.avi|39。+39。RA(*.ra)|*.ra|39。+39。RM(*.rm)|*.rm|39。+39。MP3(*.mp3)|*.mp3|39。+39。MIDI(*.midi)|*.midi|39。+39。WAV(*.wav)|*.wav|39。+39。DAT(*.dat)|*.dat|ALL(*.*)|*.*39。If thenBegin 。 ()。 FNStr: =ExtractFileName ()。 :=Copy (FNStr, 1, Length (FNStr)4)。 End。End。在以上程序段中，我們預先定義了字符串型變量FNStr，并賦值給變量FNStr，最后通過拷貝函數Copy將FNStr欲存內容拷貝到編輯框文本中。通過以上程序的說明，我們可以進一步寫出“按文件類型打開”任一子項的程序編碼、“控制”菜單中“播放控制”的“選擇文件”子項代碼以及播放列表中“順序播放”或“播放／暫停”控制按鈕的代碼等等。以下我們列出了“按文件類型打開”中“MPG文件”子項代碼：Procedure (Sender: TObject)。Var