制作自己的MP3播放器

2019-11-18 17:35:01

字體：大中小

來源：轉載

供稿：網友

我們選擇一個名為MP3PLAY的控件，它是由德國DialogDedien公司編寫設計的，我們可以選用自己熟悉的語言來對它進行控制，這里我們使用VB。

　　首先，看看和這個控件有關的一些東西，比如：控件的屬性、事件、方法。

　　屬性：（按字母的順序排列）

　　BitRate,Mp3流的比特率。ChannelMode,用于規定聲道的工作模式，若值為0，則為立體聲；為1，則是左聲道；2為右聲道；3為單聲道。FrameCount，已打開的MP3流的總幀數。FrameNotifyCount，有這樣的功能：播放指定的幀數以后，控件自動向我們的客戶程序發出一個消息，而我們的程序就可以通過這個消息來進行一些處理，比如在顯示器上進行一些提示等等。HasChecksuns,返回校驗信息。IsCopyrighted,返回版權信息。IsOriginal,返回復制信息。Layer，MP3流所采用的編碼層次。TotalTime，以毫秒為單位計算的回放的總時間。MsPerFrame，以毫秒為單位計算的每幀占用的時間。SampleFrequency，采樣的速率。

　　可寫的屬性：FrameNotifyCount、ChannelMode。

　　可讀的屬性：所有的。

　　事件：

　　ActFrame,每播放由FrameNotifyCount指定的幀數以后就產生一次該事件，并在參數中給出了當前播放的幀號。AboutBox()，顯示關于對話框。Authorize(Name,PassWord),在該控件注冊以后，會得到一個注冊號，否則，這個控件就是未經合法授權的，則只能播放MP3文件的前30秒，在注冊以后，該方法會將授權號輸入給控件，如果授權號與用戶名合法，則控件返回0，否則返回5。Close(),關閉MP3文件。GetVolumeLeft()、GetVolumeRight(),返回左右聲道的音量的大小,值的范圍是0至65536。GetVolumeLeftP()、GetVolumeRightP(),以百分比的形式返回左右聲道的音量的大小。Open(InputFile,OutputFile),打開InputFile指定的MP3文件，以WAV的形式寫入OutputFile指定的WAV文件，如果OutputFile為空的話，則MP3解碼將直接從聲卡播放出來。Play()，開始播放已打開的MP3文件。Pause()，暫停播放，再次調用時恢復。SetVolume()、SetVolumeP()，設置系統播放時的音量。SetErrorMode(Errmode),設置錯誤報告模式，Errmode為0時表示在各個方法調用結束直接返回錯誤代碼，為1時表示采用標準的OLE異常處理方式。stop(),停止播放。Seek(Frame)，跳到指定的幀數。

　　好了，下來看看原代碼吧：

　　PRivateSubCommand1_Click()

　　Text1.Visible=False

　　a=Mp3Play1.Open(″c:/love.mp3″,″″)

　　Mp3Play1.Play

　　EndSub

　　PrivateSubCommand2_Click()

　　Mp3Play1.Close

　　End

　　EndSub

　　在這里，有兩個命令按鈕，一個名為“播放”，另一個名為“結束”，代碼如上。另外，這個程序僅僅是一個例子，還有許多需要改進的地方，諸如界面、功能等等許多東西，這里就不多說了。相信這個例程和上面對控件的介紹已經可以實現許多功能強大的播放器了，是不是？->

上一篇：怎樣在VB中播放Flash動畫

下一篇：用VB6的雙通道技術獲得影碟片斷