在BCB中輕松使用ActiveX控件

在BCB中輕松使用ActiveX控件

          （版權要求：本文除了經過CSDN授權或作者同意，不得轉載）

在微軟的大力扶持下，越來越多的軟體公司開始支援ActiveX了，這對于喜歡程式設計的朋友來說可是件值得高興的事！因為我們可以在程式中很友善地調用外部的OCX檔案來實作複雜的功能，而在BCB中隻帶有很少幾個ActiveX控件，大部分我們需要我們自己安裝，下面通過對RealPlayer與Flash控件的安裝與應用，讓我們共同來學習ActiveX的元件在BCB中的使用方法：）

一、安裝、導入 ActiveX 控件

　　C＋＋ Builder在對ActiveX的支援方面可說是做得非常出色，我們可以很友善地導入系統中的ActiveX控件：點選菜單“Component→Import ActiveX Control...”打開“Import ActiveX”對話框，在“Import ActiveX”清單框中，我們可以看到Windows中所有注冊的AxctiveX控件。在上面的控件清單中選擇你所需要的控件，再點下面的“Install”按鈕就行了！如果控件清單中沒有它，那麼說明你要找的控件還沒有在系統中注冊，不要緊，我們可以點選“Add”按鈕在你的計算機中找到這個OCX檔案後再Install，C＋＋ Builder會自動為它注冊。

二、了解 ActiveX 控件的所有方法

　　一般的ActiveX控件都是沒有幫助檔案的，在C＋＋ Builder的IDE環境中我們隻能看到它的設計期屬性和事件，那麼怎麼才能知道它的運作期屬性和方法呢？C＋＋ Builder在導入一個ActiveX控件後會在“E:/Program Files/Borland/CBuilder6/Imports”目錄中生成相應的頭檔案(＊.h)（當然你的目錄可能不是這樣的），隻要把它打開看一下就一目了然了！當然要是在BCB6下，你可以在程式設計的過種中輕按兩下代碼編輯器（Code Editor）左半邊的代碼浏覽器（Code Explorer）中的ActiveX控件的名字，在右側代碼區就會檢視到她的頭檔案，慢慢體會吧：）

　　另外我們還必須了解各種屬性、方法及其參數的含義，那就要程式設計式來試了，為每個想了解的屬性和方法建立一個菜單項，點選時用InputBox輸入參數來試驗效果，還可以建立一個狀态欄來顯示與其相關變量的值。

　   

三、應用舉例

現在流行的ActiveX控件很多，這裡我們拿RealPlayer與flash控件做為例子。

1 ． RealPlayer 控件的使用

如今RealPlayer的流式媒體檔案以其強大的視訊壓縮比正逐漸悄然興起。RealPlayer Plus播放器也理所當然地成為大家播放RealPlayer格式檔案的首選軟體。人家在好的也是别人的，其實我們可以利用C++ Builder打造一個完全符合自己要求的RealPlayer播放器。下面我将向大家介紹如何利用BCB來完成你的RealPlayer。前提你的機器中必須裝有RealPlayer Plus播放器，因為我們要用到其自帶ActiveX控件。

       首先，我們要在C++ Builder中導入所需的ActiveX控件。點選菜單“Component→Import ActiveX Control...”打開“Import ActiveX”對話框，在“Import ActiveX”清單框中，我們可以看到Windows中所有注冊的AxctiveX控件。選擇其中的“RealPlayer ActiveX Control Library(Version 1.0)”控件。然後單擊“Install”按鈕。

        回到C++ Builder主界面，你會發現在VCL面闆中的ActiveX标簽中增加了一個名為RealAudio的元件。我們先把它放入窗體中。不過在預設情況中RealAudio元件沒有視訊播放視窗，也就是隻能播放聲音。我我們隻要在RealAudio元件的Controls屬性中添加如下代碼：

IMAGEWINDOW,CONTROLPANEL,STATUSBAR

