文/張國軍

　　對于RealPlayer網絡播放軟件大家一定不會陌生。其強大的網絡視頻、音頻等媒體播放功能讓人很是羨慕。如果自己也能做一個，心里肯定感覺不錯。

　　RealPlayer軟件本身有一個RealPlayer插件。由于它采用的是Active技術，這就為我們創(chuàng)建自己的RealPlayer播放器創(chuàng)造了條件。因為應用ActiveX技術做成的插件，可以很方便地應用到任何支持ActiveX技術的開發(fā)語言中，并作為一個普通組件加以使用。我們在下面  
就以Delphi 5.0為例，制作一個屬于自己的RealPlayer網絡影視播放器。

　　添加RealPlayerActive插件到組件欄ActiveX項中，以備使用。選擇主菜單Component→Import ActiveX Control項，將出現(xiàn)一個Import ActiveX窗口，該窗口的上部選擇列表中存放了本計算機系統(tǒng)中已經擁有的各種Active插件。如果你安裝了RealPlayer軟件，就從中找到RealPlayer ActiveX Control Library一項并選定，然后選擇窗口下部的Install...按鈕，出現(xiàn)Install窗口，保持默認值，選擇OK，即可添加完成。回到組件欄ActiveX項中，你會發(fā)現(xiàn)RealPlayer軟件的圖標。這樣，RealPlayer就可當作一個普通組件使用。


圖1 RealPlayer Active

　　新建一個Delphi應用程序，然后在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中，命名為RealAudio1，出現(xiàn)一個簡化的RealPlayer界面。但它只有控制界面，沒有視頻圖像界面。這不要緊，在RealPlayer組件的Controls屬性中加入“ImageWindow”，然后點擊下面的窗口，視頻圖像開始出現(xiàn)，在“ImageWindow”后接著添加“ControlPanel”屬性值(用逗號分開)。這樣控制界面出現(xiàn)，還可以在后面繼續(xù)添加“Statuabar”值，出現(xiàn)狀態(tài)條。

　　將RealPlayer組件拉動到適當大小，在窗口中添加一命令按鈕并命名為Play。然后在按鈕的單擊事件中添加以下代碼：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　RealAudio1.source=' c:A.rm' ; //播放的電影源。

　　RealAudio1.doplay; //開始播放電影

　　end;

　　一個RealPlayer播放器就做完了，簡單吧！不過本文只是簡單介紹RealPlayer組件，它還擁有許多屬性和方法，諸君可以自由發(fā)揮想像力，設計一個更加完善的播放器。