Delphi 基於TTS方式語音朗讀

uses Comobj; ant procedure TTS(TempStr: String); var   voice: OLEVariant; begin   voice := CreateOLEObject('SAPI.SpVoice');   voice.Speak(TempStr, 0); end;

>>阅读原文<<