基于Delphi的英文发音教学软件的实现

　　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 向前按钮代码的实现