TTS

CLASS_SpVoice: TGUID = '{96749377-3391-11D2-9EE3-00C04F797396}';

http://blog.sina.com.cn/s/blog_4fce12190100zsxu.html

 

 在win7控制面板>语音>文字转语音》下拉框选择安装的语音库。

方法1

Variant vapp = CreateOleObject("SAPI.SpVoice");
    vapp.OleProcedure( WideString( "Speak"), WideString( "您好")  );
    vapp = Unassigned;

 

 

Microsoft Speech Object Library

sapi.dll

方法2

 C:\WINDOWS\System32\Speech\Common\sapi.dll

epndLst:
//   (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb

)

 

fVoce: ISpeechVoice;

fVoce := CoSpVoice.Create;

    if fVoce.Status.RunningState = SRSEDone then
      fVoce.Speak(astr, SVSFlagsAsync);

 

https://www.cnblogs.com/usegear/p/8329058.html