在BCB中輕鬆使用ActiveX控制元件 (轉)

在BCB中輕鬆使用ActiveX控制元件 (轉)[@more@]

在BCB中輕鬆使用:namespace prefix = o ns = "urn:schemas--com::office" />

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

在的大力扶持下，越來越多的公司開始支援ActiveX了，這對於喜歡的朋友來說可是件值得高興的事！因為我們可以在中很方便地外部的OCX來實現複雜的功能，而在BCB中只帶有很少幾個ActiveX控制元件，大部分我們需要我們自己，下面透過對Real與Flash控制元件的安裝與應用，讓我們共同來學習ActiveX的在BCB中的使用方法：）

一、安裝、匯入ActiveX控制元件
　　C＋＋ Builder在對ActiveX的支援方面可說是做得非常出色，我們可以很方便地匯入中的ActiveX控制元件：點選選單“Component→Import ActiveX Control...”開啟“Import ActiveX”對話方塊，在“Import ActiveX”列表框中，我們可以看到中所有註冊的AxctiveX控制元件。在上面的控制元件列表中選擇你所需要的控制元件，再點下面的“Install”按鈕就行了！如果控制元件列表中沒有它，那麼說明你要找的控制元件還沒有在系統中註冊，不要緊，我們可以點選“Add”按鈕在你的中找到這個OCX檔案後再Install，C＋＋ Builder會自動為它註冊。

二、瞭解ActiveX控制元件的所有方法
　　一般的ActiveX控制元件都是沒有幫助檔案的，在C＋＋ Builder的環境中我們只能看到它的設計期屬性和事件，那麼怎麼才能知道它的執行期屬性和方法呢？C＋＋ Builder在匯入一個ActiveX控制元件後會在“E:Program FilesBorlandCBuilder6Imports”目錄中生成相應的標頭檔案(＊.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,STATAR

（其中：IMAGEWINDOW、CONTROLPANEL、STATUSBAR分別表示顯示影片播放視窗、控制條狀態條）
  新增程式碼後，我們可以發現控制元件外觀已經改變成了影片播放視窗形狀。然後設定Align屬性為alClient，使播放視窗可以隨窗體的變化而變化，方便大家在觀看影視動畫時可以隨意拉動播放視窗大小。
  然後，在窗體中加入TImage元件、TopenDialog（odgRealplay）、TrealPlayer（radMyPlayer）元件各一個，加入兩個Tbutton(btnOpenClick,btnExitClick)。在Image中匯入你喜歡的圖片，以免視窗過於單一，兩個TButton一個設為開始，一個設為結束。括號裡的名字是在我的應用程式中給該控制元件命的名字。
  雙擊btnOpen新增如下程式碼：
void __fastcall TForm1::btnOpenClick(T *Sender)
{
  if(odgRealplay->Execute())
  {

radMyPlayer->=odgRealplay->FileName
radMyPlayer->DoPlay();開啟並啟動播放器

}
}
  雙擊btnExit新增如下程式碼：
//---------------------------------------------------------------------------
void __fastcall TForm1::btnExitClick(TObject *Sender)
{
Close();　//終止程式執行
}
　

為了在開啟一個檔案時，便於選擇檔案，要將odgRePlayer的Filter屬性設定如下：所有媒體檔案(*.rm,*.ram,*.ra,*.swf,*.)|*.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字串。
　　【屬性】L(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)來顯示動畫載入的程式。
　　【方法】LoadMov用於載入上的動畫，動畫檔名為一個BSTR型的URL值，在 C＋＋ Builder 中可以用 AnsiToOLESTR 將Char型的字串轉換成BSTR型。
　　如果你要把你的程式給別人使用，為了防止他沒有安裝或是註冊swflash.ocx檔案而導致程式無法執行，你必須把OCX檔案也一起附帶上，並在程式中為它在系統中註冊，註冊方法有兩種：
　　方法一：呼叫外部程式 Regsvr32.exe
　　註冊：  Execute(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