文/蔡松、周建峰

　　通过几天的研究实践，还真让我DIY了一个播放器，自我感觉不错喔！现特地“奉献”出来与朋友们共享！

　　1、打开Authorware 6.0，新建一个文件并保存名为“我的播放器”；按Ctrl+Shift+F打开Functions函数库，选择Category下的“我的播放器.a6p”，然后单击Load…出现对话框，选择tMsControls.U32后单击出现一个对话框，按住Ctrl键可以连续选中所需要的七个函

数：

　　1)tMsMP3CreatePlayer；

　　2)tMsMP3IsPlaying；

图1

　　3)tMsMP3LoadFile；

　　4)tMsMP3Pause；

　　5)tMsMP3Play；

　　6)tMsMP3Stop；

　　7)tMsOpenImageFile。

　　单击Load即可完成对外挂函数的加载；利用同样的方法加载Winapi.u32中的SetWindowText函数。

　　2、在流程线上放置一个显示计算图标，名为：系统设置，在里面输入以下语句：

　　ResizeWindow(275, 116)

　　SetWindowText(WindowHandle, "我的播放器")-设置标题栏名称

　　tMsMP3CreatePlayer(WindowHandle, "mp3Status") -设置播放器播放状态

　　mp3StatusValue[1] := "Opened" --打开文件时的状态值为1。

　　mp3StatusValue[2] := "Ready"

　　mp3StatusValue[3] := "Stopped"

　　mp3StatusValue[4] := "Playing"

　　mp3StatusValue[5] := "Paused"

　　3、拖一个交互图标到流程线上，名为“Display”，然后导入一幅图片(如图1)，在“显示歌曲名”箭头所指位置使用文本工具输入如下文字：

　　{SubStr(mp3FileName,RFind("＼＼＼＼",mp3FileName)+1, CharCount(mp3FileName))}-显示打开歌曲的文件名，注意区分小括号和大括号。

　　在“显示播放状态”箭头所指位置输入如下文字：

　　{mp3DisplayStatus := mp3StatusValue[mp3Status+1]}-显示播放器当前状态，如：playing(播放)、pause(暂停)。

　　4、在交互图标旁边放置计算图标，出现Response Type对话框，选择Hot spot(热区)单击确定即可，在交互图标旁边共放置四个计算图标(如图2)，分别命名为：Open、Play、Pause、Stop；双击打开交互图标，然后移动各个热区，使它们的位置与图1中的对应按钮图形的位置重合；音量滑块是用来调节音量的(卧龙传说提醒：具体制作可以参照《中国电脑教育报》2002年第12期第A28版刊登的《音量大小任我调——Authorware中音量控制程序的制作》一文)。

　　5、双击打开Open计算图标，在里面输入如下语句：

　　mp3FileName := ""

　　mp3FileName := tMsOpenImageFile(WindowHandle, "我的播放器", FileLocation, "", "*.mp3", "|*.mp3;*.mpa;*.mp2;*.mp3")--设置播发器打开歌曲文件的类型，以mp3为主。

　　if mp3FileName〈〉"" then tMsMP3LoadFile(mp3FileName)

　　tMsMP3Play(0, 0)打开歌曲就播放。

图2

　　在Play计算图标中输入：tMsMP3Play(0, 0)-播放音乐;

　　在Pause计算图标中输入：tMsMP3Pause( ) -暂停音乐;

　　在Stop中计算图标中输入：tMsMP3Stop( )-停止音乐。

　　6、按Ctrl+R运行程序，可以看到我们的播放器已经制作完成了，赶快选择一个歌曲听一听吧，怎么样？DIY的感觉不错吧！在这里，还可以将静态的按钮图片改成动态的按钮(使用按钮交互)，还可以将播放和暂停按钮重叠起来；使用Winapi.u32中的ShowWindowAsync函数实现最大化最小化……