用Delphi 编MP3音乐点歌台.docxVIP

用 Delphi编 MP3 音乐点歌台 De1phi 30.是一个非常优秀的软件，利用它可很快地制作出一个简单的 MP3 音乐点歌 原理 : 制作 个 MP3 播放程序 (本文以 Winp1ay3 为例)的外壳，建立中文歌曲名与 MP3 文件的关联，从而实现中文歌名的 点歌 。 步骤: 、新建个文件 创建个新的工程 (New Project) 和空白窗体(Form1)，将 Form1 的 Caption 属性改为 我的点歌台 在 Form1 中加入两个 Comobobox 构件， 个用来显示歌曲所在的专辑，将其 Name 属性改为 zJ， 个用来显示中文歌曲名称，将其 Name 属性改为句，在各自的上方分别加入 个Labe1 构件，将其 Caption 属性改为 专辑选择 和 歌曲选择 再加入两个 Bitbotton 构件，将其 Caption 属性分别设定为 播放 和 退出 。 二、观察装有 MP3 文件的光盘的目录特点 般的目录都很有规律，如以笔者的 张光盘为例，全盘共分 12 张专辑，其子目录分别 为:c01、c02..… .cl2，分别建立名为 c01 txt， c02 txt.…. .cl2 txt 的文本文件，按顺 序输入相应专辑下的中文歌曲名称，注意 个歌曲名占 行，并将其放入当前目录。在Object inspector中，选择 zJ，双击其 Lines 属性，然后依次输入专辑的名称，注意 个专辑名称占据 行;选择句，双击其 Line s 属性，删除其默认内容。 三、编写程序 在 unit1 pas 的 Use 语句加入 Fmxuti1s，在 Va r部分加入行 : varfi1ename:strin g，path;{fi1ename 为 MP3 文件的文件名， path 为其路径 }然后在 Form1 窗体中，双击 zJ，加入以下程序 : procedure TForm1 zjChange (Sender:TObject ); begin ocasezj itemindexof o 8，10 20:path:= e:\cO +inttostr(zj itemindex+ l); 9:path: 二，e:\c +inttostr (zj itemindex+ l); {e 为光驱的盘符，据实际情况而定 i end fi1ename: inttostr(zj itemindex) + txt 二gq items 1oadfromfi1e (fi1ename); 二 gq text: gq Items strings [OJ; 二 end {双击 Caption 属性为 播放 的按钮，加入以下内容 i procedure TForm1 Button1C1ick(Sender:TObject); begin casegq itemindexof o 8，10 20:fi1ename: path+\ + 0+inttostr(gq itemindex+ l)+ 二 mp3 9:fi1ename: path+ \10 mp3 二 e1se fi1ename: path+ \01 mp3 二 end executefi 1e (‘winp1ay3 exe ，mpname ，c:\winp1ay3 ，sw hide); {winp1ay3 exe 为 mp3 播放程序的文件名， c:\winp1ay为其路径，sw hide 表示为后台播放，需根据实际情况灵活确定。 i end {双击 Caption 属性为 关闭 的按钮，输入以下内容 i procedure TForm1 Button1C1ick(Sender:TObject); begin forml close end 四、编译运行 单击 Run 图标，程序被编译并运行。此时，单击 专辑选择 下拉框， 即会出现各个专 辑名称供你选择。同时，在 歌曲选择 中也会出现专辑中所有歌曲的中文名称，选择其一后，单击 播放按钮，所点歌曲便被播放。这样，一个简单的 点歌台 就制作成功了。( 湖北杨德军 )