有哪位CSDN兄弟知道如何实现DELPHI中分声道播放声音，感激感激~~~~~~~

Question

想要实现分声道播放声音，如何实现呢？？
感激感激~~~~~~~~~~~~

Answer 1

WOKAO怎么没有人来访问我的贴子噢？？：（

Answer 2

用DSPACK吧，IBasicAudio或IMpegAudioDecoder接口很容易的

Answer 3

http://soft.56kc.com/FileDown.aspx?FID=287

Answer 4

//音量控制  
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.

Answer 5

我也在找这方面的资料。我用的是Microsoft.DirectX.AudioVideoPlayback.dll