用MCI指令进行多媒体编程
2006-02-27 11:43:34 来源:WEB开发网核心提示:我们有时会希望为自己的程序增加音效,例如警告声等,用MCI指令进行多媒体编程,这就需要播放WAV文件,较简单的做法,现在这个CD播放器已经可以工作了,如果你再为它扩充一些有趣的功能的话,我们可以使用多媒体控件(VB和Delphi都提供了MCI控件)来完成,但这样做无疑会增加系统负担和使程序体积增大(使用OCX的话尤其明
我们有时会希望为自己的程序增加音效,例如警告声等,这就需要播放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.dll"Alias“mciExecute"(ByVallpstrCommandAsString)AsLong
DeclareFunctionmciSendStringLib“winmm.dll“Alias“mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
DeclareFunctionmciGetErrorStringLib“winmm.dll"Alias“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.dll"Alias“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播放器已经可以工作了,如果你再为它扩充一些有趣的功能的话,就是一个完整的小软件了。->
让我们先来了解一下什么是MCI指令,MCI的全称是MediaControlInterface(媒体控制接口)。实际上MCI是一个高级的函数调用接口,我们可以把它看作是一个解释器,通过它,我们就可以直接和外部音频或视频设备打交道了。
接下来,就需要了解一下需要用到的API和MCI指令。有三个与MCI有关的API,它们是:mciSendString(),mciExecute()和mciGetErrorString()。mciSendString函数的功能是传送指令字符串给MCI,mciExecute的功能和mciSendString一样,不同的是当发生错误时mciExecute会弹出对话框显示错误信息。mciGetErrorString的功能是将MCI错误代码转换为字符串。现在假设我们的编程环境是VB或Delphi,下面就在这两种环境的情况中介绍其使用方法。
在VB中,调用API函数必须先进行声明,它们的格式分别为:
DeclareFunctionmciExecuteLib“winmm.dll"Alias“mciExecute"(ByVallpstrCommandAsString)AsLong
DeclareFunctionmciSendStringLib“winmm.dll“Alias“mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
DeclareFunctionmciGetErrorStringLib“winmm.dll"Alias“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.dll"Alias“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播放器已经可以工作了,如果你再为它扩充一些有趣的功能的话,就是一个完整的小软件了。->
更多精彩
赞助商链接