Delphi 是一個非常優秀的軟件利用它可很快地制作出一個簡單的MP音樂點歌台
原理制作一個MP播放程序(本文以Winplay為例)的外殼建立中文歌曲名與MP文件的關聯從而實現中文歌名的點歌
步驟
一新建一個文件
創建一個新的工程(New Project)和空白窗體(Form)將Form的Caption屬性改為我的點歌台在Form中加入兩個Comobobox構件一個用來顯示歌曲所在的專輯將其Name屬性改為zj一個用來顯示中文歌曲名稱將其Name屬性改為Gq在各自的上方分別加入一個Label構件將其Caption屬性改為專輯選擇和歌曲選擇再加入兩個Bitbotton構件將其Caption屬性分別設定為播放和退出
二觀察裝有MP文件的光盤的目錄特點
一般的目錄都很有規律如以筆者的一張光盤為例全盤共分張專輯其子目錄分別為cc……c分別建立名為ctxtctxt……ctxt的文本文件按順序輸入相應專輯下的中文歌曲名稱注意一個歌曲名占一行並將其放入當前目錄在Object inspector中選擇zj雙擊其Lines屬性然後依次輸入專輯的名稱注意一個專輯名稱占據一行選擇Gq雙擊其Lines屬性刪除其默認內容
三編寫程序
在unit?pas的Use語句加入Fmxutils在Var部分加入一行
var name:stringpath;{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?ButtonClick(Sender:TObject);
begin
case gq?itemindex of
????:name:=path＋′\′＋′′＋inttostr(gq?itemindex＋)＋`mp`;
:name:=path＋′\?mp′;
else
name:=path＋ ?mp′;
end;
execute(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圖標程序被編譯並運行此時單擊專輯選擇下拉框即會出現各個專輯名稱供你選擇同時在歌曲選擇中也會出現專輯中所有歌曲的中文名稱選擇其一後單擊播放按鈕所點歌曲便被播放這樣一個簡單的點歌台就制作成功了
From:http://tw.wingwit.com/Article/program/Delphi/201311/8501.html
