在Delphi中實(shí)現(xiàn)音量的控制 (2000年12月19日) 

本站更新  分類(lèi):   作者:srw  推薦:   閱讀次數(shù):546  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
多媒體的應(yīng)用，往往離不開(kāi)音頻文件，DELPHI偏偏不帶音量控制的控件，雖然可以安裝第三方的音量控制控件，不過(guò)對(duì)于我們這些編程的超級(jí)菜鳥(niǎo)來(lái)說(shuō)，自己動(dòng)手才是豐腦之道，這里，我利用API函數(shù)就實(shí)現(xiàn)了WAVE文件的總音量控制及左右聲道音量分別控制。

為了調(diào)用Windows函數(shù)，先在Uses中加上MMSystem，Delphi提供了調(diào)用WaveOutSetVolume 函數(shù)的Pascal語(yǔ)言的接口，不信看看MMSystem.pas文件*&^@*<。

我編了演示程序，界面如下： 
加入三個(gè)TrackBar，分別命名為T(mén)B_vol，TB_l，TB_r，將Max值設(shè)為255（即8位二進(jìn)制數(shù)的最大值），F(xiàn)requency的值設(shè)為10。

先看看總音量控制的實(shí)現(xiàn)：


procedure TForm1.TB_volChange(Sender: TObject);

var
pos,vol:longint;

begin
pos:=TB_vol.Position;

vol:=(pos shl 8)or(pos shl 24);

waveoutsetvolume(0,vol);

end;


首先我們得到TrackBar的位置，用這個(gè)值來(lái)記錄音量的大小，第二句轉(zhuǎn)換Windows函數(shù)中對(duì)應(yīng)的正確形式，末一句設(shè)置音量。

WaveOutSetVolume函數(shù)有兩個(gè)參數(shù)：

第一個(gè)參數(shù)為波形文件輸出設(shè)備的標(biāo)識(shí)符，這里的標(biāo)識(shí)符為0。

第二個(gè)參數(shù)為音量的大小，他是一個(gè)32位的整數(shù)，低16位表示左聲道的音量，高16位表示右聲道的音量。

由于TrackBar只用8位二進(jìn)制數(shù)表示音量，因而先把得到的8位音量值pos左移8位，變成左聲到16為中的高8位，然后將pos右移24位，變成右聲到16為中的高8位，將兩個(gè)值進(jìn)行or運(yùn)算賦給vol，將vol加給WaveOutSetVolume函數(shù)的第二個(gè)參數(shù)，這樣就可以實(shí)現(xiàn)同時(shí)改變兩個(gè)聲道的音量了。

理解上述方法后，分別控制左右聲道就不難了，看看左聲道的實(shí)現(xiàn)：


procedure TForm1.TB_lChange(Sender: TObject);

var
pos,vol:longint;

begin
pos:=TB_l.Position;

waveoutgetvolume(0,@vol);

vol:=vol and $ffff0000 or (pos shl 8);

waveoutsetvolume(0,vol);

end;


由于只修改左聲道的值，為了保存右聲道的音量，即保存得到音量值pos的高16位，我們將vol和$ffff0000（16進(jìn)制數(shù)）進(jìn)行or運(yùn)算，這樣，vol的低16位被清零，高16位保持不變，再將低16位左移8位表示新的左聲道的音量。

右聲道同理實(shí)現(xiàn)


procedure TForm1.TB_rChange(Sender: TObject);

var
pos,vol:longint;

begin
pos:=TB_r.Position;

waveoutgetvolume(0,@vol);

vol:=vol and $0000ffff or (pos shl 24);

waveoutsetvolume(0,vol);

end;


同時(shí)，我們?yōu)榱顺绦蛞贿\(yùn)行滑塊就能到當(dāng)前的音量（完善完善嘛），需要在Form的Create事件中加入以下語(yǔ)句：



procedure TForm1.FormCreate(Sender: TObject);

var
vol:longint;

begin
waveoutgetvolume(0,@vol);

TB_l.Position :=hi(vol); {設(shè)置左聲道音量}

TB_r.Position :=hi(vol shr 16); {設(shè)置右聲道音量}

end;


到此，一個(gè)控制音量的程序就OK了，以上在Delphi5.2中調(diào)試通過(guò)。