如何寫一個將Audio CD轉成MP3的程式? |
尚未結案
|
andy9204
一般會員 發表:2 回覆:3 積分:1 註冊:2004-05-14 發送簡訊給我 |
|
bigdogchina
版主 發表:238 回覆:523 積分:312 註冊:2003-04-28 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
這個技術是要賣錢的,恐怕你要人家給你完整的解答,除非你把賣軟体的錢拿來分享才有可能了 給你個方向
抓CD上的音軌,畢竟音樂CD不是存二進位的格式資料,你沒辦法用很簡單的方法取得音軌,除非你走MCICOMMAND或SCSICOMMAND取得音軌的RAWDATA成WAV格式檔,方法不是很好寫,自己到google就可以找到解答了 WAV轉MP3的方法很多,比較簡單的就是用DIRECTSHOW的方法處理,這方法不會很複雜,只要有個MPEG Layer-3的encoder就可以做到,程式不用寫到幾行就可以完成,改天我會做個小範例,供大家參考如何把wav轉成mp3 藏私の禁止
|
andy9204
一般會員 發表:2 回覆:3 積分:1 註冊:2004-05-14 發送簡訊給我 |
|
bigdogchina
版主 發表:238 回覆:523 積分:312 註冊:2003-04-28 發送簡訊給我 |
andy9204,您好!
請您看看下面的這個例子,作用是獲取Audio CD的序列號,希望能對您解決問題有所啓迪!
uses MMSystem, MPlayer; procedure TForm1.Button1Click(Sender: TObject); var mp : TMediaPlayer; msp : TMCI_INFO_PARMS; MediaString : array[0..255] of char; ret : longint; begin mp := TMediaPlayer.Create(nil); mp.Visible := false; mp.Parent := Application.MainForm; mp.Shareable := true; mp.DeviceType := dtCDAudio; mp.FileName := 'h:'; //H盤是我的光碟機 mp.Open; Application.ProcessMessages; FillChar(MediaString, sizeof(MediaString), #0); FillChar(msp, sizeof(msp), #0); msp.lpstrReturn := @MediaString; msp.dwRetSize := 255; ret := mciSendCommand(Mp.DeviceId, MCI_INFO, MCI_INFO_MEDIA_IDENTITY, longint(@msp)); if Ret <> 0 then begin MciGetErrorString(ret, @MediaString, sizeof(MediaString)); Memo1.Lines.Add(StrPas(MediaString)); end else Memo1.Lines.Add(StrPas(MediaString)); mp.Close; Application.ProcessMessages; mp.free; end; =============== 人生在勤,不索何获? ===============
------
人生在勤,不索何获? |
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
|
andy9204
一般會員 發表:2 回覆:3 積分:1 註冊:2004-05-14 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
|
bugmans
高階會員 發表:95 回覆:322 積分:188 註冊:2003-04-12 發送簡訊給我 |
我在toget軟體電子報看到一個開放原始碼的軟體BonkEnc
http://toget.pchome.com.tw/intro/multimedia_transfer/23942.html
回到Delphi K.Top搜尋後發現有網友在問擷取CD音軌的問題 研究BonkEnc原始碼後發現擷取音軌的功能由Albert L. Faber所提供的
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Audio/CD_Ripping_1/CDRip_DLL_Source.zip 這兩篇文章非常值得一看,可下載VB範例實際操作
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Audio/CD_Ripping_1/article.asp
http://www.vbaccelerator.com/home/VB/Code/vbMedia/Audio/CD_Ripping_2/article.asp Delphi K.Top其他的討論
http://delphi.ktop.com.tw/topic.php?topic_id=23537
www.vbaccelerator.com就提供VB的範例了
http://delphi.ktop.com.tw/topic.php?topic_id=35481
http://delphi.ktop.com.tw/topic.php?topic_id=35211
所提供的程式碼只能讀取音軌的個數,長度等資料,不能擷取音樂的資料
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |