荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: guita (干傻), 信区: Multimedia
标 题: 再谈用Authorware制作音乐播放器
发信站: 荔园晨风BBS站 (Sun Jun 9 15:11:58 2002), 转信
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中的对应按钮图形的位置重合；音量滑块是用来调节音量的。
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函数实现最大化最小化……
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.55.226]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店