Delphi 基于TTS方式语音朗读

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

>>阅读原文<<