网站导航网学 原创论文 原创专题 网站设计 最新系统 原创论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 编程文档 > DELPHI > 正文

MicrosoftAgent技术在Delphi中的应用

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务
右姿势 Pleased 高兴 Writing 书写……
GetAttention 获得注意 Read 阅读 Greet
问候 RestPose 恢复初始状态
Request := peedy.Play(''search'');

  ⑩Speak方法:Agent通过调用语音合成引擎,支持英语的语音合成输出功能,只需输入英文字符串,Agent就能通过声卡、音箱“说话”。Agent的当前版本尚不具备支持中文语音合成功能,所以只能以.wav文件的形式播放中文。使用时可以将想要说的中文句子预先录好,以.wav形式存储,在程序中调用即可。参数Text表示文字气球中显示的文字,参数url表示.wav文件的路径。  

  Peedy.speak(''嗨,朋友们,你们好,现在由我为您提供帮助!'',''C:\新建文件夹\Help.wav'');  

  Peedy.Speak( ''Do you like my help? If so, Please send me an email! Thank you!'', '''' );  

  ⑾Commands.Add方法:在Button1Click事件中为Agent添加自定义语音识别命令,参数const Name表示语音命令的标识,参数Caption表示该命令在输入命令窗口中的显示标题,参数Voice表示该命令对应的语句。当用户通过麦克风向动画人物发出语音命令时,触发Agent的Command事件,因此我们可以另外编写一个过程完成语音识别功能。  

procedure TForm1.Button1Click(Sender: TObject);
begin
Peedy.Commands.Add(''Delphi'',''Run  
Delphi'',''Delphi'',True,True);
Peedy.Commands.Add(''Visual Basic'',''
Run VB'',''VB'',True,True);
Peedy.Show(0);
Peedy.Speak(''What can I do for you, sir?'','''');
end;

  ⑷、按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98/NT简体中文版环境下调试通过。 

设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创
版权所有 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师