|
Microsoft Agent是微软公司于年月发布的一项代理软件开发技术而后被集成到Internet Explorer Plus及更高版本中目前版本为支持简体中文作为一种软件代理工具Agent以其强大的交互功能鲜明的人性特点优美的操作界面和简便统一的编程方法对由菜单按钮提示框等组成的传统人机交互方式产生了很大影响在多媒体创作Web应用教育软件软件帮助系统和辅助工具制作等方面具有广阔的应用前景 一 Microsoft Agent技术简介 Agent一词的中文意思是代理故名思意这类代理软件的主要作用是提供一种易于理解和使用的操作界面接受用户的指令代替用户完成某些复杂繁琐的工作或为用户提供帮助科学研究表明从人机工程的角度考虑赋予电脑或程序更多人性化色彩如支持语音合成输出信息语音识别输入指令智能提示动画等能够充分提高人机交互的有效性和易用性 我们知道在Office 帮助系统中有一种叫作Office助手的代理软件其中幽默风趣的动画人物如大眼夹能够根据用户的操作步骤智能化地提出一些建议或帮助信息与Office助手相比Agent功能更加丰富强大表现在 Office助手沿用传统的不透明矩形窗口窗口后面的背景被完全挡住Agent动画人物本身是一个AlwaysOnTop窗口只有人物身体部分挡住背景其余部分透明 Office助手只允许Office 的各个组件调用Agent动画人物可由任何Windows程序调用 Agent支持文字气球和输入提示条在输出语音的同时把文字输出至一个卡通式文字气球中如果电脑系统中安装有Agent语音识别引擎当用户按住输入键如Scroll Lock键在Agent人物下方出现一个输入命令窗口表示它正在聆听用户的语音命令 Agent提供GenieMerlinBobby和Peedy等动画人物不仅具有优美诙谐的动作而且可以通过声卡麦克风与用户交谈 二 Microsoft Agent安装方法 Agent是一种ActiveX控件其服务器程序（C:\WINDOWS\MSAGENT\Agentsvrexe）运行在Win//NT操作平台上为其它调用Agent的客户程序提供服务客户程序可以是利用VBC++DelphiVFPPB等开发的应用软件也可以是HTML文件中的Visual ScriptJava Script脚本语言代码 安装Agent核心组件Msagentexe 安装Lernout & Hauspie TruVoice TexttoSpeech Engine（完成从文字合成语音的工作目前版本只支持英语）Cgramexe 安装Microsoft Command and Control Speech Engine（提供语音识别功能目前版本只支持英语）Actcncexe Agent动画人物人物数据文件Agent支持单结构角色文件（acs角色数据与动画数据存于同一个文件）也支持分离结构角色文件（acf角色数据存于acf中动画数据存于aca中）基于本地硬盘和网络的应用程序可采用acs文件基于Web页面的HTML文件在浏览器中访问时会自动调用习惯上多使用acs文件 上述文件可从 下载 三 Microsoft Agent编程要点/b> 在Delphi中添加Agent控件 在Delphi IDE中选择菜单ComponentImport ActiveX Control——在Import ActiveX下的列表框中选择Microsoft Agent Control （Version ）点击按钮Install——在Install对话框中点击按钮OK——在Confirm对话框中点击按钮Yes——在对话框中点击按钮OK至此Agent控件被添加到Delphi组件板ActiveX页上 在Delphi中调用Agent控件 ⑴在Delphi IDE 中新建Project（包含Form）在Form上放置Agent（Name属性为MyAgent）Button ⑵定义变量 Var Peedy: IagentCtlCharacterEx; RequestRequest: IagentCtlRequest; ⑶Agent主要属性方法事件 ①Characters属性与LoadUnload方法初始化Agent加载动画数据卸载动画人物 Request := MyAgentCharactersLoad( Peedy C:\Windows\System\Peedyacs ); Peedy := MyAgentCharactersCharacter( Peedy ); MyAgentCharactersUnload(Peedy); ②Show与Hide方法显示隐藏Agent动画人物参数Fast表示动画人物显示隐藏的速度Fast为表示Agent飞入飞出Fast为表示Agent直接出现消失没有动画过程 PeedyShow(); PeedyHide(); ③StopAllStop方法停止所有动作 PeedyStopAll(); PeedyStop(Request); ④Connected属性Agent是否与Microsoft Agent服务器连接 MyAgentConnected := True; ⑤Get_HeightGet_WidthSet_HeightSet_Width方法获得设置Agent动画人物的高度宽度 AgentHight := PeedyGet_Height; AgentWidth := PeedyGet_Width; PeedySet_Height( round(AgentHeight / )); PeedySet_Width( round( AgentWidth / )); ⑥MoveTo方法参数xy表示Agent动画人物移动到的坐标参数Speed表示移动的速度 PeedyMoveTo( (ScreenWidthPeedyGet_Width) Div (ScreenHeightPeedyGet_Height) Div ); ⑦Interrupt方法中断指定角色的动画在几十种动画动作中有一类后缀名为ing 的动作比较特殊如processingsearchingreadingwriting一旦执行就必须通过调用另外一个动画人物的Interrupt方法才能中断 角色不能中断自身的动作否则会导致异常 Request := RobbyPlay(reading); PeedyInterrupt(Request); ⑧Wait方法在多个不同动画人物之间协调动画动作如等待sRobby的当前动作执行完毕后Peedy做另外一个动作 Request := RobbyPlay(read); PeedyWait(Request); PeedyPlay(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 := peedyPlay(search); ⑩Speak方法Agent通过调用语音合成引擎支持英语的语音合成输出功能只需输入英文字符串Agent就能通过声卡音箱说话Agent的当前版本尚不具备支持中文语音合成功能所以只能以wav文件的形式播放中文使用时可以将想要说的中文句子预先录好以wav形式存储在程序中调用即可参数Text表示文字气球中显示的文字参数url表示wav文件的路径 Peedyspeak(嗨朋友们你们好现在由我为您提供帮助！C:\新建文件夹\Helpwav); PeedySpeak( Do you like my help? If so Please send me an email! Thank you! ); ⑾CommandsAdd方法在ButtonClick事件中为Agent添加自定义语音识别命令参数const Name表示语音命令的标识参数Caption表示该命令在输入命令窗口中的显示标题参数Voice表示该命令对应的语句当用户通过麦克风向动画人物发出语音命令时触发Agent的Command事件因此我们可以另外编写一个过程完成语音识别功能 procedure TFormButtonClick(Sender: TObject); begin PeedyCommandsAdd(DelphiRun DelphiDelphiTrueTrue); PeedyCommandsAdd(Visual Basic Run VBVBTrueTrue); PeedyShow(); PeedySpeak(What can I do for you sir?); end; ⑷按F运行程序以上程序在Delphi/Windows//NT简体中文版环境下调试通过 |
