MediaPlayer如何调节音量(别以为又是个老问题!!!有心人请来看看这个问题怎样才能搞定,提着水壶的朋友提好了,不要把水倒在这里哦!)。 (100分)

  • 主题发起人 主题发起人 【小高】
  • 开始时间 开始时间

【小高】

Unregistered / Unconfirmed
GUEST, unregistred user!
定义:
const
MCI_SETAUDIO= $873;
MCI_SETVIDEO=$0876;
MCI_DGV_SETAUDIO_SOURCE_LEFT = 1;
MCI_DGV_SETAUDIO_SOURCE_STEREO = 0;
MCI_DGV_SETAUDIO_SOURCE_RIGHT = 2;
MCI_DGV_SETAUDIO_SOURCE = $00004004;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_STREAM = $00004003;
MCI_DGV_SETAUDIO_VOLUME = $00004002;

type MCI_DGV_SETAUDIO_PARMS=record
dwCallback:DWORD;
dwItem:DWORD;
dwValue:DWORD;
dwOver:DWORD;
lpstrAlgorithm:PChar;
lpstrQuality:PChar;
end ;

程序:
procedure TForm1.TrackBar2Change(Sender: TObject);
var
s: MCI_DGV_SETAUDIO_PARMS ;
begin

// Button1.Caption:=IntToStr(TrackBar2.Position);
s.dwOver:=TrackBar2.Position;//实际上这时可以是任何值。这个值不起任何作用。
s.dwItem:=MCI_DGV_SETAUDIO_VOLUME;
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,
integer(@s));
end;

这是一段用MCI控制Mediaplayer音量大小的程序。TrackBar2的Max是1000.
实际的效果是音量大小随TrackBar的拖动变大变小。

问题:
1、如果不注释//Button1.Caption:=IntToStr(TrackBar2.Position);这一条,也就是说随
TrackBar2的拖动改变Button1的标题,以上程序就没有作用了,Mediaplayer变得没有任何
声音,为什么??????

2、s.dwOver:=TrackBar2.Position;实际上这里可以是任何值。这个值不起任何作用。
并不要s.dwOver根本不用赋值。如果我不用TrackBar的拖动来改变音量大小。要如何处理?

3、要说明的是,我是用MediaPlayer控件播放VCD或DVD,声音是用[red]神龙卡[/red]设备输出,而不是用声卡,所以用WaveOutSetVolume调波形音量或系统主音量之类的方法可能
是不行。

请教各路大侠了。提着水壶的朋友提好了,不要把水倒在这里哦!
 
呜,怎么没人来解这个迷呀??????????????
 
//音量控制
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.



函数说明:

uses MMSystem;

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

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


可以用auxoutsetvolume(id:integer,volume:dword);具体使用方法请查阅DELPHI帮助,WIN32SDK.HLP。 其中ID是设备代号,我在实际编程中发现ID随着机器的不同而不同,但是他可以直接控制各种设备的音量,你可以用不同的ID试一试(ID一般在1~8之间),音量设置方法wjiachun好象没错

12.
{  已经有很多文章介绍过控制总音量的方法,但控制左右声道音量的方法却很少有文章介绍,本人介绍一种用Delphi实现控制左右声道音量的妙法,希望能给你的程序添彩。
  一、调节全部音量
  1.先在窗体中添加一个trackbar控件,可通过改变它的位置来调节音量,在trackbar1的属性中,我们把Max属性修改成255,改成这个值是为了便于进行二进制的音量调节操作。
  2.为了调用一个Windows函数,在uses子句里加上Mmsystem。
  3.为trackbar1的Onchange事件编写如下代码:
  procedure Tform1.TrackBar1change(Sender:Tobject);
  var t,v:longint;// t的最大值为8位的二进制:11111111;用v来表示音量的大小,这是个32位的整数,高16位表示右声道的音量,低16位表示左声道的音量
  begin

  t:=trackbar1.Position;//得到Trackbar的位置,可用这个值来表示音量的大小
  v:=(t shl 8) or (t shl 24);//将t左移8位、24位
  waveoutsetvolume(0,v);//设置音量
  end;
  二、分别控制两个声道的方法
  1.控制左声道
  procedure Tform1.TrackBar1change(Sender:Tobject);
  var t,v:longint;
  begin

  t:=trackbar1.Position;
  waveoutgetvolume(0,@v);//@表示指向变量v的指针(32位),调用此函数的用意就是得到右声道的值,做到在调节左声道的时候,不改变右声道
  v:=v and $ffff0000 or (t shl 8);//数字前面加$表示是十六进制数字
  waveoutsetvolume(0,v);
  end;
  2.控制右声道
  procedure Tform1.TrackBar2change(Sender:Tobject);
  var t,v:longint;//它的原理同上
  begin

  t:=trackbar2.Position;
  waveoutgetvolume(0,@v);
  v:=v and $0000ffff or (t shl 24);
  waveoutsetvolume(0,v);
  end;
  三、设置滑块的初始位置
  1.程序开始执行时,缺省情况下,Trackbar的位置在0,但我们希望程序开始执行时,这两个滑块能自动得到当前的音量,而处在相应的位置。
  procedure TForm1.FormCreate(Sender: TObject);
  var v:longint;
  begin

  waveoutgetvolume(0,@v);//得到现在音量
  trackbar1.Position:=hi(v);//设置左滑块的正确位置
  trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置
  end;
  注:函数hi(v)的作用为:返回一个16位无符号整数的高8位值。如果v为32位,则高16位自动被忽略了。
  2.只使用高8位时,可使调节效果更明显。
  3.对波形文件可以用waveoutgetvolume函数,对cd文件可以用auxgetvolume函数。
  注:以上程序均在Delphi 5.0,Windows 98SE下调试通过。}

 
不好意思,没看清楚
 
呜,没关系
热心人啦,感谢yanyandt2
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
811
import
I
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
后退
顶部