在VB中用API實現多媒體
2019-11-18 17:47:42
供稿：網友
在VB中用API實現多媒體主要是調用Windows的mmsystem.dll庫。以下為調用API的聲明(這些代碼放在程序的聲明部分中)：
1.′播放CD和AVI所需要的聲明。
DeclareFunctionmciSendStringLib″MMSYSTEM″(ByVal
lpstrCommandasString，ByVallpstrReturnStrasAny,By
ValwRetumLenasInteger,ByValhCallBackasInteger)as
Long
′播放WAV所需要的聲明
DeclareFunctionsndPlaySoundLib″MMSYSTEM.DLL″(ByVallpszSoundNameasString,ByValwF1agsasInteger)asInteger
′檢測聲卡所需要的聲明
DeclareFunctionauxGetNaumDevsLib″MMSYSTEM″()asInteger
′所用到的全局變量聲明
GlobalConstSND_SYNC=＆H0000 ′播放WAV用到的全局變量
GlobalConstSND_ASYNC=＆－H0001′播放WAV用到的全局變量
GlobalConstSND_NODEFAULT=＆H0002′播放WAV用到的全局變量
GlobalConstSND_LOOP=＆H0008′播放WAV用到的全局變量
GlobalConstSND_NOSTOP=＆－H0010′播放WAV用到的全局變量
′接下來是調用這些聲明
FunctionauxTest()asBoolean
DimIAsInteger
I=auxGetNumDevs()
IfI>0Then
AuxTest=True′如果有聲卡則返回真
ExitFunction
Else
AuxTest=False′如果未檢測到聲卡則返回假
ExitFunction
Else
AuxTest=False′如果未檢測到聲卡則返回假
ExitFunction
EndIf
EndFunction
2.播放CD的源代碼
SubPlayCD(bAsInteger)
′b為所播的音軌號
DimaAsLong
a=mciSendString(″opencdaudioaliascdwait″,0＆,0,0)`初始化驅動
a=mciSendString(″setcdtimeformattmsf″,0＆,0,0)
a=mciSendString(″playcdfrom″＆Str(b),0＆,00)′播放音軌
EndSub
3.播放AVI的源代碼
SubplayAVI(AVIFileAsString)
DimRvalasLong
AVIFile=″play″＋AVIFile＋″fullscreen″′全屏幕播放AVI文件
Rval=mciSendString(AVIFile,0＆,0,0＆)
EndSub
4.播放WAV的源代碼
SubplayWAV(WAVFileAsString)
DimFlagasInteger
DimaasInteger
wFlag=SND_ASYNCorSND_NODEFAULT
a=sndPlaySound(WAVFile,Flag)
EndSub
以上程序是我在調用多媒體時所常用的模塊，你只需將上面的模塊在程序中直接調用即可。->
