知识大全用Delphi 3.0编制MP3音乐点歌台

Posted 2022-07-22 属性

篇首语：天下之事常成于困约，而败于奢靡。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi 3.0编制MP3音乐点歌台相关的知识，希望对你有一定的参考价值。

用Delphi 3.0编制MP3音乐点歌台 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　Delphi 是一个非常优秀的软件利用它可很快地制作出一个简单的MP 音乐点歌台

　　原理制作一个MP 播放程序(本文以Winplay 为例)的外壳建立中文歌曲名与MP 文件的关联从而实现中文歌名的点歌　　步骤

　　一新建一个文件

　　创建一个新的工程(New Project)和空白窗体(Form ) 将Form 的Caption属性改为我的点歌台在Form 中加入两个Comobobox构件一个用来显示歌曲所在的专辑将其Name属性改为zj 一个用来显示中文歌曲名称将其Name属性改为Gq 在各自的上方分别加入一个Label构件将其Caption属性改为专辑选择和歌曲选择再加入两个Bitbotton构件将其Caption属性分别设定为播放和退出

　　二观察装有MP 文件的光盘的目录特点

　　一般的目录都很有规律如以笔者的一张光盘为例全盘共分张专辑其子目录分别为 c c ……c 分别建立名为c txt c txt……c txt的文本文件按顺序输入相应专辑下的中文歌曲名称注意一个歌曲名占一行并将其放入当前目录在Object inspector中选择zj 双击其Lines属性然后依次输入专辑的名称注意一个专辑名称占据一行选择Gq 双击其Lines属性删除其默认内容

　　三编写程序

　　在unit ?pas的Use语句加入Fmxutils 在Var部分加入一行　　var name:string path;name为MP 文件的文件名 path为其路径　　然后在Form 窗体中双击zj 加入以下程序　　procedure TForm ?zjChange(Sender:TObject);　　begin　　case zj?itemindex of　　 ?? ?? :path:=′e:\\c ′＋inttostr(zj?itemindex＋ );　　 :path:=′e:\\c′＋inttostr(zj?itemindex＋ );　　e为光驱的盘符据实际情况而定　　end;　　name:=inttostr(zj?itemindex)＋ ′txt′;　　gq?items?loadfrom (name);　　gq?text:=gq?Items?strings [ ];　　end;　　双击Caption属性为播放的按钮加入以下内容　　procedure TForm ?Button Click(Sender:TObject);　　begin　　case gq?itemindex of　　 ?? ?? :name:=path＋′\\′＋′ ′＋inttostr(gq?itemindex＋ )＋`mp `;　　 :name:=path＋′\\ ?mp ′;　　else　　name:=path＋ ?mp ′;　　end;　　execute( winplay ?exe mpname ′c:\\winplay ′ sw_hide);　　winplay ?exe为mp 播放程序的文件名 c:\\winplay为其路径 sw_hide表示为后台播放需根据实际情况灵活确定　　end;　　双击Caption属性为关闭的按钮输入以下内容　　procedure TForm ?Button Click(Sender:TObject);　　begin　　form ?close;　　end;

　　四编译运行

cha138/Article/program/Delphi/201311/8501

知识大全 用Delphi 3.0编制MP3音乐点歌台

知识大全用Delphi 3.0编制MP3音乐点歌台