|
| 盒子资源分类 |
![]() |
|
|
|
|
| 用于解决D7生成的AgentObjects_TLB.pas不能发声的正确文件 |
![]() |
| 关键字：TTS AgentObjects_TLB.pas MsAgent 语音 不能发声 |
| 来 自：原创 |
| 平 台：Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2007/6/4 |
| 发布者：lps |
发布时间：2007/6/4 |
| 编辑器：DELPHI7 |
语 种：简体中文 |
| 分 类：声音处理 |
下载浏览：9870/12347 |
|
|
|
|
|
在delphi 7.0中使用Ms Agent，不能发音
查资料说应该设
agent.LanguageID := 1033;
或者说
agent.LanguageID := $0409;
可是在delphi 7.0中一到这句就是一个异常，而且也没有声音
网上找资料说是delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声，但是搜遍了也没有找到修改后AgentObjects_TLB.pas文件。
后来终于在网上找到一个解决办法(万分感谢e_mail为:kongxiangji1981@163.com的不知名的朋友)
就是用d5生成的AgentObjects_TLB.pas覆盖D7的文件
但是这样直接用不能通过编译，解决方法：
AgentObjects_TLB.pas文件要加上
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
三行编译开关就能在D7系统过
我的Agent终于发声了
鄙视那些知道解决方式放着修改过的AgentObjects_TLB.pas不共享的人。
PS：
Ms Agent的用法关键
1、在Delphi中添加Agent控件
在Delphi IDE中选择菜单Component，Import ActiveX Control在Import ActiveX下的列表框中选择Microsoft Agent Control 2.0（Version 2.0），点击按钮Install，在Install对话框中点击按钮OK，在Confirm对话框中点击按钮Yes，在对话框中点击按钮OK。至此，Agent控件被添加到Delphi组件板ActiveX页上。
2、要安装MS TTS，否则只是能通过编译，还是不能发声 |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
