【正文】 。以下我們列出了“按文件類型打開”中“MPG文件”子項代碼：Procedure (Sender: TObject)。在以上程序段中，我們預先定義了字符串型變量FNStr，并賦值給變量FNStr，最后通過拷貝函數(shù)Copy將FNStr欲存內(nèi)容拷貝到編輯框文本中。 End。 FNStr: =ExtractFileName ()。If thenBegin 。+39。+39。+39。+39。+39。+39。+39。Begin:=39。這里，我們可以結(jié)合上面的 “選擇文件”程序代碼并對其進行相應的完善，從而實現(xiàn)我們預定的文本提示功能，改進后的程序段如下：Procedure (Sender: TObject)。要使該文本編輯區(qū)顯示以上內(nèi)容，我們無須專門地為TEdit組件編輯相應的方法或調(diào)用任何事件，這里只通過應用Copy()函數(shù)與ExtractFileName()函數(shù)，同時預先定義一個局部字符串型變量，再通過OpenDialog的文件名提取即可實現(xiàn)此項功能。在這里，RealAudio并沒有為我們提供播放文件名及其文件類型等信息，為進一步完善我們的視頻播放器，我們添加了文本提示區(qū)功能，通過該功能可以為用戶提供當前播放文件名及文件類型等信息。其中“播放狀態(tài)條”為用戶提供了播放的狀態(tài)：“緩沖”還是“播放”，同時還提示我們網(wǎng)絡數(shù)據(jù)傳輸率；對于不同的版本的RealPlayer插件，RealAudio為我們提供的“播放狀態(tài)”信息有所區(qū)別，有的還為我們提供了時間提示，含播放總時長，當前播放時間，剩余播放時間等等。End。其程序如下：Procedure (Sender: TObject)。 “屏幕控制”即：“全屏幕播放”與“還原”控制，屏幕“還原”功能RealAudio的右鍵快捷菜單命令為我們提供此功能項，無須我們再設計。Begin。 點擊“播放文件”將播放“選擇文件”所選定的類型文件，這里我們只需調(diào)用RealAudio的doplay事件即可。 End。 If then Begin 。+39。+39。+39。+39。+39。+39。+39。Begin:=39?！斑x擇文件”后，我們還要進一步與RealAudio進行通信，使其獲得播放源，以備播放選定的文件，這里我們通過RealAudio的SetSource()函數(shù)進行二者間的通信。DAT(*.dat)|*.dat|ALL(*.*)|*.*39。WAV(*.wav)|*.wav|39。MIDI(*.midi)|*.midi|39。MP3(*.mp3)|*.mp3|39。RM(*.rm)|*.rm|39。RA(*.ra)|*.ra|39。AVI(*.avi)|*.avi|39。MPG(*.mpg)|*.mpg|39。通過以上代碼，我們在“打開文件”。“選擇文件”可以對多種類型文件進行選擇且可以在不同文件類型間切換選擇，“選擇文件”的可選文件類型設定我們同樣要借助OpenDialog組件，:屬性進行對應的設定，可以指定需要的文件類型。這里，我們額外的設計了“選擇文件”與“播放文件”控制項，不僅是滿足用戶提示性控制按鈕的需要，更重要的是這些基本設計對于我們以下的設計具有著一定程度的借鑒意義。此外，在播放列表中，我們還通過圖片對列表進行了相應的修飾，使得列表界面更加完美。當我們點擊“打開播放列表”項時，將打開播放列表，見附錄圖7。需要區(qū)別的是：通過“選擇文件”我們同樣可以打開“打開文件”對話框，但通過此操作用戶可以選擇多種文件類型并可在不同文件類型間切換，但點擊“打開”按鈕后僅僅是選擇了指定類型的文件。 “文件”菜單項下設“按文件類型打開”與“退出系統(tǒng)”子項，見附錄圖4。主窗口的窗口標題設為“我的視頻播放器”或其他，結(jié)合用戶需求由設計者決定，這里我們設為“文絕視頻播放”，窗口顯示有“文件”、“控制”與“幫助”等菜單項，視頻顯示區(qū)為黑色背景且顯示REAL版本標識，RealPlayer播放控制器帶有的基本控制項以及“選擇文件”、“播放文件”和“編輯顯示區(qū)”等。在此我們遵循以下開發(fā)因此在開發(fā)之前有必要對開發(fā)過程作以規(guī)劃。當然，對于成熟完善的播放列表，其功能還很多可擴展的空間也很大，這里根據(jù)實際的課題要求及自身開發(fā)水平有限暫且完成基本的播放列表編輯控制功能?！拔募辈藛雾椣略O“按文件類型打開”與“退出系統(tǒng)”子項，通過“按文件類型打開”項用戶可以按指定的媒體文件類型打開文件并播放文件，通過“退出系統(tǒng)”使得用戶可以安全退出本系統(tǒng)；“控制”菜單項提供了播放器的基本控制功能，同時向用戶提供了對播放列表的簡單控制操作與播放列表編輯功能；“幫助”菜單項為用戶提供系統(tǒng)版本信息以及必要的系統(tǒng)功能幫助。系統(tǒng)菜單模塊：系統(tǒng)菜單是一個綜合模塊，許多功能與服務都集成于菜單之中，大多系統(tǒng)都擁有系統(tǒng)菜單，也正因如此很多軟件用戶更加習慣于對菜單的應用，為了使得程序界面設計更加美觀，布局更加合理，開發(fā)系統(tǒng)菜單是有必要的，這樣我們的視頻播放界面將顯得更加精簡。多數(shù)媒體框架并沒有為我們提供視頻窗口，默認情況下的RealAudio組件同樣如此，因此通常它也只支持音頻播放，想要獲得對視頻的支持，我們需要設置其Controls屬性，這在上面我們已經(jīng)做過簡要的介紹。狀態(tài)條將向用戶提供當前播放狀態(tài)即：正在緩沖/播放進行以及當前播放曲目時長/當前時間等信息，但不足之處在于用戶無法了解當前曲目名以及播放文件類型，這里我們通過文本顯示功能加以彌補，文本顯示可以向用戶提示曲目名及其文件類型等信息，根據(jù)需要其功能還可進一步加以擴展。RealPlayer為我們提供了進度條功能，而其狀態(tài)條功能需要我們根據(jù)需要加以設定，其設定的方法我們在上面也做了相應的介紹。信息提示模塊：對于當前所播放的文件，我們總希望獲得其有效的相關信息諸如：當前播放曲目名，播放文件類型，當前播放狀態(tài)，播放時長/當前時間以及當前播放進度等信息。此外，為了獲得播放源，我們還需要設計“選擇文件”或“打開文件”以填補基本控制功能，這里的“打開文件”與“選擇文件”是有所區(qū)別的：“選擇文件”只負責打開指定的文件夾選定文件并不負責播放文件；而通?！按蜷_文件”則選定文件的同時播放文件。不同的媒體控制框架提供的基本控制功能有所區(qū)別，DMF（Delphi Media Framework）媒體框架為我們在播放器開發(fā)過程中提供了MediaPlayer和RealPlayer兩類基本的播放控制組件。Form上的對象的Showhint屬性隱含值都采用Form的Showhint屬性設定；(3) 主要事件：OnClose事件:關閉窗體的事件處理，使用Close也可以觸發(fā)該事件；OnShow事件:顯示窗體；(4) 主要方法：Show方法:顯示窗體；Close方法:關閉窗體，如果窗體為主窗體則程序退出； 程序功能設計：我們所設計視頻播放軟件按照預期的效果應包括播放控制模塊、視頻顯示模塊、信息提示模塊、系統(tǒng)菜單模塊以及播放列表模塊等等。(b)Biminimize:決定一個最小化按鈕是否出現(xiàn)在標題欄上；(c)Bimaxmize:決定一個最大化按鈕是否出現(xiàn)在標題欄上；當Bisymmenu為“False”時，標題欄上無任何按鈕，且在標題欄按鼠標右鍵沒有控制菜單出現(xiàn)，但可以用鼠標拖動邊框改變窗體的大小。AutoScroll屬性：決定當窗體中內(nèi)容超出窗口邊界時，是否使用滾動條。窗體設計有關一個應用程序的整體形象。(2) 主要屬性：在Windows操作系統(tǒng)中，人—機交互的接口主要是通過一些窗口和對話框來實現(xiàn)的。窗體可以被看作承載其他組件的容器，窗體上有柵格，供放置組件時對齊位置用。(2) ActiveX組件的屬性：屬性訪問方式有關說明BackColorRead/Write組件背景色；CaptionRead/Write組件標題；EnabledRead/Write組件可用/不可用狀態(tài)；FontRead/Write組件字體；TabStopRead/Write是否用Tab鍵擊活組件；TextRead/Write組件文本；hWndRead組件句柄；ForeColorRead/Write組件前景色；(3) ActiveX組件的事件：事件有關說明Click單擊組件；DbClick雙擊組件；KeyPress鍵盤事件，KeyUp后被觸發(fā)；KeyDown鍵盤事件，當鍵按下后被觸發(fā)；KeyUp鍵盤事件，當鍵彈起后被觸發(fā)；MouseMove鼠標事件，移動；MouseDown鼠標事件，按下；MouseUp鼠標事件，彈起；u 窗體Form(1) 有關描述：窗體時應用程序顯示的接口。Delphi提供了組件向?qū)砩葾ctiveX組件。u 組件ActiveX(1) 有關描述：以上我們所應用的TRealAudio視頻播放控制組件就是ActiveX的子類，在實際應用中，我們需要在ActiveX組件頁中調(diào)用TRealAudio組件。同時要注意其他Windows應用程序是否會影響計時器的激發(fā)。盡管Delphi的計時器每秒可以產(chǎn)生1000次激發(fā)，在編程中還必須注意程序?qū)τ嫊r器激發(fā)的響應。在窗體中放置一個計時器Timer組件，將它的Interval屬性設置為100（每隔100毫秒觸發(fā)一次），雙擊組件進入代碼編輯器，在其事件中加入程序：MessageBeep (0)。將間隔置為0，相當于關閉計時器，Interval的最大允許值為32767，；(3) 使用Timer對程序進行控制：計時器是獨立的對象，在啟動與Windows無關的邏輯和應用事件時極其重要。它是編制應用程序最為重要的組件之一。下列程序段可以實現(xiàn)自動歷史文件名加載：If thenOpenDialog1. (0, OpenDialog1. FileName)。使用[TString]的省略按鈕可以編輯歷史列表。設置為fsComboBox時，允許使用歷史列表HistoryList屬性，這在應用程序需要經(jīng)常選擇文件時，可以節(jié)約大量時間。(3) 主要屬性：Picture屬性：指定顯示的圖像；Stretch屬性:指定圖像的顯示方式：如果Stretch設置為0剪裁，那么超出圖像組件的部分將不顯示；設置為1恒定比例，圖像組件將保留圖片的原有比例，并在圖像組件中顯示最大可能的圖片；設置為2伸展，則將圖片調(diào)整到正好與圖像組件高度、寬度匹配；u 組件TOpenDialog(1) 功能：打開文件對話框。(2) 功能：允許在表單中添加圖片（.BMP/.ICO/.DIB/.GIF/.IPG/.ANI）文件。當AutoSize為真時，TImage組件將根據(jù)它所包含的圖像的大小來調(diào)節(jié)自身的大?。划擜utoSize為假時，無論圖像有多大，組件將保持設計時的大小，果組件比圖像小，那么只有一部分圖像是可見的。應用程序的菜單有兩種形式：TMainMenu是一般的Windows用戶界面必須的組件，它顯示在固定的位置，一般用鍵盤和鼠標的左鍵來擊活菜單的功能項；PopupMenu是彈出式菜單，一般以鼠標的右鍵或其他快捷鍵來擊活菜單，菜單的位置是在屏幕上浮動的，根據(jù)鼠標的當前位置決定。u 組件TMainMenu菜單組件含有內(nèi)置的交互設計器。Begin()；:=’’。(2) 主要屬性：Items屬性:TString類型，存儲列表框內(nèi)容；ItemIndex屬性:表明當前選中的是第幾行；Column屬性:缺省顯示的列數(shù)目；(3) 主要方法：:添加列表條目；ListBox1. :刷新列表；:刪除列表條目；例：將Edit1中的文本加入到TListBox1中，并清除TEdit1中的文本。將AutoSelect屬性設置為False,這種替代功能就被取消了；AutoSize屬性:是否自動調(diào)整文本框高度；Enable屬性:該組件是否可用（可編輯）；(3) 主要方法：OnClick方法:鼠標按下該組件；OnChange方法:編輯框內(nèi)容改變；u 組件TListBox(1) 功能：提供一組條目，用戶可以從中選擇一個或多個條目?？赡軙l(fā)現(xiàn)，當一個字段被加上高亮度顯示時，按鍵操作會將這一字段刪除，替換成當前的鍵盤輸入。該屬性可以按照顯示隱蔽密碼的方法顯示用戶輸入文本?？梢酝ㄟ^該屬性來訪問編輯框中的內(nèi)容；ReadOnly屬性:確定用戶是否能修改編輯框中的內(nèi)容；注：ReadOnly屬性與Enabled屬性有所區(qū)別。用戶可以在編輯框中編輯備注字段。(2) 主要屬性：AllowTabs屬性:確定用戶在編輯框中能否使用Tab鍵。它增加了垂直滾動條，可以實現(xiàn)自動換行并能用方向鍵、PageUp鍵、PageDown鍵以及滾動條來瀏覽文本。不同的是，編輯框只能輸入或編輯字符型數(shù)據(jù)，包括字符型內(nèi)存變量、數(shù)組元素、字段以及備注字段里的內(nèi)容。否則試圖將加速按鈕先制作好再移上來，會發(fā)現(xiàn)它總是處于窗口類組件下面且不可見。它只有一個位圖，沒有標題。(2) 功能：為加速按鈕組件。通過行為屬性的設定，您將成為命令按鈕的行為客戶，并且處理行為將更新按鈕屬性，響應對應的按鈕點擊?？焖侔粹o通常以指定的圖紋工具和調(diào)色板工具成組創(chuàng)建。應用其他屬性指定多種圖解或再排列圖標并且編寫關于按鈕的文本。(2) 主要屬性：Caption屬性:按鈕上顯示的字符；Margin屬性:按鈕上的圖、文字與按鈕左邊的距離；Layout屬性:按鈕上圖標的位置；(3) 主要事件：OnClick事件:按鈕按下事件；u 組件TSpeedButton(1) 有關描述：通過TSpeedButton添加一個按鈕到表單按鈕組?？梢詾槠湓O置內(nèi)置返回功能。需要注意的是沒有邊緣的面板是有意義的，正如書寫用于累碼和刪減碼程序時的刪減設置。一個面板組件有兩個邊緣，其一：臨近組件邊緣的即為外邊緣，其二：外邊緣內(nèi)部的即為內(nèi)邊緣，通過邊緣寬度屬性，指定的像素數(shù)被區(qū)分。注意如果僅想向上或向下改變邊緣，可以通過TBevel組件替代，進而可以大大節(jié)省可用資源。應用內(nèi)邊緣和外邊緣屬性，面板外觀可以被向上或向下改變。也可以應用排列