谁能说说怎样调节音量？？

boatzm 2003-10-18 02:36:40
我这儿有个函数但不清楚 各参数的意义，那个大哥解释下哈？

//音量控制
procedure TForm1.TrackBar1Change(Sender: TObject);
var
t,v:Longint;
begin
t:=TrackBar1.Position;
v:=(t shl 8)or(t shl 24);
waveOutSetVolume(0,v);
end;

就是 waveOutSetVolume(0,v); 0 和v 是代表什么？？
v:=(t shl 8)or(t shl 24); shl 是？？？
...全文
42 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yingshang 2003-10-18
  • 打赏
  • 举报
 回复
这是上个世纪的老函数了，不行了！我写了一段，你用用看！

{*******************************************************************}
{ }
{ 音量调节模块： }
{ 1. 获得音量（左右声道）的值和是否静音； }
{ 2. 设置音量（左右声道）的值和是否静音。 }
{ }
{*******************************************************************}

unit VolumeUnit;

interface

uses
// BasicUnit
SysUtils,
MMSystem,
Dialogs;


Type
TDeviceName = (Master, Microphone, WaveOut, Synth);

// 获得混音器参数
procedure GetVolume(DN: TDeviceName);
// 设置混音器参数
procedure SetVolume(DN: TDeviceName);


implementation

var
MuteVol : Boolean; // 静音
LeftVol : Integer; // 左声道
RightVol: Integer; // 右声道


{--- 获取声音的所有参数 ------------------------------------------------}
procedure GetVolume(DN: TDeviceName);
var
intRet : Integer;
hMix : HMIXER;
mxl : TMixerLine;
mxc : MIXERCONTROL;
mxlc : MIXERLINECONTROLS;
mxcd : TMIXERCONTROLDETAILS;
details : array [0..30] of Integer;
mcdMute : MIXERCONTROLDETAILS_BOOLEAN;
nMixerDevs: Integer;
begin

// 检查混音器是否可用
nMixerDevs := mixerGetNumDevs();
if (nMixerDevs < 1) then
begin
Exit;
end;

// 打开混音器
intRet := mixerOpen(@hMix, 0, 0, 0, 0);


// 获得左右声道的值
if intRet = MMSYSERR_NOERROR then
begin
case DN of
Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Microphone :
mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;
end;
mxl.cbStruct := SizeOf(mxl);

// 获得控制器的信息
intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);

mxlc.pamxctrl := @mxc;
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cbStruct := SizeOf(mxcd);
mxcd.cMultipleItems := 0;
mxcd.cbDetails := SizeOf(Integer);
mxcd.paDetails := @details;
mxcd.cChannels := 2;

intRet := mixerGetControlDetails(hMix, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE);

LeftVol := details[0];
RightVol := details[1];

if intRet <> MMSYSERR_NOERROR then
ShowMessage('设置控制器参数错误！');
end
else
ShowMessage('获得控制器信息错误！');
end; // end 左右声道


// 获得静音值
if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);
mxlc.pamxctrl := @mxc;

// 获得静音控制器
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cChannels := 1;
mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);
mxcd.paDetails := @mcdMute;

// 获得静音值
intRet := mixerGetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);

if mcdMute.fValue = 0 then
MuteVol := false
else
MuteVol := True;

if intRet <> MMSYSERR_NOERROR then
ShowMessage('设置控制器参数错误！');
end
else
ShowMessage('获得控制器信息错误！');
end; // end 静音

// 关闭混音器
intRet := mixerClose(hMix);
end;
end;

{--- 设置声音的所有参数 ------------------------------------------------}
procedure setVolume(DN: TDeviceName);
var
intRet : Integer;
hMix : HMIXER;
mxl : TMixerLine;
mxc : MIXERCONTROL;
mxlc : MIXERLINECONTROLS;
mxcd : TMIXERCONTROLDETAILS;
details : array [0..30] of Integer;
mcdMute : MIXERCONTROLDETAILS_BOOLEAN;
nMixerDevs: Integer;
begin

