Delphi 实现简易语音发音(基于TTS方式)


本文整理自网络,侵删。

 
uses Comobj;

procedure TForm1.Button1Click(Sender: TObject); 
var 
voice: OLEVariant; 
begin 
voice := CreateOLEObject('SAPI.SpVoice'); 
voice.Speak('Hello World!', 0); 
end;

 

相关阅读 >>

Delphi 遍历注册表

Delphi 用文件流读取文本文件字符串的方法

Delphi 调用clipboard 收集剪切板信息

Delphi 使用openjdk进行Delphi android开发

android开发-px和dip以及sp的区别

floattostr 将“浮点型”转换成“字符型”

Delphi 生成txt 指定带bom

Delphi 2010 fastmm 内存泄露使用方法

Delphi comobj调用wmplayer播放音乐

Delphi mysql里Delphi事件类型转unix时间戳

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...