bcb中的播放聲音操作

作者
李進

工作單位
煙台南大街建行科技部

　
在編寫程式的過程中，經常要用到各種資源。比如說，想給自己的程式換個自己的表徵圖，使用一些活潑的游標來增加趣味性，播放一些聲音和動畫檔案，或者使用別人寫好的程式來實現某個功能。我們往往希望將這些資源直接放到EXE檔案中以形成一個單獨的可執行檔，這就存在一個如何在運行時訪問和使用這些資源的問題。

----在編譯期間，這就要用到一種檔案，以.rc結尾的資源定義檔案。

----一：RC檔案

---- rc檔案是個文字檔，它的格式很簡單，按如下格式定義：

----資源標識符資源類型資源的路徑

----以下的rc檔案定義了一個聲音資源，兩個游標資源，三個表徵圖資源和一個exe檔案資源。

src1.rc:
S1 WAV wav1.Wav
C1 CURSOR cursor1.cur
C2 CURSOR cursor2.cur
I1 ICON icone1.ico
I2 ICON icone2.ico
I3 ICON icone3.ico
unzip EXEFILE pkunzip.exe

----你可以將寫好的rc檔案加到你
的project(項目）中。你也可以手工將其編譯為供程式直接使用的二進位資源檔（.res檔案）。在BCB3.0中，可以使用命令列：brcc32 src/DownloadFiles/a/2001-12-05/1.rc src/DownloadFiles/a/2001-12-05/1.res。(BR>
----二：資源的使用

----下面，按照使用的簡繁程度，依次說明各類資源的使用方法。需要說明的是，下面講述的使用方法，在別的編譯環境下（BC, VC等）也是一樣的。

---- 1：建立一個新的項目
----啟動BCB3.0,選FILE- >new- >Application 建立一個新的項目。

----在project- >Add to Project中，加入寫好的src1.rc檔案。當然，那些聲音、游標、表徵圖檔案都應該存在。

----這時，我們有了一個空的表單(Form)。

---- 2：能夠利用windows API函數直接存取的資源有：

表徵圖 LoadIcon（）
游標 LoadCursor（）
加速表 LoadAccelerators（）
位元影像 LoadBitmap（）
菜單 LoadMenu（）
字串 LoadString（）

----前五個API函數使用方法都一樣，帶兩個參數。

----第一個參數指明資源的存放地，第二個參數為rc檔案中資源的標識。

----字串LoadString除這兩個參數外，還有兩個參數，指明字串緩衝區的地址和大小。

----下面的一小段程式示範了表徵圖和游標的使用。

----在Form上放置一個按紐，在其OnClick事件中加入以下代碼：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//將游標形狀改為自己定義的：
Screen- >Cursors[crDefault] = LoadCursor( HInstance, "C1");
//將表徵圖改為自己定義的：
Icon = new TIcon() ;
Icon- >Handle = LoadIcon(HInstance,"I1");
Application- >Icon = Icon ;
}
----其中的HInstance指示資源所在地為執行檔案。編譯執行後，點擊該按紐，游標和表徵圖都會換成新的。

---- 3：能夠通過windows API使用的資源
----對於聲音、動畫等檔案，可以使用windows API函數播放。但是不象上面幾種資源，需要遵循一定的步驟。如下所示，依次調用FindResource, LoadResource, LockResource函數，來播放一個Wav音效檔。

----（當然，獨立的音效檔可以在運行時直接播放。我們這裡討論的是將wav檔案編譯進EXE檔案的情況）

----在Form上放置第二個按紐，在其OnClick事件中加入以下代碼：

void __fastcall TForm1::Button2Click(TObject *Sender)
{
//定義資源塊
char *wav_handle ;
//裝入Wav檔案
HRSRC h = FindResource(HInstance,"S1","WAV");
HGLOBAL h1 = LoadResource(HInstance, h);
wav_handle = (char *)LockResource(h1);
//播放Wav檔案。由於Wav檔案裝載在記憶體中，
sndPlaySound函數要用SND_MEMORY參數
sndPlaySound(wav_handle, SND_MEMORY | SND_SYNC);
}

----編譯執行後，點擊該按紐，會播放一次聲音。

----對於動畫等檔案，使用方式類似Wav檔案。（BCB提供了一個TAnimate控制項，可以播放無聲的Avi檔案）

---- 4：不能直接通過windows API使用的資源
----此種資源不能夠由windows API直接存取和執行。但是，我們可以用一種變通的方法來使用它。

----下面示範如何使用pkunzip.exe，思路如下：程式運行時，將pkunzip.exe從EXE檔案中分離出來，放在臨時目錄下，用ShellExecute()執行它。

----在FORM上放置第三個按紐，在放置兩個Edit ,用來輸入pkunzip.exe的參數。

void __fastcall TForm1::Button3Click(TObject *Sender)
{
char exefile[100], tmppath[100] ;
unsigned long ret ;
//檢查pkunzip.exe是否已經存在
GetTempPath( 100, tmppath ) ;
strcpy( exefile ,(AnsiString(tmppath)+
AnsiString("//pkunzip.exe") ).c_str() ) ;
ret = GetFileAttributes( exefile ) ;
if( ret == 0xffffffff )
{ //不存在，則分離出pkunzip.exe
TResourceStream &rs = *new TResourceStream( (int)HInstance, AnsiString("unzip"),"EXEFILE" ) ;
rs.SaveToFile( AnsiString(exefile) ) ;
delete &rs ;
}
//執行pkunzip.exe
// Edit1- >Text和Edit2- >Text分別為運行時輸入的zip檔案名稱和目標檔案目錄。
ShellExecute(HInstance, "open", exefile, AnsiString("-d ") + Edit1- >Text + " " + Edit2- >Text).c_str(), tmppath, SW_HIDE ) ;
Application- >MessageBox("解壓縮完成", "OK", IDOK ) ;
}

----此種方法實際上是用時間和空間來換取便利性，有一定的參考價值。例如，DynaDoc的免費分發版本，就是將真正的執行程式壓縮後放在一個有解壓縮功能的“殼”中。運行時，首先是“殼”運行起來，將真正的執行程式解壓縮到臨時目錄，然後去運行它。如果你的程式含有大量的BMP,WAV檔案，不妨一試，能讓你的程式減肥不少。