如何在delphi中使用MSAgent（助手）的操作？有代码看吗？ 如office中的助手！ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 ---- 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、 在Delphi中调用Agent控件 ---- ⑴、在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name属性为MyAgent）、Button1。 ---- ⑵、定义变量。 Var Peedy: IagentCtlCharacterEx; Request1,Request2: IagentCtlRequest; ---- ⑶Agent主要属性、方法、事件。 ---- ①Characters属性与Load、Unload方法：初始化Agent，加载动画数据，卸载动画人物 ---- Request1 := MyAgent.Characters.Load( 'Peedy', 'C:\Windows\System\Peedy.acs' ); ---- Peedy := MyAgent.Characters.Character( 'Peedy' ); ---- MyAgent.Characters.Unload('Peedy'); ---- ②Show与Hide方法：显示、隐藏Agent动画人物。参数Fast表示动画人物显示、隐藏的速度。Fast为0表示Agent飞入、飞出，Fast为1表示Agent直接出现、消失，没有动画过程。 ---- Peedy.Show(0); ---- Peedy.Hide(1); ---- ③StopAll、Stop方法：停止所有动作。 ---- Peedy.StopAll(''); ---- Peedy.Stop(Request); ---- ④Connected属性：Agent是否与Microsoft Agent服务器连接。 ---- MyAgent.Connected := True; ---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法：获得、设置Agent动画人物的高度、宽度。 AgentHight := Peedy.Get_Height; AgentWidth := Peedy.Get_Width; Peedy.Set_Height( round(AgentHeight / 2 )); Peedy.Set_Width( round( AgentWidth / 2 )); ---- ⑥MoveTo方法：参数x，y表示Agent动画人物移动到的坐标，参数Speed表示移动的速度。 ---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 ); ---- ⑦Interrupt方法：中断指定角色的动画。在几十种动画动作中，有一类后缀名为“ing” 的动作比较特殊，如“processing”、“searching”、“reading”、“writing”，一旦执行就必须通过调用另外一个动画人物的Interrupt方法才能中断 。角色不能中断自身的动作，否则会导致异常。 Request1 := Robby.Play('reading'); Peedy.Interrupt(Request1); ---- ⑧Wait方法：在多个不同动画人物之间协调动画动作，如等待sRobby的当前动作执行完毕后，Peedy做另外一个动作。 Request1 := Robby.Play('read'); Peedy.Wait(Request1); Peedy.Play('search'); ---- ⑨Play方法：执行指定的动画动作，参数Animation为一常量，表示动画类型。Agent提供了几十种预定义动作，开发软件时只需直接调用这些常量即可。下面简要介绍其中常用的一些常量仅供编程参考。 ---- 动作类型 中文含意 动作类型 中文含意 动作类型 中文含意 Acknowledge 承认 LookDown 向下看 Sad 悲伤 Alert 警告 LookDownBlink 向下看眨眼 Search 寻找 Announce 声明 LookUp 向上看 StartListening 开始聆听 Blink 眨眼 LookUpBlink 向下看眨眼 StopListening 停止聆听 Confused 迷惑 LookLeft 向左看 Suggest 建议 Congratulate 祝贺 LookLeftBlink 向左看眨眼 Surprised 吃惊 Decline 拒绝 LookRight 向右看 Think 思考 DontRecognize 不承认 LookRightBlink 向右看眨眼 Wave 挥动 Explain 解释 MoveDown 向下移动 Write 书写 GestureDown 向下姿势 MoveUp 向上移动 Processing 计算…… GestureUp 向上姿势 MoveRight 向右移动 Reading 阅读…… GestureLeft 向左姿势 MoveLeft 向左移动 Searching 寻找…… GestureRight 向右姿势 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; 好心人帮帮忙，关于语音识别的问题 delphi中声明一个结构体或class怎么声明？ 大家近来帮忙！100分不够可以再加。 固定字符串长度的函数？ 如何将Integer类型的变量转换成char类型？ user32.dll 请问dbchart错误帮忙，谢谢，急，马上给分 SQL Server中 的序号字段设了标识，那我做了无数次的删除添加等反复类似操作后，这个整型值的字段会不会溢出？ 打印问题（大哥们帮帮忙啊） 我有一个商用软件的试用版,他有几个菜单项屏蔽了，我可以激活它吗，如何激活呢？ 一个简单的问题，可以立即结帐 关于Object Pascal
Peedy: IagentCtlCharacterEx;
Request1,Request2: IagentCtlRequest; ---- ⑶Agent主要属性、方法、事件。 ---- ①Characters属性与Load、Unload方法：初始化Agent，加载动画数据，卸载动画人物 ---- Request1 := MyAgent.Characters.Load( 'Peedy', 'C:\Windows\System\Peedy.acs' );
---- Peedy := MyAgent.Characters.Character( 'Peedy' );
---- MyAgent.Characters.Unload('Peedy'); ---- ②Show与Hide方法：显示、隐藏Agent动画人物。参数Fast表示动画人物显示、隐藏的速度。Fast为0表示Agent飞入、飞出，Fast为1表示Agent直接出现、消失，没有动画过程。 ---- Peedy.Show(0);
---- Peedy.Hide(1); ---- ③StopAll、Stop方法：停止所有动作。
---- Peedy.StopAll('');
---- Peedy.Stop(Request); ---- ④Connected属性：Agent是否与Microsoft Agent服务器连接。
---- MyAgent.Connected := True; ---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法：获得、设置Agent动画人物的高度、宽度。 AgentHight := Peedy.Get_Height;
AgentWidth := Peedy.Get_Width;
Peedy.Set_Height( round(AgentHeight / 2 ));
Peedy.Set_Width( round( AgentWidth / 2 )); ---- ⑥MoveTo方法：参数x，y表示Agent动画人物移动到的坐标，参数Speed表示移动的速度。 ---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 ); ---- ⑦Interrupt方法：中断指定角色的动画。在几十种动画动作中，有一类后缀名为“ing” 的动作比较特殊，如“processing”、“searching”、“reading”、“writing”，一旦执行就必须通过调用另外一个动画人物的Interrupt方法才能中断 。角色不能中断自身的动作，否则会导致异常。 Request1 := Robby.Play('reading');
Peedy.Interrupt(Request1); ---- ⑧Wait方法：在多个不同动画人物之间协调动画动作，如等待sRobby的当前动作执行完毕后，Peedy做另外一个动作。 Request1 := Robby.Play('read');
Peedy.Wait(Request1);
Peedy.Play('search'); ---- ⑨Play方法：执行指定的动画动作，参数Animation为一常量，表示动画类型。Agent提供了几十种预定义动作，开发软件时只需直接调用这些常量即可。下面简要介绍其中常用的一些常量仅供编程参考。 ---- 动作类型 中文含意 动作类型 中文含意 动作类型 中文含意 Acknowledge 承认 LookDown 向下看 Sad 悲伤
Alert 警告 LookDownBlink 向下看眨眼 Search 寻找
Announce 声明 LookUp 向上看 StartListening 开始聆听
Blink 眨眼 LookUpBlink 向下看眨眼 StopListening 停止聆听
Confused 迷惑 LookLeft 向左看 Suggest 建议
Congratulate 祝贺 LookLeftBlink 向左看眨眼 Surprised 吃惊
Decline 拒绝 LookRight 向右看 Think 思考
DontRecognize 不承认 LookRightBlink 向右看眨眼 Wave 挥动
Explain 解释 MoveDown 向下移动 Write 书写
GestureDown 向下姿势 MoveUp 向上移动 Processing 计算……
GestureUp 向上姿势 MoveRight 向右移动 Reading 阅读……
GestureLeft 向左姿势 MoveLeft 向左移动 Searching 寻找……
GestureRight 向右姿势 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;