對於RealPlayer網絡播放軟件大家一定不會陌生。其強大的網絡視頻、音頻等媒體播放功能讓人很是羨慕。如果自己也能做一個，心裡肯定感覺不錯。
RealPlayer軟件本身有一個RealPlayer插件。由於它采用的是Active技術，這就為我們創建自己的RealPlayer播放器創造了條件。因為應用ActiveX技術做成的插件，可以很方便地應用到任何支持ActiveX技術的開發語言中，並作為一個普通組件加以使用。我們在下面就以Delphi 5.0為例，制作一個屬於自己的RealPlayer網絡影視播放器。
添加RealPlayerActive插件到組件欄ActiveX項中，以備使用。選擇主菜單Component→Import ActiveX Control項，將出現一個Import ActiveX窗口，該窗口的上部選擇列表中存放了本計算機系統中已經擁有的各種Active插件。如果你安裝了RealPlayer軟件，就從中找到RealPlayer ActiveX Control Library一項並選定，然後選擇窗口下部的Install...按鈕，出現Install窗口，保持默認值，選擇OK，即可添加完成。回到組件欄ActiveX項中，你會發現RealPlayer軟件的圖標。這樣，RealPlayer就可當作一個普通組件使用。
圖1 RealPlayer Active
新建一個Delphi應用程序，然後在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中，命名為RealAudio1，出現一個簡化的RealPlayer界面。但它只有控制界面，沒有視頻圖像界面。這不要緊，在RealPlayer組件的Controls屬性中加入“ImageWindow”，然後點擊下面的窗口，視頻圖像開始出現，在“ImageWindow”後接著添加“ControlPanel”屬性值（用逗號分開）。這樣控制界面出現，還可以在後面繼續添加“Statuabar”值，出現狀態條。
將RealPlayer組件拉動到適當大小，在窗口中添加一命令按鈕並命名為Play。然後在按鈕的單擊事件中添加以下代碼：
procedure TForm1.Button1Click(Sender: TObject);
begin
RealAudio1.source=' c:\A.rm' ; //播放的電影源。
RealAudio1.doplay; //開始播放電影
end;
一個RealPlayer播放器就做完了，簡單吧！不過本文只是簡單介紹RealPlayer組件，它還擁有許多屬性和方法，諸君可以自由發揮想像力，設計一個更加完善的播放器。
