如何控制播放音的左右声道？附代码！

UID

这个用API就行了嘛
用Windows API进行声道控制
方法一：
WAVEOUTCAPS pwoc;
UINT uDeviceID=waveOutGetNumDevs();//Can not use
waveOutGetDevCaps(0,&pwoc,sizeof(WAVEOUTCAPS));
waveOutSetVolume(NULL,0xFFFFFFFF);//the max sound
oxFFFFFFFF每两个字节代表一个声道
方法二：
关闭音箱：
lReturn=mciSendString("set left off",sReturn,32,0);
lReturn=mciSendString("set right off",sReturn,32,0);
lReturn=mciSendString("setaudio left off",sReturn,32,0);
lReturn=mciSendString("setaudio right off",sReturn,32,0);
关闭声道：
lReturn=mciSendString("setaudio source to left",sReturn,32,0);
lReturn=mciSendString("setaudio source to right",sReturn,32,0);
lReturn=mciSendString("setaudio source to average",sReturn,32,0);
lReturn=mciSendString("setaudio source to stereo",sReturn,32,0);
方法三：
waveOutGetVolume(//获取指定并输出设备的音量值
HWAVEOUT hwo,LPDWORD lpdwVolume);
midiOutGetVolume(//获取指定内部MIDI合成器设备音量值
HWAVEOUT hwo,LPDWORD lpdwVolume);
waveOutSetVolume(//设置指定波形输出设备的音量值
HWAVEOUT hwo,LPDWORD lpdwVolume);
midiOutGetVolume(//设置指定内部MIDI合成器设备音量值
HWAVEOUT hwo,LPDWORD lpdwVolume);
用TrackBar实现：
void __fastcall TForm1::FormShow(TObject *Sender)
{
  DWORD Volume1,Volume2;
  waveOutGetVolume(0,&Volume1);
  TrackBar1->Position=Volume1;
  midiOutGetVolume(0,&Volume2);
  TrackBar2->Position=Volume2;
}

void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
  midiOutSetVolume(0,TrackBar2->Position);
}
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
  waveOutSetVolume(0,TrackBar1->Position);
}
方法四：
ShellExecute(NULL,NULL,"sndvol32.exe",NULL,NULL,SW_SHOW);

My2009

试了下，还是不行啊，能不能在我的代码上改一改看？？？多谢了！！

My2009

我再顶，顶，顶，顶，高手都到哪去了啊？？？？

My2009

高手还在潜水？？

My2009

实现不了，还是咋了？这么久都没人解啊?顶顶顶我再顶顶顶顶

yuxw

借花献佛:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
Local $musicf, $_audio, $btn1, $btn2, $btn3, $btn4, $sound

#Region ### START  GUI section ###
$musicf = "e:\smrf.mp3"
$_audio = GUICreate("左右声道测试V1.0          By:Tom_Zhou", 400, 100)
$btn1 = GUICtrlCreateButton("双声道", 20, 30, 60, 25, $BS_DEFPUSHBUTTON)
$btn2 = GUICtrlCreateButton("左声道", 90, 30, 60, 25)
$btn3 = GUICtrlCreateButton("右声道", 160, 30, 60, 25)
$btn4 = GUICtrlCreateButton("退 出", 230, 30, 60, 25)
GUISetState()
#EndRegion ### end  GUI section ###
While 1
        Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
            Case $btn1
                        _LR()        
                Case $btn2
            DllCall('winmm.dll', 'none', 'waveOutSetVolume', 'hwnd', 0, 'dword', 0xFFFF0000)

                Case $btn3
                        DllCall('winmm.dll', 'none', 'waveOutSetVolume', 'hwnd', 0, 'dword', 0x0000FFFF)

                Case $btn4        
            _SoundClose($sound)
                    ExitLoop          
        EndSwitch
WEnd

Func _LR()
$sound = _SoundOpen($musicf, "Startup")
If @error = 2 Then
        MsgBox(0, "Error", "The file does not exist")
        Exit
ElseIf @error = 3 Then
        MsgBox(0, "Error", "The alias was invalid")
        Exit
ElseIf @extended <> 0 Then
        $extended = @extended
        $stText = DllStructCreate("char[128]")
        $errorstring = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
        MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
Else
EndIf
_SoundPlay($sound)
;DllCall('winmm.dll', 'none', 'waveOutSetVolume', 'hwnd', 0, 'dword', 0x0000FFFF)

EndFunc

menfan1

不错，学习一下。。

My2009

非常感谢，太好了，呵呵！！！！

81206954

谢谢~~~~~~~~

81206954

谢谢~~~~~~~~

waxy

留个记号关注一下。

pingfan5888

不错，学习了。