// 检查混音器是否可用
nMixerDevs := mixerGetNumDevs();
if (nMixerDevs < 1) then
begin
Exit;
end;

// 打开混音器
intRet := mixerOpen(@hMix, 0, 0, 0, 0);
if intRet = MMSYSERR_NOERROR then
begin
case DN of
Master : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Microphone :
mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
WaveOut : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT;
Synth : mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER;
end;
mxl.cbStruct := SizeOf(mxl);

// 获得控制器的信息
intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);


// 设置左右声道音量
if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);

mxlc.pamxctrl := @mxc;
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cbStruct := SizeOf(mxcd);
mxcd.cMultipleItems := 0;
mxcd.cbDetails := SizeOf(Integer);
mxcd.paDetails := @details;
mxcd.cChannels := 2;

details[0] := LeftVol;
details[1] := RightVol;

intRet := mixerSetControlDetails(hMix, @mxcd,MIXER_SETCONTROLDETAILSF_VALUE);

if intRet <> MMSYSERR_NOERROR then
ShowMessage('设置控制器参数错误！');
end
else
ShowMessage('获得控制器信息错误！');
end; // end 左右声道


// 设置静音
if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxlc, SizeOf(mxlc),0);
mxlc.cbStruct := SizeOf(mxlc);
mxlc.dwLineID := mxl.dwLineID;
mxlc.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
mxlc.cControls := 1;
mxlc.cbmxctrl := SizeOf(mxc);
mxlc.pamxctrl := @mxc;

// 获得静音控制器
intRet := mixerGetLineControls(hMix, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE);

if intRet = MMSYSERR_NOERROR then
begin
FillChar(mxcd, SizeOf(mxcd),0);
mxcd.cbStruct := SizeOf(TMIXERCONTROLDETAILS);
mxcd.dwControlID := mxc.dwControlID;
mxcd.cChannels := 1;
mxcd.cbDetails := SizeOf(MIXERCONTROLDETAILS_BOOLEAN);
mxcd.paDetails := @mcdMute;

// 设置静音
mcdMute.fValue := Ord(MuteVol);
intRet := mixerSetControlDetails(hMix, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE);

if intRet <> MMSYSERR_NOERROR then
ShowMessage('设置控制器参数错误！');
end
else
ShowMessage('获得控制器信息错误！');
end; // end 静音

// 关闭混音器
intRet := mixerClose(hMix);
end;
end;

end.
Android中默认系统的声音/大小修改和配置详解
声音管理系统用来实现声音的输入和输出、声音的控制和路由等功能,包括主和各种音源的音量调节、声音焦点控制，声音外设的检测和状态管理，声音源输入和输出的策略管理、音效的播放、音轨设置和播放、录音设置和启动...
分辨率修改工具
　重点部分：本帖主要重点是在对触摸屏键位的增加，那就重点说说触摸屏的修改，打开软键ChMobileKey后在右手边看到屏幕设定能见到把屏幕分成9个格（9宫格），代表我们能在触摸屏增加9个健，修改转换前可以先用（手机...
（PWM控制）音量电平表电路+PCB源文件+源代码+上位机等-电路方案
感觉这个不是太好弄，首先，这个PIC单片机用的人估计不太多，第二作者自己以前编了一个USB上位机，是在这个基础上开发的，虽然可以找到作者的源代码，但是估计不好搞定（我没有写过上位机软件，不太了解，随便说说的...
DSP收音机电路原理图+制作说明等-电路方案
按一下飞梭进入音量调节模式，旋转飞梭即能改变音量。再按一下或者不动一定时间，会转换回频率调节模式。进入音量调节模式时，表示音量大小的数字会闪烁提示使用者此刻是音量调节模式。 电路设计了两个按键开关，一...
安卓音效增效工具
但是，与此相反，有的就不怎么样，其中就有一款红极一时的powerAMP，该软件以其所谓的“出色音效”著称，可是我用了不到十分钟就果断卸了，W~H~Y，所谓高音质，只是鸡肋！由于程序的缺陷，用它来听歌时，音量严重...
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章