收录日期:2018/12/11 22:01:28 时间:2016/05/18 03:13:40 标签:基础类
这是咱的TTS版本


// ************************************************************************  //
// Type Lib: C:\WINDOWS\speech\vtxtauto.tlb (1)
// LIBID: {FF2C7A51-78F9-11CE-B762-00AA004CD65C}
// LCID: 409
// Helpfile: 
// HelpString: VoiceText 1.0 Type Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\windows\System32\stdole2.tlb)
// ************************************************************************ 

调用方法
//-------------------------------------------------------------------------------------
void TTTS::Speek(AnsiString asSpeakText)
{
  if (m_IVTxtAuto!=NULL)
       m_IVTxtAuto->Speak(WideString(asSpeakText),m_lSpeekStyle);
}

//-------------------------------------------------------------------------------------
void  TTTS::SetSpeekStyle()
{
   m_lSpeekStyle=0;
   if (m_ivtxtsp_HIGH==1) m_lSpeekStyle+=vtxtsp_HIGH;
   if (m_ivtxtsp_NORMAL==1) m_lSpeekStyle+=vtxtsp_NORMAL;
   if (m_ivtxtsp_VERYHIGH==1) m_lSpeekStyle+=vtxtsp_VERYHIGH;
   if (m_ivtxtst_COMMAND==1) m_lSpeekStyle+=vtxtst_COMMAND;
   if (m_ivtxtst_NUMBERS==1) m_lSpeekStyle+=vtxtst_NUMBERS;
   if (m_ivtxtst_QUESTION==1) m_lSpeekStyle+=vtxtst_QUESTION;
   if (m_ivtxtst_READING==1) m_lSpeekStyle+=vtxtst_READING;
   if (m_ivtxtst_SPREADSHEET==1) m_lSpeekStyle+=vtxtst_SPREADSHEET;
   if (m_ivtxtst_STATEMENT==1) m_lSpeekStyle+=vtxtst_STATEMENT;
   if (m_ivtxtst_WARNING==1) m_lSpeekStyle+=vtxtst_WARNING;
}
没什么好的办法,好的语音库很贵的。要好几万呢。
關注.
中文女声库,25元一个
http://www.cnetseek.com/gb/index.html
中文怎么读?请详细说明?有分加哦!

IT技术交流 vb6鼠标中间的滚动键来控制窗体的滚动条 GetWindowRect()的返回值和屏幕像素有关系吗?? 命名管道的问题 hive注册表能不能保存在另一个分区中? 请教一个查询语句的写法~! 求教一个oracle编程题.... 求看雪邀请码 [已处理] CSDN的博客中可以插入java代码吗 命名管道的问题 hive注册表能不能保存在另一个分区中? 求一sql语句、急!!! 命名管道的问题 为什么ext界面是灰的,不能点击 请教:如何判断某个表中有没有某个字段,没有就添加 SQL Server 2000 简体中文企业版 SQL Server 2000 简体中文企业版 请教一个问题!! 如何编程实现禁用拨号上网功能 在线聊天 free释放内存,程序崩溃了 Matlab函数求C翻译 专家预言:富士康跳楼事件有追求数字的意味!--11连跳!OR MORE 求AlignSize的详细介绍 求看雪邀请码 命名管道的问题 dll调用问题 其实富士康采用我的建议,就不会出现跳楼事件了。 【荀子王制】和小叮当君,为删帖之纪念。 DBComboBox