（其中：IMAGEWINDOW、CONTROLPANEL、STATUSBAR分别表示顯示視訊播放視窗、控制條狀态條）

       添加代碼後，我們可以發現控件外觀已經改變成了視訊播放視窗形狀。然後設定Align屬性為alClient，使播放視窗可以随窗體的變化而變化，友善大家在觀看影視動畫時可以随意拉動播放視窗大小。

        然後，在窗體中加入TImage元件、TopenDialog（odgRealplay）、TrealPlayer（radMyPlayer）元件各一個，加入兩個Tbutton(btnOpenClick,btnExitClick)。在Image中導入你喜歡的圖檔，以免視窗過于單一，兩個TButton一個設為開始，一個設為結束。括号裡的名字是在我的應用程式中給該控件命的名字。

        輕按兩下btnOpen添加如下代碼：

void __fastcall TForm1::btnOpenClick(TObject *Sender)

{

  if(odgRealplay->Execute())

              {

radMyPlayer->Source=odgRealplay->FileName

radMyPlayer->DoPlay();打開并啟動播放器

}

}

       輕按兩下btnExit添加如下代碼：

//---------------------------------------------------------------------------

void __fastcall TForm1::btnExitClick(TObject *Sender)

{

Close();　//終止程式運作

}

　

為了在打開一個檔案時，便于使用者選擇檔案，要将odgRePlayer的Filter屬性設定如下：所有媒體檔案(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*。

        按一下F9，找一首歌曲聽一下：）

其它的屬性、方法呢？她的屬性真的很少，而且多數是BOOL型的，除了上面用到的，基本沒有什麼讓你不用的了，方法到是很多，但是用到的并不多，到她的頭檔案中，你自己看吧：P

        2.Flash 控件的使用

首先我們還是要先安裝、導入ActiveX控件：選擇“Component－>Import ActiveX Control”，在上面的控件清單中選擇“ShockWave Flash(Version 1.0)”，再點下面的“Install”按鈕就行了！如果控件清單中沒有它，那麼說明ShockWave Flash控件還沒有在系統中注冊，不要緊，我們可以點選“Add”按鈕在你的計算機中找到這個OCX檔案後再Install，C＋＋ Builder會自動為它注冊。

　　

　　導入成功後，C＋＋ Builder會在ActiveX頁中增加一個“ShockWaveFlash”控件，建立一個新工程，在合适的位置放置一個ShockWaveFlash控件，适當調整一下它的大小，然後在它的“Movie”屬性中填上一個你的硬碟上已有的Flash動畫檔案名，然後按F9運作，怎麼樣，不用寫一行代碼我們就做出了一個能顯示Flash動畫的程式:)

　　為了更好的應用她，首先我們了解一下ShockWaveFlash控件的屬性和方法:

【屬性】AlignMode(int型)和SAlign(WideString型) 控制動畫的顯示位置(把這兩個屬性列在一起說明它們是互相關聯的，改變一個另一個也會相應地改變，以下類似)。取值範圍及含義如下:

　　 0 空        目前位置

　　 1 L         目前位置靠左

　　 2 R         目前位置靠右

　　 3 LR       目前位置居中

　　 4 T         目前位置靠上

　　 5 LT       左上

　　 6 TR      右上

　　 7 LTR    上方居中

　　 8 B         目前位置靠下

　　 9 LB       左下

　　 10 RB    右下

　　 11 LRB  下方居中

　　 12 TB      目前位置垂直居中

　　 13 LTB    靠左垂直居中

　　 14 TRB 靠右垂直居中

　　 15 LTRB 中央位置

　　【屬性】BackgroundColor(int型)和BGColor(WideString型) 設定背景顔色，BackgroundColor為整型值，BGColor為它的HEX字元串。

　　【屬性】Loop(bool型) 是否循環顯示

　　【屬性】Menu(bool型) 是否顯示右鍵菜單，建議設為true，因為它可以完成對Flash動畫的大部分控制工作，而不用我們寫代碼。

