基於Delphi的英文發音教學軟件的實現(4)

3、代碼的實現

3.1 VtxtAuto的注冊

首先聲明全局變量：

var TTS:IVTxtAuto;

然後，在FormCreate中用VtxtAuto類型庫的Register函數注冊軟件。同時，初始化滾動條控件，用於設定系統語速狀態。

procedure TForm1.FormCreate(Sender: TObject);
begin
　TTS:=CoVtxtAuto_.Create;//產生自動化對象
　TTS.Register('WingRocWords','WingRocWords');//向服務器注冊
　suiTrackBar.Position:=TTS.Get_Speed;//獲得語音速度
　speedtext.Caption:='當前速度：'+IntToStr(TTS.Speed)+' 字/分鐘'; //顯示語音速度
end;　　

3.2 朗讀按鈕代碼的實現

procedure TForm1.ReadClick(Sender: TObject);
begin
　TTS.Speak(TxtMemo.Lines.Text,vtxtst_READING);//朗讀文本控件中的內容
end;

3.3 停止按鈕代碼的實現

procedure TForm1.StopClick(Sender: TObject);
begin
　TTS.StopSpeaking;//停止朗讀
end;

3.4 暫停按鈕代碼的實現

procedure TForm1.PauseClick(Sender: TObject);
begin
　if TTS.IsSpeaking//判斷系統是否處於朗讀狀態
　then
　　TTS.AudioPause;//如果為真，暫停朗讀
　else
　　ShowMessaget('未在朗讀狀態！');//如果為假，顯示錯誤信息
end;

3.5 恢復按鈕代碼的實現

procedure TForm1. ResumeClick(Sender: TObject);
begin
　TTS.AudioResume;//恢復朗讀狀態
end;

3.6 向前按鈕代碼的實現