一、材料的制作

　　 首先，我们选择几篇文章，这里我们选择马丁路德金、林肯和里根的演说，每一篇文章分为若干句，在制作声音文件时，记下每个句子的开始时间和结束时间，然后将其记到一个数据表中，这个表有如下字段：NO、TEXT、STARTTIME,分别表示每句序号、内容、开始时间。

　　 二、 界面的制作

　　 在DELPHI中创建一个新工程，在FORM中放入多媒体控件，RTF编辑器，命令按钮，单选分组框，数据表，时钟和标签，如图所示

　　 三、各个控件的属性

　　 1、 多媒体控件的AutoEnable和AutoOpen特性设置为False ,VisibleButtons特性设置Record、Eject、Step为不可见。

　　 2、 Table控件的DatabaseName设为存放表的目录，我们将应用程序、声音文件和表存放在myprog目录，因此这里将DatabaseName设为c:\myprog，将TableName设为默认的播放文件对应的数据表的名字，这里设为ex1.dbf。

　　 3、 Radiogroup控件的Caption设为 ‘请选择播放内容’，Itmes特性中加上三行：马丁路德金，林肯，里根。

　　 4、 Richedit控件的Lines特性加上‘演讲内容。

　　 四、代码的编写

　　 1、变量声明

 var isend:Boolean;
 CurrentButton:TMPBtnType;
 CurrentPlay,CurrentDisp:longint;

　　 2、在FormCreate事件中做一些必要的准备工作，其代码如下：

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.TableName:=ex1.dbf; Table1.Open;
MediaPlayer1.FileName:=ex1.wav;MediaPlayer1.Open; 
	MediaPlayer1.TimeFormat:=tfMilliseconds;
isend:=False;
CurrentButton:=btStop;
 CurrentDisp:=1;
 CurrentPlay:=1;
 end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
MediaPlayer1.Close; Table1.Close;
case radiogroup1.ItemIndex of
0:begin MediaPlayer1.FileName:=ex1.wav;
	Table1.TableName:=ex1.dbf;end;
1:begin MediaPlayer1.FileName:=ex2.wav;
	Table1.TableName:=ex2.dbf;end;
2:begin MediaPlayer1.FileName:=ex   av;
	Table1.TableName:=ex3.dbf; end;
end;
Table1.Open; MediaPlayer1.Open;
end;
	

procedure TForm1.MediaPlayer1Click(Sender: TObject;
 Button: TMPBtnType; var DoDefault: Boolean);
begin
DoDefault:=False;
with MediaPlayer1 do
 begin
 case Button of
 btPlay : begin
 if isend=true then
 begin
 Table1.first; Position:=start;
 CurrentPlay:=1; CurrentDisp:=1;
 isend:=False;
 RichEdit1.lines.clear; RichEdit1.lines.add
	(演讲内容);
 end;
 CurrentButton:=btPlay;
 end;
btStop : begin CurrentButton:=btStop; 
 isend:=true;
	 end;
btpause: if CurrentButton=btPlay then
 CurrentButton:=btpause
 else if CurrentButton=btpause then
 CurrentButton:=btPlay;
 btPrev: begin CurrentButton:=btPrev; 
 Table1.Prior;
 Position:=Table1.fieldvalues
[STARTTIME];
 CurrentButton:=btPlay;
 end;
 btBack: begin CurrentButton:=btBack;
 Table1.first; Position:=start; 
CurrentPlay:=1; 
	CurrentDisp:=1;
 RichEdit1.lines.clear;
 RichEdit1.lines.add
	(演讲内容);
 CurrentButton:=btPlay;
 end;
 btNext: begin CurrentButton:=btNext; 
Table1.Next;
 Position:=Table1.fieldvalues
[STARTTIME];
 CurrentButton:=btPlay;
 end;
 end;
 case CurrentButton of
 btPlay: Play;
 btpause:pause;
 btStop:Stop;
 end;
 end;
end;
	

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with MediaPlayer1 do 
 begin
 if CurrentButton=btPlay then
 begin
 if not Table1.eof and (Position
	$#@62;Table1.FieldValues[STARTTIME])
 then 
 begin CurrentPlay:=Table1.recno;
 if CurrentPlay $#@62;=CurrentDisp then
 begin
 RichEdit1.Lines.add(Table1.fieldvalues[TEXT]);
 CurrentDisp:=CurrentDisp+1;
 end;
 Table1.Next;
 end;
 if Table1.eof then
 begin
 CurrentButton:=btStop;
 isend:=true;
 end;
 end;
 end;
 end;