　　【屬性】Movie(WideString型) Flash動畫的檔案名，可以在運作狀态動态設定，要關閉一個動畫隻要把它設為空即可。

　　【屬性】Quality(int型)和Quality2(WideString型) 控制動畫的顯示品質,一般将Quality設為1以獲得高品質的顯示效果。

　　【屬性】ScaleMode(int型)和scale(WideString型) 控制動畫的顯示比例，取值範圍及含義如下:

　　 0   ShowAll 顯示全部

　　 1   NoBorder 無邊框模式

　　 2   ExactFit 拉伸到整個畫面

　　 3   空 原始大小

　　【方法】PercentLoaded 傳回動畫已經加載的百分比，你可以建立一個程序條(ProgressBar)來顯示動畫加載的程序。

　　【方法】LoadMovie 用于加載網絡上的動畫，動畫檔案名為一個BSTR型的URL值，在 C＋＋ Builder 中可以用 AnsiToOLESTR 函數将Char型的字元串轉換成BSTR型。

　　如果你要把你的程式給别人使用，為了防止他沒有安裝或是注冊swflash.ocx檔案而導緻程式無法運作，你必須把OCX檔案也一起附帶上，并在程式中為它在系統中注冊，注冊方法有兩種：

　　方法一：調用外部程式 Regsvr32.exe

　　注冊：   ShellExecute(Handle,NULL,“regsvr32.exe”,“swflash.ocx”,NULL,SW_SHOWNORMAL);

　　反注冊： ShellExecute(Handle,NULL,“regsvr32.exe”,“/u swflash.ocx”,NULL,SW_SHOWNORMAL);

　　方法二：調用控件本身所包含的注冊和反注冊函數

　　每一個OCX控件中都提供了兩個輸出函數“DllRegisterServer”和“DllUnRegisterServer”，可以注冊和反注冊控件本身，我們可以用LoadLibrary()和GetProcAddress()來調用它們，這和動态調用DLL庫的方法是一樣的，我在這裡就不多說了。

　   你會問我為什麼會知道這些屬性的使用方法及該控件的方法的使用的，先看這個元件的頭檔案，然後可以在程式中用InputBox輸入參數來試驗效果，還可以建立一個狀态欄來顯示與其相關變量的值。我用的是這種方法，也許你會有更好的方法，好了，利用上面介紹的屬性和方法，相信你已經很好地使用它了！當然有些我也沒有弄明白，比如我想在RePlayer中實作重複播放，代碼如下：

void __fastcall TFrmMyPlayer::btnReOpenClick(TObject *Sender)

{

        if(odgRealplay->Execute())

        {

                int n,i;

                n=StrToInt(InputBox("播放次數","你想播放多少次呢？","2"));

                        if(n<1)

                        {

                        ShowMessage("次數必須為正整數！");

                        return;

                        }

                        radMyPlayer->Source=odgRealplay->FileName;

                        for(i=1;i<=n;i++)

                        {

                        radMyPlayer->DoPlay();

                        ShowMessage(IntToStr(i));//用來測試是否循環有問題，測試後應該把這個語句去掉

                        }

        }

無論如何也不能循環，我想問題可能出現在DoPlay()上了，可能她裡面有一個跳出程式的語句（return——我覺得應該是她），直接跳出循環，因為我也不清楚DoPlay()的原碼是什麼，或許不是這樣，是我的程式有些問題，還請大家指教，互相學習嗎：）

沒辦法ActiveX控件就得靠我們自己學習，有什麼辦法呢？但到是讓我學習到了很多東西，其實從中也能更好的學習BCB的其它元件了，因為還是有一些共性的。

無論如何我覺得ActiveX控件給我們的程式設計帶來很多的友善，不防你也按照上面的方法做一個屬于你自己的Media Player9，感受一下快樂帶給你的一切：P