|
在使用Authorware制作多媒体课件时,常常需要使用MIDI音乐来作为背景音乐。因为Authorware不能在图中直接引入MIDI音乐,只有借助多媒体的扩展函数“A4wmme.u32”来进行,但是在实现MIDI音乐的循环播放时却比较麻烦。不过,我们还有另一个有关MIDI音乐的多媒体扩展函数“MidiLoop.u32”,用它就可以轻松地控制MIDI音乐的循环播放。
1、加载MidiLoop.u32
启动Authorware 5.0(或其它版本),选择菜单“Windows→Functions”或使用工具栏上的按钮,此时函数窗口出现,在“Category”下拉列表中选“Untitled”(此时文件尚未命名),单击“Load”按钮,在“Load Function”对话框中选中“MidiLoop.u32”,单击“打开”,在“Custom functions in MidiLoop.u32”窗口中选中“LoopMidi”及“StopMidi”,单击“Load”。
2、LoopMidi和StopMidi的使用
LoopMidi使用格式为:
Result:=LoopMidi(MidiFile)
运行该函数之后,MIDI音乐开始循环播放。
例如:a:=LoopMidi(“c:\My Music\
music01.mid”)
如果播放成功,返回值为0;如果MIDI音乐不在指定的路径,或者设备不能播放MIDI音乐,将返回99;若返回其它值,则是一个MCI错误信息代码,可以使用“MCIGetErrorString(errorCode)”(使用该函数需加载a4wmmeu32)将错误信息代码转换为文字信息。
StopMidi使用格式为:
Result:=StopMidi()
例如:b:=StopMidi()
运行该函数后将停止当前正在播放的MIDI音乐。如果函数执行成功,返回值为0,若返回其它值,则是一个MCI错误信息代码。
该多媒体扩展函数可以到Macromedia网站上去下载。如果有什么困难,请和笔者联系(hongliang@cnread.net)。
|