当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 用API函数实现切换VCD的左右声道

ASP.NET
如何在ASP.NET中使用SmtpMail发送邮件
在VB.NET中利用Split和Replace函数计算字数
Attribute应用:简化ANF自定义控件初始化过程
ASP.NET 2.0移动开发入门之使用样式
ASP.NET 2.0中使用OWC生成图表
ASP.NET 2.0中控件的简单异步回调
一个无法捕获ADO.NET Dataset的内存错误
深入解读ADO.NET2.0的十大最新特性
.Net平台下的分布式缓存设计
ASP.NET全局异常处理浅析
ASP.NET 2.0中文验证码的实现
浅析.NET平台编程语言的未来走向
.net 框架程序设计收藏
使用ASP.NET MVC Futures 中的异步Action
详解.NET中的XmlReader与XmlWriter
关于.NET中的Server push技术
asp.net页面执行机制
对比JSP和ASP.NET的存储过程
.NET 4.0不会包含System.Shell.CommandLine
ASP.NET十个有效性能优化的方法

ASP.NET 中的 用API函数实现切换VCD的左右声道


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 135 ::
收藏到网摘: n/a


在用VB编写播放器时,经常会涉及到声道的切换问题,用directShow及其它方法虽然可以解决,但过于麻烦,且VB对directShow支持得不太好,下面讲述了使用MCI命令切换VCD声道的方法。
'首先加一个picture控件到窗体上以便于显示图像
'定义变量
dim sTheFile as string '文件名
dim sAlias as string '别名
dim lReturn as long '返回值
sAlias = "VCD"
sTheFile = "c:\songs\吉普赛情人.dat"

'打开文件
lReturn = mciSendString("open " & sTheFile & " ALIAS " & sAlias & " parent " & Picture1.hWnd & " style child", vbNULLString, 0, 0)

'播放
lReturn = mciSendString("play " & sAlias, vbNullString, 0, 0)

'关闭
lReturn=mciSendString("close " & sAlias, vbNullString, 0, 0)

'切换声道的操作
'左声道
lReturn = mciSendString("setaudio " & sAlias & " source to left",vbNullString,0,0)
'右声道
lReturn = mciSendString("setaudio " & sAlias & " source to right",vbNullString,0,0)
'左右平均(即左右声道的声音混合)
lReturn = mciSendString("setaudio " & sAlias & " source to average",vbNullString,0,0)
'立体声

lReturn = mciSendString("setaudio " & sAlias & " source to stereo",vbNullString,0,0)

用以上方法切换声道即可实现两个音箱都有声音,但是仅对VCD(即Mpeg1)格式的文件有效。