我说的重点是在两个声道分别同时播放,有没有难度?

解决方案 »

  1.   

    http://vip.6to23.com/NowCan1/ctrls.htm
      

  2.   

    可以用多线程呀,每个线程里用一个Player进行播放,一个Player控制一个声道没有什么问题吧
      

  3.   

    呵呵,一个控件播放两个声音肯定是有难度的可以用两个控件(比如mediaplayer)同时播放,每个控件都只用一个声道播放,也不用多线程吧?:)
      

  4.   

    同意shadowfish(<)<-<-<<死鱼<)<-<-<)
      

  5.   

    这是控制声道的代码:{立体声}
    procedure TForm1.N_StereoClick(Sender: TObject);
    begin
      N_Stereo.Checked := True;
      N_Left.Checked := False;
      N_Right.Checked := False;
      mciSendString('set all audio all on', nil, 0, Handle);
    {立体声}
    end;{左声道}
    procedure TForm1.N_LeftClick(Sender: TObject);
    begin
      N_Stereo.Checked := False;
      N_Left.Checked := True;
      N_Right.Checked := False;
      mciSendString('set all audio all off', nil, 0, Handle);
      mciSendString('set all audio left on', nil, 0, Handle);
    {左声道}
    end;{右声道}
    procedure TForm1.N_RightClick(Sender: TObject);
    begin
      N_Stereo.Checked := False;
      N_Left.Checked := False;
      N_Right.Checked := True;
      mciSendString('set all audio all off', nil, 0, Handle);
      mciSendString('set all audio rigth on', nil, 0, Handle);
    {右声道}
    end;
      

  6.   

    谢谢,只是太专横。我希望应用程序控制自己的输出声道,而不是控制WINDOWS最终的声道。有没有相关的代码?比方说mediaplayer的输出声道控制,或WMP9的ACTIVEX控件本身有没有控制声道输出的方法?