盒子论坛 v2.1

static const AnsiString MediaAliasName = "MyApp";

static const char* MediaAliasName = "MyApp";
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

kmustty (sky)	★☆☆☆☆	-
	盒子活跃会员

2004/5/2 20:32:26

2楼：

const MediaAliasName='MyMp3';
procedure TMainFrm.MySetAudio(Value:byte);
var SetAs,retstr:string;
begin
  case Value of
    1: begin
         mcisendstring('set all audio all on',nil,0,handle);
         SetAs:='stereo'; n7.Checked :=true;
         if FrmDisplayScr.visible then
            FrmDisplayScr.n7.Checked :=true;
         lbSoundLR.Caption :='立体声';
       end;
    2: begin
         mcisendstring('set all audio all on',nil,0,handle);
         SetAs:='left' ; n8.Checked :=true;
         if FrmDisplayScr.visible then
            FrmDisplayScr.n8.Checked :=true;
         lbSoundLR.Caption :='左声道';
       end;
    3: begin
         mcisendstring('set all audio all on',nil,0,handle);
         SetAs:='right'; n9.checked :=true;
         if FrmDisplayScr.visible then
            FrmDisplayScr.n9.Checked :=true;
         lbSoundLR.Caption :='右声道';
       end ;
    4: begin
         mcisendstring('set all audio all on',nil,0,handle);
         SetAs:='average';
         lbSoundLR.Caption :='平均';
       end;
    5: begin
         lbSoundLR.Caption :='静音';
         mcisendstring('set all  audio all off',nil,0,handle);
         n10.Checked :=true;
         if FrmDisplayScr.Visible  then
             FrmDisplayScr.n10.Checked :=true;
         exit;
       end;
  end;

if fileopened then
begin
   retstr:= AudioSource(MediaAliasName,SetAs );
   if retstr<>'ok' then
     showinformation(retstr);
end;
end;
if fileopened then
begin
   retstr:= AudioSource(MediaAliasName,SetAs );
   if retstr<>'ok' then
     showinformation(retstr);
end;
end;

//设置音频输入源的声道转换
{说明:
source:可以是left(左声道),right(右声道),average(平均),stereo(立体声)}
function AudioSource(AliasName:String; Source:String):String;
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;

这是VCD中声道转换的代码。
我用CB做了一个播放器，没有用MCI做，直接用MEDIAPLAYER控件做的，我参考了上面的代码，用了一天时间，但是实现不了VCD中左右声到的转换，那位高手能够帮帮忙，小弟是要用来做毕业设计的，急用，谢谢！
QQ:150312732
----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/5/3 7:40:51

3楼：

AnsiString __fastcall AudioSource(AnsiString AliasName, AnsiString Source)
{
    AnsiString cmd = "Setaudio " + AliasName + " source to " + Source;

    DWORD dwReturn;
    if( ( dwReturn = mciSendString(cmd.c_str(), NULL, 0, 0) ) == 0 )
        return "ok";

    AnsiString s;
    s.SetLength(128);
    mciGetErrorString(dwReturn, &s[1], 128);
    return s;
}
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

kmustty (sky)	★☆☆☆☆	-
	盒子活跃会员

2004/5/4 11:31:41

4楼：

TO: sephil
大哥，好象还是不行呀，麻烦大哥帮帮我呀！
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/5/4 13:49:56

5楼：

这样不行 SELPHI很忙的人家有2个项目要做而且你不把完整代码传上这样人家很难帮你调试的！
----------------------------------------------

作者：

kmustty (sky)	★☆☆☆☆	-
	盒子活跃会员

2004/5/4 14:29:08

6楼：

以下是原代码

此帖子包含附件:kmustty_20045414291.rar 大小:861.0K

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/5/4 14:47:47

7楼：

请耐心等待sephil大哥他也很忙！
----------------------------------------------

信息

登陆以后才能回复