右姿势 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简体中文版环境下调试通过。