声音控制问题~~求助~~!!(200分)

  • 主题发起人 主题发起人 吴三桂
  • 开始时间 开始时间

吴三桂

Unregistered / Unconfirmed
GUEST, unregistred user!
在声音控制(小喇叭)中,每一个音量上方都有一个“平衡”调节器,请问:

如何控制这些平衡调节器?谢谢~~~!!!
尤其是Volume和Wave(波形?),谢谢!!!!

我是在XP下查看的:)~
 
看到一老贴,win200我试过,好使。你参考吧

要改变系统的音量输出的大小,
象windows的音量控制程序sndvol32.exe一样;(1)
而不是象Windows Media Player的音量调节那样;(2)

//回答问题的同志请注意这二者之间的差别。
我不知道者之间的差别,大概前者控制的是底层的东西,而后者控制的则是表象
我不知道原理只能瞎猜。

搜索类似的贴子,发现只能实现第二种功能,所有的回答都不超过下面这个贴子的范围;
所以不要再提供相似的回答了。
//*******************************************************************//
来自:程云, 时间:2000-6-8 17:06:00, ID:262698
控制音量要用到waveOutSetVlume函数,此函数的声明在MMSystem.h单元中。
此单放在Delphi目录下的Source/rtl/win中

主意这儿用到两个函数waveOutSetVlume和waveOutGetVolume,不要用混,
我第一次用它们时就给搞混了,好费事。

程序如下:

三个TrackBar的属性设置:Max:=255;Frequency:=16;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, mmsystem;

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
TrackBar2: TTrackBar;
TrackBar3: TTrackBar;
procedure TrackBar1Change(Sender: TObject);
procedure TrackBar2Change(Sender: TObject);
procedure TrackBar3Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.DFM}

//音量控制
procedure TForm1.TrackBar1Change(Sender: TObject);
var
t,v:Longint;
begin

// if a=0 then
Exit;
t:=TrackBar1.Position;
v:=(t shl 8)or(t shl 24);
waveOutSetVolume(0,v);
end;


//左声道控制
procedure TForm1.TrackBar2Change(Sender: TObject);
var
t,v:Longint;
begin

t:=TrackBar2.Position;
waveOutGetVolume(0,@v);
v:=v and $ffff0000 or (t shl 8);
waveOutSetVolume(0,v);
end;


//右声道控制
procedure TForm1.TrackBar3Change(Sender: TObject);
var
t,v:Longint;
begin

t:=TrackBar3.Position;
waveOutGetVolume(0,@v);
v:=v and $0000ffff or (t shl 24);
waveOutSetVolume(0,v);
end;


//获得当前音量值
procedure TForm1.FormCreate(Sender: TObject);
var
v:longint;
begin

waveOutGetVolume(0,@v);
TrackBar2.Position:=hi(v);
TrackBar3.Position:=hi(v shr 16);
if hi(v)>hi(v shr 16) then

TrackBar1.Position:=hi(v)
else

TrackBar1.Position:=hi(v shr 16);
end;


end.



函数说明:

waveOutSetVolume
第一个参数是波形文件输出设备标识符;
第二个参娄是音量大小。这是一个32位的整数,低16位表示左声道的音量,
高16位表示右声道的音量。

waveOutGetVolume
第一个参数是波形文件输出设备标识符;
第二个参数是一个32位整数的指针。
//****************************************************************//

 
我是说音量上面的“平衡”控制~~~
Volume和Wave的好象不一样吧:)~
 
没问题,你试了就知道
 
好像和我问的不一样:(
有像windows音量管理一样的源程序吗?
 
please!help!
 
后退
顶部