【正文】 r的版本信息、系統(tǒng)應用信息、系統(tǒng)參數(shù)及有關網頁信息等等，甚至，我們還可以在此向用戶開放系統(tǒng)設計的源碼信息。在此方面的開發(fā)，涉及到多項目開發(fā)，我們只需要調用相應的項目文件即可，其設計思想與播放列表的設計是相同的，對此我們沒有進行深入的開發(fā)，僅通過簡單的設計，為用戶提供一定的版本信息而已。設計過程中，僅調用RealAudio的AboutBox事件即可，其設計程序代碼如下：Procedure (Sender: TObject)。Begin。End。 播放列表模塊功能實現(xiàn)： 播放列表下含：曲目列表、曲目編輯、曲目控制及簡單的列表修飾等設計內容。通過ListBox1組件，為曲目提供列表區(qū)；曲目編輯包括：添加曲目、刪除曲目等基本項，這里的曲目編輯功能的實現(xiàn)可通過前面系統(tǒng)菜單中的“播放列表編輯”菜單子項進行反衍。例如“添加曲目”的實現(xiàn)代碼如下：Procedure (Sender: TObject)。Begin:=39。查找播放文件39。:=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 。 (ExtractFileName ())。 End。End。曲目控制含：基本的播放、暫停、停止等控制項，同時還可以包括“播放前一首”、“播放下一首”以及“順序播放”、“重復播放”等等。在此，我們僅設計了“順序播放”與“播放/暫?！钡瓤刂祈?。以下我們將列示“順序播放”的實現(xiàn)代碼，通過下面的代碼，可以發(fā)現(xiàn)這里的“順序播放”的程序代碼與菜單項中此功能的實現(xiàn)代碼有所出入：Procedure (Sender: TObject)。VarI: integer。Begin:=true。Nplaysel: =。I: = 。If i=0 then Begin :=[i]。 ()。 :=。 。 End。End。在以上程序段中，除“:=true。”與菜單項中的程序內容相同，其余都是增添代碼。我們知道Timer1組件寄生于主窗體RealAudio中，且菜單項同樣寄生于主窗體當中，在菜單中實現(xiàn)“順序播放”功能前，Timer1的OnTimer事件已經為其功能的實現(xiàn)作了一定的準備工作：:= [nplaysel]。 ()。FNStr: =ExtractFileName ()。:=Copy (FNStr, 1, Length (FNStr)4以上語句都已集成于OnTimer事件之中了，需要注意的是：這里的曲目當前索引是通過全局變量nplaysel來動態(tài)獲得的，而在播放列表中的“順序播放”功能按鈕則不僅引用了全局變量nplaysel，同時還定義了局部變量i，通過這兩個變量來控制曲目索引。在理論上以下兩語句在程序中發(fā)揮著等同的作用。即：:= [nplaysel]。等價于：:=[i]。但在實際功能上，它們卻有著微妙的區(qū)別：局部變量i獲得的是通過鼠標單擊選擇后，確定的當前曲目索引，而全局變量nplaysel則在前面的主窗體OnCreate方法中進行了初始化，即不通過鼠標選擇，直接對播放列表中的已有曲目進行順序播放控制，動態(tài)確定的當前索引。在前面我們說菜單項“順序播放”的實現(xiàn)代碼很簡捷，要得益于OnTimer的準備工作，通過OnTimer事件，使得“順序播放”在沒有通過鼠標的單擊選擇情況下，順序且循環(huán)播放列表中的現(xiàn)有曲目；同時，ListBox1的單擊響應事件OnClick也為其提供了必要的準備，以下是ListBox1的OnClick事件代碼：Procedure (Sender: TObject)。BeginKk: =。End。在以上程序代碼中，同樣通過全局變量kk來獲得當前曲目對應的索引即：kk:=。也就是說當鼠標單擊選擇了曲目后，“順序播放”菜單項將控制曲目從鼠標已選定曲目為首曲目進行順序播放。 這里，我們不僅設計了ListBox1的單擊響應事件，同時還設計了雙擊響應事件，完善了播放列表中對曲目的控制功能。當鼠標雙擊播放列表中的曲目后，將選取所點擊的曲目且播放該曲目，以下為ListBox1雙擊響應事件OnDblClick的程序代碼：Procedure (Sender: TObject)。VarI: integer。Begini: = 。Nplaysel: =。If i=0 then Begin :=[i]。 ()。 :=。 。 End。End。局部變量i即為鼠標雙擊后所選曲目的對應索引，而全局變量nplaysel則是為在鼠標雙擊曲目并播放曲目后響應“順序播放”控制而調用的。即以鼠標雙擊曲目為順序播放曲目的首曲目并順序進行曲目播放。 當點擊“播放/暫停”功能按鈕后，將播放/暫停鼠標單擊選取的曲目或通過“選擇文件”選定的曲目文件，同時還可以暫停順序播放的曲目，當暫停順序播放的曲目后，再次點擊此按鈕將繼續(xù)播放當前曲目，至當前曲目結束后，終止順序播放。以下為該功能按鈕的程序代碼：Procedure (Sender: TObject)。BeginIf kk=0 then Begin := [kk]。 ()。 :=。 End。 。 :=false。End。在上面的程序段中，全局變量kk不僅動態(tài)的決定著順序播放過程中所對應的當前曲目索引，同時還決定著通過鼠標單擊選取后的曲目索引。要對曲目進行播放控制，在前面“播放”按鈕的代碼實現(xiàn)過程中，我們引用了OpenDialog1的打開文件名FileName，從而使得播放器獲得播放源。這里，我們是要播放ListBox1中的項目文件，而要想控制ListBox1的列表項，我們只有通過ListBox1的Items屬性來實現(xiàn)。在ListBox1中，Items曲目索引對應著的著列項字符串，這里的列項字符串正是我們添加曲目后，播放曲目名所對應的字符串。通過程序子句：:= [kk]。使得OpenDialog1獲得播放曲目名，即：給OpenDialog1的FileName屬性賦值。進而通過OpenDialog1再次使得RealAudio1獲得播放源。即有子句： ()。調用RealAudio1的DoPlayPause事件，從而實現(xiàn)播放/暫停的控制切換。 在播放列表的修飾中，我們調用了圖象組件TImage。在程序開發(fā)過程中，TImage并沒有涉及到程序代碼的編寫，我們也沒有具體的應用到其有關事件或方法，僅對其進行相應的屬性設置，即可達到我們的設計目的。在此我們不做過多的介紹。在論文附錄部分的組件屬性中將有所涉及，請參看本部分內容。 關于TRealAudio組件調用說明：在默認情況下Delphi7的ActiveX標簽頁并沒有該組件，需要我們預先安裝，下面我們將對此加以介紹：在Delphi7的可視化編程環(huán)境中，選擇Component（組件）菜單下的“Import ActiveX Control...”（導入ActiveX控件）選項，選中其中的“Real Player ActiveX Control Library()”項，并單擊Install，會出現(xiàn)一個install窗口。如果要把它添加到一個已經存在的包中，在“Into existing package”對話框中的“File name：”窗口中選擇欲安裝的路徑，并單擊“OK”；會彈出一個確認的對話框，提示安裝信息“Package will be rebuilt. Continue?”，單擊“Yes”；在彈出的窗口中單擊“Install”，該控件就安裝完畢。如果要把它添加到一個新建的包中，在“Into new package”對話框中的 “File name: ”窗口中選擇欲安裝的路徑，并新建一個包，假如命名為test，并單擊“OK”；此時會提示“Package will be built. Continue?”，單擊“Yes”。 在彈出的窗口中單擊擊“Install”，該控件就安裝完畢。在以上的安裝過程結束后，會在組件面板的ActiveX標簽頁上發(fā)現(xiàn)一個新的組件，名字為RealAudio；此時，就可以通過ActiveX直接調用RealAudio到項目表單中了。2. 程序的調試通過使用RealPlayer，使得我們的向預期設計目標邁進了一大步，但在程序開發(fā)的后期，我們發(fā)現(xiàn)RealPlayer并非盡善完美。根據(jù)實際的需要，一般的軟件應用程序應該可以脫離實際的軟件開發(fā)平臺，且不依賴于程序開發(fā)過程生成的項目文件或有關的系統(tǒng)資源文件。在調試過程中，我們將實際的應用程序移植到其他系統(tǒng)中發(fā)現(xiàn)常伴有一些執(zhí)行異?，F(xiàn)象并歸結為以下三種情況：其一，即應用程序在其他安裝有Delphi7開發(fā)平臺但沒有安裝RealPlayer播放器的系統(tǒng)中，通過Delphi7打開應用程序，編譯并運行應用程序，由于程序中應用了系統(tǒng)不能識別的類，而發(fā)生常規(guī)錯誤，導致程序無法正常運行；其二，同樣是在安裝有Delphi7的系統(tǒng)中，直接啟動應用程序，由于應用程序中帶有沒有注冊的類別，而導致程序無法啟動；其三，在脫離Delphi7開發(fā)平臺的系統(tǒng)中系統(tǒng)中(系統(tǒng)中裝有RealPlayer播放器)，應用程序可以運行，但應用程序在播放視頻類型文件時或其他類型文件時，發(fā)生警告信息，導致程序異常。在對問題分析后，通過進一步的程序調試認為其錯誤的根源在于——在程序開發(fā)過程中，程序中對第三方控件的調用。我們知道RealPlayer的功能是通過Delphi7為我們提供的ActiveX插件調用的，即在ActiveX組件面板中我們調用組件TRealAudio，通過編程及對TRealAudio屬性進行設置最終實現(xiàn)RealPlayer的功能。在Delphi7中每個應用組件必須在系統(tǒng)中預先注冊，才可以在程序開發(fā)過程中調用組件并在可執(zhí)行程序運行期間對組件識別。問題的難點最終集中在對組件TRealAudio的程序注冊上，在此我們可以結合ActiveX控件注冊的方法來實現(xiàn)。前面我們已經提到：通過TRealAudio組件實現(xiàn)RealPlayer播放器的功能，而TRealAudio正是ActiveX類型組件之一，這里對TRealAudio組件的注冊可以說是ActiveX控件注冊的一個實例。以下，我們將就ActiveX控件注冊方法說明如下：一、對于未注冊過的ActiveX控件可使用此軟件對其進行注冊，外來ActiveX控件要應用到自己的程序中也必須進行注冊。該文件位于Windows目錄的system子目錄下。使用方法如下：點擊“開始”→“運行”；在運行對話框中輸入以下命令：regsvr32 文件名注冊一個ActiveX控件regsvr32 /u 文件名解除某ActiveX控件的注冊二、使用安裝程序制作軟件：InstallShield，但需要用戶手工注冊，在不用時還得手工解除注冊，因此，這對一個應用程序來說并非好的解決方案。大型應用軟件一般都有一個安裝程序，在安裝程序中解決ActiveX控件注冊是較為理想的一種方案。使用InstallShield可以制作出專業(yè)級的Setup，還可注冊其中的ActiveX控件；而且，在以后攜載軟件時，可以自動注銷掉以前注冊的ActiveX控件。方法如下：啟動InstallShield，使用ProjectWizard建立一個新的項目；新建一個“FileGroup”，將需要注冊的ActiveX控件文件放入此“FileGroup”中；將上述“FileGroup”的“Self－Registered”屬性設置成“Yes”；三、在應用程序中加入注冊代碼對于小型程序不宜采取第二種方法，較好的方法是在程序中嵌入注冊代碼，實現(xiàn)應用程序自注冊。其編程方法是：使用WindowsAPI函數(shù)LoadLibrary載入ActiveX控件；使用GetProcAddress函數(shù)獲取ActiveX控件中注冊函數(shù)DllRegisterServer（注銷函數(shù)為DllUnregisterServer）指針；調用注冊函數(shù)DllRegisterServer（或注銷函數(shù)DllUnregisterServer）；通過以上方法，在完成了以上的注冊過程后，有關TRealPlayer的組件信息就會出現(xiàn)在Windows中的注冊表中，此時在Delphi7中，我們就可以通過ActiveX對TRealAudio進行調用了。在程序的總體界面設計、源程序代碼的編寫與程序的后期調試之后，我們就可以對程序進行最終的編譯與運行了。程序編譯成功后，將生成項目文件(.dpr)、單元文件(.pas)以及相關的資源文件如附錄中所示。如果出現(xiàn)編譯錯誤，將在編譯信息狀態(tài)欄中給予對應的錯誤信息，結合錯誤信息進行程序的修改與調試，直到沒有任何錯誤方可運行可執(zhí)行程序。最終的程序執(zhí)行效果見附錄圖8。3. 結論 研究成果：對于本課題設計，從最初的設計構想到程序試設計，從程序試設計到程序的最終完成再到程序的調試與運行，在整個過程中，各個設計環(huán)節(jié)自己都是一步步認真完成的，通過查閱相關資料，通過與導師探討等等，使自己學到了很多，當然也獲得了諸多有價值的研究成果。這里就有關的研究成果我們總結如下：178。 在系統(tǒng)界面設計中，我們不僅設計了提示性按鈕“SELECT”和“PLAY”,迎合了習慣于使用提示性按鈕的用戶需求；同時，我們還應用Edit編輯框組件設計了播放器文本信息提示區(qū)，從而彌補了RealAudio信息提示的不足，擴展了系統(tǒng)功能；178。 在系統(tǒng)菜單中，通過“播放控制”中的“文件選擇”用戶可以在多種文件類型間進行靈活的選擇與切換；同時，我們還在“文件”菜單中設計了針對性類型文件的過濾與選擇，這可以使用戶直接定位到所需的類型文件，并通過選擇確定可直接打開所選定的文件