我想請問如何把音樂包裹在程式中 在特定時間內播放… 因為是新手…可能這不困難但還是請教導一下大概的方向…謝謝。

引言: 我想請問如何把音樂包裹在程式中 在特定時間內播放… 因為是新手…可能這不困難但還是請教導一下大概的方向…謝謝。

hkstm, 您好 請參考下面的連結 http://delphi.ktop.com.tw/topic.php?topic_id=27984 ======================= 是非終日有，不聽自然無 天下本無事，庸人自擾之

1.资源文件 例如： 将*.WAV文件置入可执行文件内部的具体做法如下：  假设我们有个名为GRANARY.WAV的文件， 先编辑一个名为 AOE.RC的文件， 其内容为：  GRANARY WAVE GRANARY.WAV  运行命令BRCC32 AOE.RC，得到AOE.RES。  在DELPHI的项目文件，只要加入{$R AOE.RES}语句， 编译 后即可将GRANARY.WAV包含进可执行文件内部。     调用这个WAV文件的方法是 PlaySound('GRANARY',hInstance,SND_RESOURCE);    2.无VCL播放RES资源声音文件。 emy.rc a1 Wave a1.mid a2 Wave a2.mid a3 Wave a3.mid hehua RCDATA hehua.jpg mypic RCDATA mypic.JPG me EXEFILE me.exe    //unit1.pas部分 implementation {$R emy.res} uses mmsystem ;    procedure TForm1.Button3Click(Sender: TObject); var wavestr:string; begin wavestr:='c:\3.MID'; ExtractRes('Wave','a1',wavestr); //播放音乐 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY NN FROM 0', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0);    end;    procedure TForm1.Button4Click(Sender: TObject); begin //停止播放 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('STOP NN', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0); end;        3.直接播放 //播放音乐 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY NN FROM 0', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0); //停止播放 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('STOP NN', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0);    如果你想包含在程序中你只有建立资源文件方式，如1、2 在特定時間內播放… 你可以用TIMER控件来检测当前时间，与你所需的时间比较，来确定什么时候播放这个音乐文件。我想这个不难实现。 风花雪月 e梦情缘

------
风花雪月 e梦情缘

1.資源檔案 例如： 將*.WAV檔案置入可執行檔案內部的具體做法如下：  假設我們有個名為GRANARY.WAV的檔案， 先編輯一個名為 AOE.RC的檔案， 其內容為：  GRANARY WAVE GRANARY.WAV  執行命令BRCC32 AOE.RC，得到AOE.RES。  在DELPHI的專案檔案，只要加入{$R AOE.RES}語句， 編譯 後即可將GRANARY.WAV包含進可執行檔案內部。     調用這個WAV檔案的方法是 PlaySound('GRANARY',hInstance,SND_RESOURCE);    2.無VCL播放RES資源聲音檔案。 emy.rc a1 Wave a1.mid a2 Wave a2.mid a3 Wave a3.mid hehua RCDATA hehua.jpg mypic RCDATA mypic.JPG me EXEFILE me.exe    //unit1.pas部分 implementation {$R emy.res} uses mmsystem ;    procedure TForm1.Button3Click(Sender: TObject); var wavestr:string; begin wavestr:='c:\3.MID'; ExtractRes('Wave','a1',wavestr); //播放音樂 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY NN FROM 0', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0);    end;    procedure TForm1.Button4Click(Sender: TObject); begin //停止播放 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('STOP NN', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0); end;    3.直接播放 //播放音樂 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY NN FROM 0', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0); //停止播放 MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('STOP NN', '', 0, 0); MCISendString('CLOSE ANIMATION', '', 0, 0);    如果你想包含在程式中你只有建立資源檔案方式，如1、2 在特定時間內播放… 你可以用TIMER元件來檢測當前時間，與你所需的時間比較，來確定什麼時候播放這個音樂檔案。我想這個不難實現。        發表是最好的記憶!

谢谢 qoo1234：    帮我转换成繁体中文！ 风花雪月 e梦情缘

------
风花雪月 e梦情缘

引言: 谢谢 qoo1234： 帮我转换成繁体中文！ 风花雪月 e梦情缘

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25829 完全支援 GBK，繁轉簡時完全無缺字不能轉換的問題，無檔案大小的限制。 速度快（轉換１MB 檔案只需半秒）。 支援批次檔案轉換及剪貼簿轉換，中文繁/簡或英文介面。預覽轉換前後結果。 轉碼時自動更正html檔 tag 內的 charset以便在網頁瀏器上正常顯示。 此外，簡轉繁時我敢說是目前所有轉換器中效果最好的，自動將大部繁體異字（如：干、幹、乾；劃、划；里、裡；后、後；象、像；系、係、繫...等) 自動更正，詞庫內建二千多個詞彙，用者更可自行編輯詞彙庫以增加辨識率。 ------------------------------------------------------------------ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25829 完全支援 GBK，繁转简时完全无缺字不能转换的问题，无档案大小的限制。 速度快（转换１MB 档案只需半秒）。 支援批次档案转换及剪贴簿转换，中文繁/简或英文介面。预览转换前后结果。 转码时自动更正html档 tag 内的 charset以便在网页浏器上正常显示。 此外，简转繁时我敢说是目前所有转换器中效果最好的，自动将大部繁体异字（如：干、干、干；划、划；里、里；后、后；象、像；系、系、系...等) 自动更正，词库内建二千多个词汇，用者更可自行编辑词汇库以增加辨识率。 發表是最好的記憶!