有TTS语音录音的CB或Delphi代码吗?

ooolinux 2019-07-19 09:16:01
有TTS语音录音的CB或Delphi代码吗?
这里有个VB的代码,看不太懂:
http://book.51cto.com/art/201107/279520.htm

TTS语音播放倒是很简单:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
Variant VoiceObj = Variant::CreateObject("Sapi.SpVoice");
VoiceObj.OleFunction("Speak",Memo1->Text.c_str());
VoiceObj = Unassigned;
}
catch(...)
{
ShowMessage("微软TTS语音引擎不存在(是否精简版系统?)\n请先安装或修复TTS");
}
}
...全文
273 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
abc_ustone 2019-07-26
  • 打赏
  • 举报
回复
ooolinux 2019-07-20
  • 打赏
  • 举报
回复
BCB 6.0:
Project -> Import Type Library->找到Microsoft Speech Object Library (Version 5.0)
点Install..
然后组件面板就有
TSpVoice
TSpFileStream
TSpMemoryStream
等控件了。
ooolinux 2019-07-19
  • 打赏
  • 举报
回复
这里有个Delphi的例子,但是不知道 TSpVoice TSpFileStream TSpMemoryStream 这几个类型是包含的什么库? 链接:https://pan.baidu.com/s/1XVe3rh1pg9ds4HwLlo7gDA 提取码:gr7e 复制这段内容后打开百度网盘手机App,操作更方便哦

13,871

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