英語已經(jīng)逐漸成為一種世界性的語言，現(xiàn)代人學(xué)習(xí)英語的熱情一浪高過一浪，所以，英語復(fù)讀機(jī)十分的熱銷。但是，無論功能如何強(qiáng)大的復(fù)讀機(jī)都有一個(gè)明顯的缺陷――復(fù)讀時(shí)間的固定的。如果復(fù)讀時(shí)間太短，那么，當(dāng)遇到長(zhǎng)句子時(shí)就無能為力；如果復(fù)讀的時(shí)間很長(zhǎng)，使用時(shí)就免不了復(fù)讀一些多余的部分，免不了進(jìn)行快進(jìn)（時(shí)下有些200秒的復(fù)讀機(jī)具有快進(jìn)功能），這與磁帶的快進(jìn)一樣麻煩！所以，筆者想利用Delphi強(qiáng)大的媒體播放控件開發(fā)一個(gè)軟件復(fù)讀機(jī)。軟件復(fù)讀機(jī)最大的優(yōu)點(diǎn)是，無論是句子的長(zhǎng)短您都能自如地復(fù)讀！絕對(duì)不需要倒帶，也不需要快進(jìn)。不僅如此，軟件復(fù)讀機(jī)還具有隨機(jī)選讀功能，這是一般復(fù)讀機(jī)很不好實(shí)現(xiàn)的。

準(zhǔn)備工作
　　Delphi的媒體播放控件可已播放各種聲音文件。我們可以根據(jù)自己的喜好把學(xué)習(xí)資料錄制到計(jì)算機(jī)中，存成合適的格式。一般可存成wave文件或mp3文件。

復(fù)讀機(jī)的開發(fā)
　　開發(fā)軟件復(fù)讀機(jī)使用的主要是Delphi的媒體播放控件TMediaplayer。該控件在系統(tǒng)控制(system)頁中。
　　首先創(chuàng)建一個(gè)應(yīng)用程序。設(shè)定主窗體的BorderStyle為BsDialog，禁止窗體的放大與縮小。設(shè)定KeyPReview為True，讓主窗體處理鍵盤事件。
在主窗體上放置控件：

其中：
媒體播放器是程序的關(guān)鍵控件，用來實(shí)現(xiàn)聲音的播放。
TrackBar用來指示當(dāng)前的播放進(jìn)度。
左邊的TlistBox(SectionList)用來存放將要播放的聲音文件名（學(xué)習(xí)資料）。
右邊的兩個(gè)TlistBox(StartList、StopList)用于記錄復(fù)讀過的句子。
‘增加’與‘刪除’按鈕用于維護(hù)學(xué)習(xí)資料。
TrackBar1用于顯示播放進(jìn)程。
Timer1用于動(dòng)態(tài)顯示播放進(jìn)度。
OpenDialog1用于選擇播放文件。

復(fù)讀功能的實(shí)現(xiàn)：
① 程序中設(shè)置兩個(gè)整數(shù)（StartPos, SstopPos）用于記錄播放的起止點(diǎn)，并在初始化時(shí)將StopPos賦值為-1。
② 每次播放時(shí)記錄當(dāng)時(shí)的起始值：StartPos := Mediaplayer1.Position;
③ 程序中用空格鍵控制復(fù)讀，回車鍵繼續(xù)放音。首先，設(shè)置主窗體的KeyPreview為True，使主窗體能夠截獲按鍵消息。然后，重載OnKeyDown方法。代碼如下：

自由選讀功能的實(shí)現(xiàn)：
　　由于在復(fù)讀時(shí)記錄了所有復(fù)讀過的句子的起止點(diǎn)，所以可以進(jìn)行任意一句的復(fù)讀。當(dāng)用戶用鼠標(biāo)雙擊‘往昔歲月’中某一行時(shí)，可直接切換到該句的播放。代碼如下：
procedure TRepeaterForm.ListDblClick(Sender: TObject);

begin

SID := (Sender as TListBox).ItemIndex; //取得當(dāng)前行的索引
SID StopList.ItemIndex := SID; //將終點(diǎn)列表設(shè)置為
SID StartList.ItemIndex := SID; //將起始列表設(shè)置為
SID StartPos := StrToInt(StartList.Items[SID]);//取得開始位置

StopPos := StrToInt(StopList.Items[SID]);//取得終止位置

Mediaplayer1.StoP; //停止當(dāng)前的播放
Mediaplayer1.StartPos := StartPos; //設(shè)置新的播放范圍
Mediaplayer1.EndPos := StopPos;
Mediaplayer1.Play; //播放指定范圍的聲音

end;

學(xué)習(xí)資料的添加：
單擊增加按鈕用于增加學(xué)習(xí)資料。需要注意的是在增加新的文件之前應(yīng)檢索原有的列表，以防止重復(fù)。代碼如下：
procedure TRepeaterForm.AddBtnClick(Sender: TObject);

var fn: string;
begin

　if OpenDialog1.Execute then
　　　begin
　　　　fn := OpenDialog1.FileName;
　　　　if SectionList.Items.IndexOf(fn)<0 then //先檢索該文件，如果不存在 　　 　　　　　　　　　　　　SectionList.Items.Add(fn); //加入到列表中

　　　end;

end;

學(xué)習(xí)資料的選擇：
　　通過重載OnClick方法實(shí)現(xiàn)。先取得單擊時(shí)的索引，然后通過Items[索引]取得文件名。將文件名賦值給Mediaplayer的Filename屬性，然后調(diào)用Open方法即可。（代碼略）
　　另外，在程序的初始化時(shí)要打開學(xué)習(xí)資料文件；程序退出時(shí)將學(xué)習(xí)資料存盤。這些功能都是通過TlistBox.Items.LoadFromFile和TlistBox.Items.SaveToFile實(shí)現(xiàn)的（代碼略）。
　　該程序在中文Windows98+Delphi5.0環(huán)境下調(diào)試通過。全部源代碼可Mail作者索取。