调节音量大小怎么做。

xiaoxingchi 2002-06-05 02:58:33
谢谢!
...全文
66 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tiga 2002-06-05
  • 打赏
  • 举报
回复
又来晚了。
楼上说的不错。
Billy_Chen28 2002-06-05
  • 打赏
  • 举报
回复
//音量控制
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.trackbar1changer (sender:tobject);//左声道
var t,v:longint;
begin
t:=trackbar1.postion;
wavoutgetvolume(0,@v);
v:=v and $ffff0000 or (t shl 8);
wavoutsetvolume(0,v);
end;

procedure tform1.trackbar2changer (sender:tobject);//右声道
var t,v:longint;
begin
t:=trackbar2.postion;
wavoutgetvolume(0,@v);
v:=v and $0000ffff or (t shl 24);
wavoutsetvolume(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位整数的指针。


可以用auxoutsetvolume(id:integer,volume:dword);具体使用方法请查阅DELPHI帮助,WIN32SDK.HLP
MP3GainGUI(MP3音量增大器)V1.3.6 绿色美化优化版 相信许多朋友在用MP3播放器欣赏MP3音乐时,经常碰到因各首MP3歌曲的音量不同,只得使用线控频繁调整音量大小的问题,这样会影响我们欣赏音乐的心情的!怎么把很多MP3歌曲的音量调整为一样呢?使用MP3Gain吧!有了这个软件,相信大家在听音乐时就不用频繁调整线控的音量旋钮了。 一个 MP3 音量调整软件。既可以调整单首 MP3 的音量,也可以平衡整张专辑的音量,还支持调节单个声道。能够在刻录光盘前,将所有 MP3 歌曲的音量分析并调整到相同大小,就不用每次都调整音量了 愿网版的特性 1。绿化了主程序,纯净绿色。 2。美化了主程序图标,漂亮。 3。精简了多余文件,特干净。 4。去除了开启时的自动联网。 5。去掉了自动升级的多余项。 6。程序已经中文化,方便咯。 7。愿网交流版,转载请著名。 使用方法 1.打开主程序 2.直接把MP3文件用鼠标拖拽到界面中就可以咯 3.建议中间标准化音量设为≥95(手机铃声就100,可以多试几次,调到你满意) 4.然后就点击中间的"音轨增益"就可以完成对MP3文件的音量增减,建议先备份文件,不好可以重来 5.如果你是WMA文件,可以先用Power MP3 WMA Converter来转换成MP3 6.想先截取一段歌曲高潮来放大音量铃声,可以用MP3 Splitter&Joiner;先截取一段歌曲 关于个别MP3格式无法增减音量,我发现原因是个别网站在MP3标签信息里玩猫腻,我弄了个解决办法 就是用千千静听打开这个MP3,然后右键点击播放列表里的这首MP3,选择"文件属性"就可以见到如下的界面,如果标签内容样式不一样,那就点击里面的"高级"按钮一下就可以咯,然后就按我图里一直点击那个红色的"一"删掉所有标签的内容就可以咯

5,379

社区成员

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

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