Delphi MediaPlayer 音量控制（学习笔记）

最新推荐文章于 2024-09-17 13:40:59 发布

50岁开始学编程

最新推荐文章于 2024-09-17 13:40:59 发布

阅读量855

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/qq_36429391/article/details/108859276

版权

这篇博客介绍了两种在Delphi中控制MediaPlayer音量的方法，包括如何单独控制左右声道。方法一是通过waveOutSetVolume函数，适用于全局音量控制，而方法二则能单独控制每个MediaPlayer实例的音量，通过waveoutgetvolume获取并设置音量值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

要控制MediaPlayer的音量，方法一测试可行，但有一个缺点，如果有多个MediaPlayer，无法单独控制，方法二可以单独控制，Delphi7测试通过。

方法一：

//音量控制
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:=h