有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");
}
}