日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

DELPHI完成文本文件顯示與聲音同步播放

DELPHI完成文本文件顯示與聲音同步播放

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:

朱群生

---- 在一些語言教學軟件中,經常使用文本顯示和聲音同步播放,我們可以用DEL PHI實現之。  

---- 一、材料的制作  

---- 首先,我們選擇幾篇文章,這里我們選擇馬丁路德金、林肯和里根的演說,每一篇文章分為若干句,在制作聲音文件時,記下每個句子的開始時間和結束時間,然后將其記到一個數據表中,這個表有如下字段: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;

---- 其中isend表示播放是否已經到了末尾,CurrentButton表示當前MediaPlayer元件中按下了哪個按鈕,CurrentPlay ,CurrentDisp表示當前播放記錄及當前顯示記錄。  
---- 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;


---- 3、在單選分組框中加進如下代碼:  
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:='ex3.wav';
    Table1.TableName:='ex3.dbf'; end;
end;
Table1.Open; MediaPlayer1.Open;
end;
     

---- 4、為了適當修改MediaPlayer元件中各個按鈕的功能,需要編寫MediaPlayer元件的click事件的代碼,主要是修改“快進”及“快退”的功能,使其每次移動一句,且移動后直接播放,而不用再按“播放”按鈕。為達到這個功能,在過程的一開始,設置DoDefault參數為False,表示不執行默認的動作,在過程的中間部分,加上必要的處理,在過程的結束處,寫上根據按下的按鈕執行相應功能語句。  
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;
     

---- 5、為了能同步顯示文本,需要編寫定時器OnTime事件的代碼,如果當前播放的時間超過了當前記錄的開始時間,則設置CurrentPlay為當前記錄號,如果CurrentPlay超過了CurrentDisp ,則顯示當前記錄。  
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with MediaPlayer1 do  
begin
if CurrentButton=btPlay then
begin
if not Table1.eof and (Position
    >Table1.FieldValues['STARTTIME'])
then  
begin CurrentPlay:=Table1.recno;
if CurrentPlay >=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;

---- 注:在MediaPlayer的click事件中,使用了btPrev,btNext等常量,為了能夠通過編譯,在uses子句中需將ComCtrls放在mPlayer之前,以免引起沖突。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 久久久久久久国产精品毛片 | 国产亚洲欧洲一区二区三区 | 久久久免费观看 | 丁香色婷婷国产精品视频 | 在线视频一区二区三区 | 久草干| 欧美又粗又大又硬又长又爽视频 | 精品不卡 | 国产在线精彩视频二区 | 国产精品九九免费视频 | 天天操夜夜 | 欧美日韩一区二区视频免费看 | 亚洲第一页在线观看 | 日本免费不卡视频 | 国产99久久九九精品免费 | 99久久香蕉| 亚洲成人黄色片 | 欧美日韩精品 | 亚洲国产精品一区二区久 | 精品三级视频 | 狠狠狠狠狠干 | 国产精品久久在线观看 | 国产三a级日本三级日产三级 | 日本无遮挡边吃奶边做刺激视频 | 久久久精品久久 | 欧美日韩亚洲一区 | 成年大片免费视频播放手机不卡 | 久9这里精品免费视频 | 一区二区三区高清在线 | 久久国产精品2020免费m3u8 | 久久精品大全 | 天天干天天看 | www.在线免费观看 | 狠狠狠色丁香婷婷综合久久俺 | jizz日 | 97国产影院 | 亚洲无毛| 日日摸天天摸狠狠摸摸 | 日本三级11k影院在线 | 日本在线视频毛片 | 亚洲视频一区二区在线观看 |