知识大全用Delphi编程教你制作点歌台

Posted 2022-07-22 属性

篇首语：生活若剥去理想、梦想、幻想，那生命便只是一堆空架子。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi编程教你制作点歌台相关的知识，希望对你有一定的参考价值。

用Delphi编程教你制作点歌台 以下文字资料是由(全榜网网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 filename:string path;filename为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; filename:=inttostr(zjitemindex)＋ ′txt′; gqitemsloadfromfile (filename); gqtext:=gqItemsstrings [ ]; end; 双击Caption属性为播放的按钮加入以下内容 procedure TForm Button Click(Sender:TObject); begin case gqitemindex of   :filename:=path＋′′＋′ ′＋inttostr(gqitemindex＋ )＋ ′ mp ′; :filename:=path＋′ mp ′; else filename:=path＋′ mp ′; end; executefile( 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; 四编译运行 单击Run图标程序被编译并运行此时单击专辑选择下拉框即会出现各个专辑名称供你选择同时在歌曲选择中也会出现专辑中所有歌曲的中文名称选择其一后单击播放按钮所点歌曲便被播放这样一个简单的点歌台就制作成功了 cha138/Article/program/Delphi/201311/24767

知识大全 用Delphi编程教你制作点歌台

知识大全用Delphi编程教你制作点歌台