关于左右声道控制

Question

请教各位仁兄，在DELPHI中如何播放多个WAV文件，而且可左右声道貌岸然自行转换

Answer 1

进行如下试一试：
uses
  MMSystem;Procedure  SetMediaAudioLeftOn(DeviceID : word);
var
  SetParm : TMCI_SET_PARMS;
begin
  SetParm.dwAudio := MCI_SET_AUDIO_LEFT;
  mciSendCommand(DeviceID,MCI_SET,MCI_SET_AUDIO or MCI_SET_ON,Longint(@SetParm));
end;参数：
  MCI_SET_AUDIO_ALL  代表全部声道
  MCI_SET_AUDIO_LEFT 代表左声道
  MCI_SET_AUDIO_RIGHT 代表右声道
具体参考MMSystem单元调用方式：
  SetMediaAudioLeftOn(MediaPlayer1.DeviceId);

Answer 2

我已将声音做成资源文件,请问我如何使用mciSendCommand

Answer 3

你试一下
function AudioSource(AliasName:String; Source:String):String;
var
  cmd:String;
  dwReturn:Longint;
  MCIReturn : array[1..128] of char;
  Ret: PChar;
begin
  cmd := 'Setaudio ' + AliasName + ' source to ' + Source;
  dwReturn := mciSendString(pchar(cmd), nil, 0, 0);
  If Not (dwReturn = 0) Then
    begin
      ret:=@MCIReturn;
      mciGetErrorString (dwReturn, ret, 128);
      Result := ret;
      Exit;
    End;
  Result := 'OK';
end;其中AliasName 为文件打开的别名，Source为音源输出方式（可以是'left'、'right'、'average'、'stereo'，分别意为左，右，平均，立体声）这个函数我没有试过，你可以试一试。

Answer 4

使用delphi如何将2个mono音频文件合成为1个stereo文件