求使用Microsoft Agent 的调用方法(用Delphi实现)(200分)

  • 主题发起人 主题发起人 Karonshmily
  • 开始时间 开始时间
K

Karonshmily

Unregistered / Unconfirmed
GUEST, unregistred user!
本人想调用Office里的助手,但是只找到以下VB的资料;
我想知道在Delphi里如何调用Agent的,看了msdn看到一头雾水(:

Agent 控件的初始化

先 把Microsoft Agent 控件 添 加 到VB 的 控 制 工 具 条 上, 并 在 用 户的Form 上 绘 制 该 控 件( 在 下 述 例 子 中, 其Name 属 性 设 为MyAgent)。 下 面 的 代 码 调 用IAgentCtlCharacters::Load() 方 法 装 入 一 个 动 画 人 物 的 数 据, 调 用IAgentCtlCharacter::Show()/Hide() 方 法 来 显 示/ 隐 藏 动 画 人 物。

Const DATAPATH = "c:/agent/"

Dim Genie As IAgentCtlCharacter
Dim Robby As IAgentCtlCharacter
Dim GenieRequest1, GenieRequest2 As IAgentCtlRequest
Dim RobbyRequest1 As IAgentCtlRequest

Private Sub Form_Load()
' 装 入 动 画 人 物 数 据, 其 中 第 一 个 参 数 为CharacterID
MyAgent.Characters.Load "Genie", DATAPATH & "Genie.acs"
MyAgent.Characters.Load "Robby", DATAPATH & "Robby.acs"

' 获 取 与CharacterID 相 对 应 的IAgentCtlCharacter 变 量
Set Genie = MyAgent.Characters("Genie")
Set Robby = MyAgent.Characters("Robby")

' 显 示/ 隐 藏 动 画 人 物
Genie.Show
Genie.Hide
End Sub

Agent控件的方法:

初始化完成后就可以开始用了。Agent的主要方法有:

Play <表情>,设定动画人物的表情,其后参数是一个String,具体表情参见下表:

表情 返回表情 描述
Acknowledge 没有 点头
Announce AnnounceReturn 举手
Blink 没有 眨眼睛
Confused ConfusedReturn 摸头
Congratulate CongratulateReturn 竖大拇指
Decline DeclineReturn 举手摇头
DontRecognize DontRecognizeReturn 举着手听
Explain ExplainReturn 伸开双手
GetAttention GetAttentionReturn 摇手臂
GlanceDown 没有 向下扫一眼
GlanceLeft 没有 向左扫一眼
GlanceRight 没有 向右扫一眼
GlanceUp 没有 向上扫一眼
Greet GreetReturn 鞠躬
Hide 没有 消失
Idle1_1 没有 歇口气
Idle2_2 没有 读
Idle2_3 没有 写
Idle3_1 Idle3_1Return 睡着
Idle3_2 没有 打呵欠
LookDown 没有 向下看
LookDownBlink 没有 眨眼睛向下看
MoveDown MoveDownReturn 飞下来
MoveLeft MoveLeftReturn 飞向左
Pleased PleasedReturn 握手和笑
Processing ProcessingReturn 旋转(循环)
Read 没有 拿出纸并阅读
ReadContinued 没有 继续阅读
Reading ReadingReturn 阅读(循环)
RestPose 没有 正常状态
Sad SadReturn 伤心的
Searching SearchingReturn 查找(循环)
Show 没有 显示
Suggest SuggestReturn 显示一个灯泡
Surprised SurprisedReturn 惊讶的
Think ThinkReturn 摸着下巴向上看
Wave WaveReturn 摇手
Write 没有 拿出纸并写

注:如果您使用了一个循环方法,在使用其它方法之前,您必须用 Interrupt方法来停止它,例如:

' 把Genie 移 动 到 座 标(200,200) 处, 用GenieRequest1 来 标 识 该 动 作 请 求
Set GenieRequest1 = Genie.MoveTo(200, 200)
' 执 行 名 为"Searching" 的 循 环 动 画 动 作, 用GenieRequest2 来 标 识 该 动 作 请 求
Set GenieRequest2 = Genie.Play("Searching")
' Robby 等 待Genie 的MoveTo 方 法 执 行 完 毕, 方 才 显 示
Robby.Wait GenieRequest1
Robby.Show
Robby.Play "Suggest"
Robby.Play "read"
Robby.Play "Congratulate"
' 由Robby 来 终 止Genie 的 循 环 动 画 动 作
Robby.Interrupt GenieRequest2
Genie.Play "write"
Genie.Hide
Robby.Hide
 

Speak <说话内容〉,让动画人物说话,如果有语音合成部件,将会在显示的同时也输出声音。

Hide,隐藏动画人物。

MoveTo <x,y,speed>,在屏幕上移动动画人物。

Wait <Request as object>,等待直到Request结束,该方法可使各部件紧凑的运行,同时也保证不冲突,在多个动画人物同时工作时比较有用。

 

Agent控件的语音识别功能

---- Microsoft Agent 控 件 具有 语 音 识 别 能 力, 用 户 可 以 向 动 画 人物 发 出 语 音 命 令( 同 时 按 住Scroll Lock 键)。Microsoft Agent 控 件 为 每 个Agent 动 画 人 物 提 供 一 个特 殊 物 命 令 窗 口, 用 以 显 示 该 动 画 人物 能 够 接 受 的 所 有 语 音 命 令。 该 命 令窗 口 中 的 命 令 不 能 用 鼠 标 或 键 盘 来 选取, 只 能 通 过 语 音。 可 以 用IAgentComands::Add() 方 法 来 为 命 令 窗 口 添 加 自 定 义 命 令。第 一 个 参 数 是 命 令 的 标 识 符ID, 第 二 个参 数 是 该 命 令 在 命 令 窗 口 中 的 显 示 标签, 第 三 个 参 数 是 该 命 令 对 应 的 语 音识 别 句 子。 当 用 户 通 过 麦 克 风 向 动 画人 物 发 出 命 令 时 会 激 发IAgent 的Command 事件, 可 以 编 写 一 个 接 收Command 事 件 的 过 程来 完 成 与 语 音 命 令 相 对 应 的 任 务。

Private Sub Command3_Click()
Static initialized As Boolean

' 添 加 自 定 义 命 令
If Not initialized Then
Genie.Commands.Add "Word", "Run Word", "word", True, True
Genie.Commands.Add "Time", "What time is it?", "What time is it?", True, True
Genie.Commands.Add "Bigger", "Bigger", "Bigger", True, True
Genie.Commands.Add "Smaller", "Smaller", "Smaller", True, True
initialized = True
End If
Genie.Show
Genie.Speak "Can I help you?"
End Sub

Private Sub MyAgent_Command(ByVal UserInput As Object)
Select Case UserInput.Name
Case "Time"
' 当 听 到"What time is it?" 后 回 答 当 前 时 间
Genie.Speak "The time is " &amp; Time
Case "Word"
' 当 听 到"word" 后, 便 运 行MS Word
Genie.Speak "Yes,sir!"
Shell "d:/winword/winword.exe", vbNormalFocus
Case "Bigger"
' 当 听 到"bigger" 后,Genie 会 放 大
Genie.Width = Genie.Width * 1.5
Genie.Height = Genie.Height * 1.5
Case "Smaller"
' 当 听 到"samller" 后,Genie 会 缩 小
Genie.Width = Genie.Width / 1.5
Genie.Height = Genie.Height / 1.5
End Select
End Sub
 
首先引入AgentObjects_TLB,下面是一段简单的代码.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, AgentObjects_TLB,
Menus;

var
Peedy:IAgentCtlCharacterEx;
Request1,Request2:IAgentCtlRequest;
iHeight,iWidth:Integer;

type
TForm1 = class(TForm)
MyAgent: TAgent;
Button1: TButton;
Button2: TButton;
PopupMenu1: TPopupMenu;
mnuSysDisp: TMenuItem;
mnusysSet: TMenuItem;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = '显示' then
begin
Request1:=MyAgent.Characters.Load('Peedy',ExtractFilePath(ParamStr(0))+'Clippit.acs');
Peedy:=MyAgent.Characters.Character('Peedy');
iHeight:=Peedy.Get_Height;
iWidth:=Peedy.Get_Width;

Peedy.Set_Height(Round(iHeight*2));
Peedy.Set_Width(round(iWidth*2));

Peedy.Show(0);
Peedy.Speak('欢迎进入!',ExtractFilePath(ParamStr(0))+'agent.wav');
Peedy.Speak('这里将带给你无尽的快乐!','');
// Peedy.Think('Hello');
// Peedy.Play('Search');
// Peedy.
Button1.Caption:='隐藏';
end
else
begin
MyAgent.Characters.Unload('Peedy');
Button1.Caption:='显示';
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Peedy.MoveTo((Screen.Width-Peedy.Get_Width) div 2,(Screen.Height-Peedy.Get_Height) div 2,2);
end;

end.
 
引自:<猛料合集>

解放军合肥炮兵学院
张建军
中保财险安徽省铜陵市分公司
韩莹
---- Microsoft Agent是微软公司于1997年9月发布的一项代理软件开发技术,而后被集成到Internet Explorer 4.0 Plus及更高版本中,目前版本为2.0,支持简体中文。作为一种软件代理工具,Agent以其强大的交互功能、鲜明的人性特点、优美的操作界面和简便统一的编程方法,对由菜单、按钮、提示框等组成的传统人机交互方式产生了很大影响,在多媒体创作、Web应用、教育软件、软件帮助系统和辅助工具制作等方面,具有广阔的应用前景。

一、 Microsoft Agent技术简介

---- Agent一词的中文意思是“代理”,故名思意,这类代理软件的主要作用是提供一种易于理解和使用的操作界面,接受用户的指令、代替用户完成某些复杂繁琐的工作、或为用户提供帮助。科学研究表明:从人机工程的角度考虑,赋予电脑或程序更多人性化色彩,如支持语音合成输出信息、语音识别输入指令、智能提示、动画等,能够充分提高人机交互的有效性和易用性。

---- 我们知道,在Office 97帮助系统中有一种叫作Office助手的代理软件,其中幽默风趣的动画人物,如“大眼夹”,能够根据用户的操作步骤“智能化”地提出一些建议或帮助信息。与Office助手相比,Agent功能更加丰富强大,表现在:

Office助手沿用传统的不透明矩形窗口,窗口后面的背景被完全挡住;Agent动画人物本身是一个“AlwaysOnTop”窗口,只有人物身体部分挡住背景,其余部分透明。

Office助手只允许Office 97的各个组件调用,Agent动画人物可由任何Windows程序调用;

Agent支持文字气球和输入提示条,在输出语音的同时把文字输出至一个卡通式文字气球中。如果电脑系统中安装有Agent语音识别引擎,当用户按住输入键,如Scroll Lock键,在Agent人物下方出现一个输入命令窗口,表示它正在“聆听”用户的语音命令。

Agent提供Genie、Merlin、Bobby和Peedy等动画人物,不仅具有优美诙谐的动作,而且可以通过声卡、麦克风与用户交谈。
二、 Microsoft Agent安装方法
---- Agent是一种ActiveX控件,其服务器程序(C:/WINDOWS/MSAGENT/Agentsvr.exe)运行在Win95/98/NT操作平台上,为其它调用Agent的客户程序提供服务。客户程序可以是利用VB、C++、Delphi、VFP、PB等开发的应用软件,也可以是HTML文件中的Visual Script、Java Script脚本语言代码。

安装Agent核心组件Msagent.exe。

安装Lernout &amp; Hauspie TruVoice Text-to-Speech Engine(完成从文字合成语音的工作,目前版本只支持英语)Cgram.exe。

安装Microsoft Command and Control Speech Engine(提供语音识别功能,目前版本只支持英语)Actcnc.exe。

Agent动画人物人物数据文件。Agent支持单结构角色文件(.acs,角色数据与动画数据存于同一个文件),也支持分离结构角色文件(.acf,角色数据存于.acf中,动画数据存于.aca中)。基于本地硬盘和网络的应用程序可采用.acs文件,基于Web页面的HTML文件在浏览器中访问时会自动调用,习惯上多使用.acs文件。
---- 上述文件可从 http://www.microsoft.com//workshop/imedia/agent/default.asp下载。
三、 Microsoft 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、 在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;

---- ⑷、按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98/NT简体中文版环境下调试通过。
*****************
来自:dingbaosheng, 时间:01-7-30 22:37:00, ID:592696
其实我有一点会用agent技术, 如获得任一角色内置动作,使之动作、说话等。
只是:
1、无法在提示窗口中加入控件如edit,button等。
2、无法捕捉鼠标点击的是Agent对象的右键菜单中具体哪一选项
如有哪位大虾有实现过 请赐教,分分不成问题~~~~~~~~~~

可能Character根本没有实现IID_Balloon
Character.QueryInterface(IID_Balloon,NewBalloon);
得到NewBalloon=nil.
而WORD显然可以:
var
MyWord:TWordApplication2k;
MyAssistant:Assistant;
MyBalloon:Balloon;
begin
MyWord:=TWordApplication2k.Create(Application);
MyWord.ShowMe;
MyAssistant:=MyWord.Assistant;
MyBalloon:=MyAssistant.NewBalloon;
MyBalloon.Text:='Hello';
MyBalloon.Button:=msoButtonSetYesAllNoCancel;
MyBalloon.Heading:='heading';
MyBalloon.Show;
end;
 
在这里有一个我写的完整的程序代码,你可以下载察看.http://wiroad.126.com
 
照着以上仁兄所讲的方法,会出现角色ID错误的哟,请指教
 
出现这个错误的原因是你没有安装相关的角色.
 
我是把Peedy拷过来拉,在同一个目录下呀,这个角色文件是3M多
在你的主页找不到你所说的例子
 
你把源码粘上来,看看,
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部