用Delphi编程教你制作点歌台

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

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

步骤

一新建一个文件

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

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

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

三编写程序

在unitpas的Use语句加入Fmxutils在Var部分加入一行

var filename:stringpath;{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ButtonClick(Sender:TObject);

begin

case gqitemindex of

:filename:=path＋′′＋′′＋inttostr(gqitemindex＋)＋ ′ mp′;

:filename:=path＋′mp′;

else

filename:=path＋′mp′;

end;

executefile(winplayexempname′c:winplay′sw_hide);

{winplayexe为mp播放程序的文件名c:winplay为其路径sw_hide表示为后台播放需根据实际情况灵活确定}

end;

{双击Caption属性为关闭的按钮输入以下内容}

procedure TFormButtonClick(Sender:TObject);

begin

formclose;

end;

四编译运行

单击Run图标程序被编译并运行此时单击专辑选择下拉框即会出现各个专辑名称供你选择同时在歌曲选择中也会出现专辑中所有歌曲的中文名称选择其一后单击播放按钮所点歌曲便被播放这样一个简单的点歌台就制作成功了