学院

 当前位置 → 中国站长学院 → 网络编程 → Visual Basic教程 → 浏览正文

作者：中国站长学院[收集整理]     来源：互联网转载     点击数：     更新时间：2008年03月17日

【字体：大 中 小】     荐      【背景色 】    【收藏本文】   【打印】

我们有时会希望为自己的程序增加音效，例如警告声等，这就需要播放WAV文件。较简单的做法，我们可以使用多媒体控件（VB和Delphi都提供了MCI控件）来完成，但这样做无疑会增加系统负担和使程序体积增大（使用OCX的话尤其明显）。如果我们的程序并非一个多媒体程序而仅仅是用来播放音效的话，就更不划算了。有没有更理想的方法呢？答案是肯定的，Windows已经为我们提供了一个关于多媒体处理的动态连接库WINMM.DLL（旧版本为MMSYSTEM.DLL），通过调用它所提供的API函数，我们就可以使用MCI指令进行多媒体方面的操作了。
　　让我们先来了解一下什么是MCI指令，MCI的全称是MediaControlInterface(媒体控制接口）。实际上MCI是一个高级的函数调用接口，我们可以把它看作是一个解释器，通过它，我们就可以直接和外部音频或视频设备打交道了。
　　接下来，就需要了解一下需要用到的API和MCI指令。有三个与MCI有关的API，它们是：mciSendString()，mciExecute()和mciGetErrorString()。mciSendString函数的功能是传送指令字符串给MCI，mciExecute的功能和mciSendString一样，不同的是当发生错误时mciExecute会弹出对话框显示错误信息。mciGetErrorString的功能是将MCI错误代码转换为字符串。现在假设我们的编程环境是VB或Delphi，下面就在这两种环境的情况中介绍其使用方法。
　　在VB中，调用API函数必须先进行声明，它们的格式分别为：
　　DeclareFunctionmciExecuteLib“winmm.dllAlias“mciExecute(ByVallpstrCommandAsString)AsLong
　　DeclareFunctionmciSendStringLib“winmm.dll“Alias“mciSendStringA(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
　　DeclareFunctionmciGetErrorStringLib“winmm.dllAlias“mciGetErrorStringA(ByValdwErrorAsLong,ByVallpstrBufferAsString,ByValuLengthAsLong)AsLong
　　在Delphi中相对较简单，由于Delphi已经将多媒体相关的API声明预编译在MMSYSTEM.DCU文件中，所以我们只需要在单元的Uses语句后加上mmsystem即可在本单元中使用上述三个API函数了。
　　接着再介绍一些常用的MCI指令。
　　MCI指令一般格式为：MCI指令设备名[参数]
　　打开多媒体设备：open，如：openCDAudio、openc:\windows\chimes.wavtypewaveaudio。
　　播放多媒体设备：play，如：playCDAudiofrom5000to20000（播放CD的第5秒到第20秒）、playc:\windows\chimes.wav。
　　关闭多媒体设备：close，如：closeall（关闭所有多媒体设备）。
　　得到设备状态信息：status，如：statuscdaudionumberoftrack（得到CD的曲目总数）
　　有了这些预备知识，就可以将MCI和API结合起来进行多媒体编程了。
　　例如，要在程序中使用音效（播放WAV文件），要求如果WAV文件不存在的话要求忽略错误（即不弹出出错信息），则程序如下（以VB为例，Delphi中类似）：
　　DimResultasInteger
　　DimReturnStrAsString＊1024注意，必须指定String的长度
　　Result=mciSendString(“playc:\windows\chimes.wav,ReturnStr,1024,0)其中ReturnStr为某些MCI指令执行后传送给程序的文字信息
　　以上这段程序可以播放指定的WAV文件，如果成功执行，则Result的值为0，如果文件不存在或出现其他错误，错误代码会传送给Result，但程序不会中断。若要根据错误代码自行处理错误信息，可以使用mciGetErrorString函数处理：
　　DimErrStrAsString＊1024
　　ifResult=0then
　　msgbox“播放成功
　　Else
　　i％=GetErrorString(ReturnStr,ErrStr,1024)
　　msgboxErrStr
　　EndIf
　　下面，我们举一个完整的程序作为例子（还是以VB为例），我们可以用API写一个CD播放器来代替使用多媒体控件。这样做的好处很明显，当你把程序编译成为EXE文件后复制给朋友的时候，你再也不必附加其他OCX文件（如果是Delphi的话，EXE文件体积也可以减小）。
　　在VB中新建一个工程，在Form1中添加6个按钮和一个Timer控件，属性如下（效果如图）：
　　名称：Command1，Caption：弹出
　　名称：Command2，Caption：播放
　　名称：Command3，Caption：暂停
　　名称：Command4，Caption：下一首
　　名称：Command5，Caption：上一首
　　名称：Command6，Caption：退出
　　名称：Timer1，Interval：1000
　　接着，我们就可以编写代码了，如下：
　　函数声明
　　PrivateDeclareFunctionmciExecuteLib“winmm.dll(ByVallpstrCommandAsString)AsLong
　　PrivateDeclareFunctionmciSendStringLib“winmm.dllAlias“mciSendStringA(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
　　DimCurAsInteger保存当前正在播放的曲目号
　　DimTotalAsInteger保存CD曲目总数
　　弹出CD－ROM
　　PrivateSubCommand1_Click()
　　i％=mciExecute(“setcdaudiodooropen)
　　EndSub
　　播放
　　PrivateSubCommand2_Click()
　　i％=mciExecute(playcdaudio)
　　EndSub
　　暂停
　　PrivateSubCommand3_Click()
　　i％=mciExecute(“pausecdaudio)
　　EndSub
　　播放下一首
　　PrivateSubCommand4_Click()
　　DimReturnStrAsString＊128
　　i％=mciExecute(“setcdaudiotimeformattmsf)设置from后的时间格式
　　IfCur<TotalTheni％=mciExecute(“playcdaudiofrom＋Str(Cur＋1))
　　EndSub
　　播放上一首
　　PrivateSubCommand5_Click()
　　DimReturnStrAsString＊128
　　i％=mciExecute(“setcdaudiotimeformattmsf)
　　IfCur>1Theni％=mciExecute(“playcdaudiofrom＋Str(Cur－1))
　　EndSub
　　中止CD的播放并退出
　　PrivateSubCommand6_Click()
　　i％=mciExecute(“stopcdaudio)
　　i％=mciExecute(“closecdaudio)
　　End
　　EndSub
　　程序启动时打开CDAudio设备并得到曲目总数
　　PrivateSubForm_Load()
　　DimReturnStrAsString＊128
　　i％=mciSendString(“opencdaudio,ReturnStr,128,0)
　　i％=mciSendString(“statuscdaudionumberoftracks,ReturnStr,128,0)
　　Total=Val(ReturnStr)
　　EndSub
　　退出时中止CD的播放
　　PrivateSubForm_Unload(CancelAsInteger)
　　i％=mciExecute(“stopcdaudio)
　　i％=mciExecute(“closecdaudio)
　　EndSub
　　每隔一秒监测当前播放的曲目号
　　PrivateSubTimer1_Timer()
　　OnErrorResumeNext
　　DimReturnStrAsString＊128
　　i％=mciSendString(“statuscdaudiocurrenttrack,ReturnStr,128,0)
　　Cur=Val(ReturnStr)
　　EndSub
　　好了，现在这个CD播放器已经可以工作了，如果你再为它扩充一些有趣的功能的话，就是一个完整的小软件了。->