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 zjitemindex of
:path:=′e:c
′+inttostr(zjitemindex+
);
:path:=′e:c′+inttostr (zjitemindex+
);
{e為光驅的盤符
據實際情況而定}
end;
filename:=inttostr(zjitemindex)+ ′txt′;
gqitemsloadfromfile (filename);
gqtext:=gqItemsstrings [
];
end;
{雙擊Caption屬性為
播放
的按鈕
加入以下內容}
procedure TForm
Button
Click(Sender:TObject);
begin
case gqitemindex of
:filename:=path+′′+′
′+inttostr(gqitemindex+
)+ ′ 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圖標
程序被編譯並運行
此時
單擊
專輯選擇
下拉框
即會出現各個專輯名稱供你選擇
同時
在
歌曲選擇
中也會出現專輯中所有歌曲的中文名稱
選擇其一後
單擊
播放
按鈕
所點歌曲便被播放
這樣
一個簡單的
點歌台
就制作成功了
From:http://tw.wingwit.com/Article/program/Delphi/201311/24767.html