Delphixe一行代码调用Windows的TTS实现文字朗读

开发工具

  Win7、Win10自带Windows Speech SDK 5.4版本(XP需装Windows Speech SDK 5.1,http://www.microsoft.com/download/en/details.aspx?id=10121)

  procedure TForm1.btnSpeakClick(Ser: TObject);

  begin

  SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);

  //前面播放完了再播放,

  //if SpVoice1.Status.RunningState = SRSEDone then //SpVoice1.Speak(Memo1.Text,SVSFlagsAsync);

  ;

标签: 开发工具