精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: 浅述Agent 控件
发信站: 哈工大紫丁香 (2000年09月07日12:25:25 星期四), 站内信件

浅述Agent 控件
北京师范大学
陈天(chentian@263.net)
----------------------------------------------------------------------------
----
一、Agent 的功能与特点
----Agent 控件的动画人物最显著的特点就是造型美观，它取消
了原来Office 助手的方形窗口，采用不规则窗口，使人物形象
更加丰满生动。Agent 的人物可以分为两部分：一是精灵本身，
它可以通过“ 听觉” 或者由程序控制摆出各种不同的姿势，
如高兴、鼓掌、再见等；另一部分是被称作Balloon 的语言提示
部分，它可以以漫画人物的方式在精灵上方显示出Agent 所说
的话。微软已经提供了4 种人物造型，它们是Genie、Merlin、Robby、
Peedy（如下图所示）。
----Agent 的另一大特色是语音合成和语音识别功能。只要在系
统中装入了L ＆H TruVoice Text －To －Speech Engine 和Microsoft Speech R
ecognition Engine v4.0，在你的程序中输入任何一句话，如“Good M
orning,Sir!”，它就能用相当完美的语速朗读出来，你甚至可以
用它学习纯正的美国英语。你还可以指定它自带的8 种声音
风格的任何一种。除英语外，Agent 核心程序目前还支持简体中
文、繁体中文、法文、德文、日文等10 个语种。
二、对Agent 控件编程
----Agent 控件可以使用在任何编程语言和网页中，在编程语言
中使用Agent 比较简单，而且与在网页中的使用方法差不多，
这里只对网页中的使用作一简单的介绍。
----1. 在网页中使用Agent 控件
----在网页中使用Agent 控件，需要在< HEAD > 或者< BODY > 中间用到
< OBJECT > 标签，指明该控件的CLSID。另外，还可以加上CODEBASE 参
数来指明Agent 控件的安装路径和版本号。如果系统安装了IE3
.0 以上版本，当浏览含有Agent 控件的网页时，浏览器会询问是
否下载该控件。下面这个例子是用CODEBASE 参数告诉浏览器如
何自动下载英文2.0 版的Agent 控件。< OBJECT classid= “clsid: D45FD3
1B －5C6E －11D1 －9EC1 －00C04FD7081F"CODEBASE = “ ＃ VERSION=2,0,0,0" id=
Agent >< /OBJECT >
----当然，也可以让Agent 控件从你的服务器上安装，这样你就
需要有一个自解压的MSAGENT.EXE 文件，并在你的主页上加上如
下代码：
< OBJECT classid=“clsid: D45FD31B
           －5C6E －11D1 －9EC1 －00C04FD7081F"
CODEBASE = “http://your server/msagent.exe
               ＃VERSION=2,0,0,0"
id=Agent >< /OBJECT >
----为了支持其他语言版本的Agent 控件，你可以用< OBJECT > 标签
来指明语言包。语言包可以从微软站点获得。要使用Agent，首
先要使用Load 方法来加载一个动画人物，Load 方法可以从本地
或者远程服务器上加载该人物。加载以后，便可以对他的事
件、方法、属性进行编程了。只要有一个客户连接，服务端的
Agent 服务将一直持续。但是当浏览者关闭浏览器或者转入其
他网页时，Agent 精灵将从浏览者屏幕上消失。为了使Agent 能够
在你的几个网页中持续出现，你可以使用HTML 的页框（Frame），
将< OBJECT > 标签置于父页中，用JavaScript 或者VBScript 在子网页
中调用父网页的Script 函数。
    用VBScript 编程语法格式如下：
      agent[.object].Method parameter, [parameter]
      agent[.object].Property = value
    对事件编程，可以用如下的格式：
    Sub agent_event (ByVal parameter[,ByVal parameter])
       statements...
    End Sub
----例如，用VBScript (2.0 或更高版本) ，你能够检验Microsoft Agent
控件是否已经在客户端安装。下面这个例子演示了如何检查
是否已经安装了Agent 控件而提示避免下载该控件。
< SCRIPT LANGUAGE=VBSCRIPT >
If HaveAgent() Then
document.write “< H2 align=center >Found< /H2 >"
Else
document.write“< H2 align=center >Not Found< /H2 >"
End If
Function HaveAgent()
   Dim agent
   HaveAgent = False
   On Error Resume Next
   Set agent = CreateObject(“Agent.Control.1")
   HaveAgent = IsObject(agent)
End Function
< /SCRIPT >
----2. 语音功能
----要让你的精灵具备语音功能，必须首先安装语音识别引擎
和文本－语音转化引擎（TTS）。为使你的应用程序或网页支
持语音输入功能，首先要建立一个Command 对象，并且设置它的
Voice 属性。当用户点击“Listen” 纽或者程序中调用 Listen 函数
后，Agent 控件将自动加载语音识别引擎，缺省的 LanguageID 将决
定加载哪种引擎。如果你想加载一个特殊的引擎，可以使用
SRModeID 属性。
----除语音识别外，Agent 的另一个有用的功能是文本－语音转
化。用Speak 方法可以实现这种功能。同语音识别一样，Agent 首
先加载精灵的LanguageID。如果精灵包括一个特殊的TTS 引擎并
且该引擎可以使用这个LanguageID, 那么Agent 将加载这个引擎，否
则，将加载第一个符合LanguageID 的TTS 引擎。你可以用 TTSModeID
来确定一个引擎。
----加载TTS 引擎后，你就可以用Speak 方法来合成语音了。如：
　　Genie.Speak “Hello,Word!"
----你甚至还可以通过一些特殊的声音控制符号让Agent 能够唱
歌。
----3. Agent 对象及其重要属性
----Agent 对象是Agent 控件的核心对象，下面是Agent 对象的一些
重要的方法和属性：
----Connected 属性
----返回当前Agent 对象是否与Microsoft Agent 服务器相连。
----表达式
agent.Connected [ = boolean]
----很多情况下，控件将自动连接Microsoft Agent 服务器。但是，
如果你想在运行时创建Agent 控件，你必须显式地调用Connected
属性来与服务器连接。例如，在VB 中，用CreateObject 或者New 创建
一个实例后，并没有自动与服务器连接，必须像如下示例那
样与服务器相连：
      Dim MyAgent as Agent
      Set MyAgent = New Agent
      MyAgent.Connected = True
      MyAgent.Characters.Load “Genie", “ Genie.acs"
      MyAgent.Characters(“Genie").Show
----如果想在VB 中能对事件编程，你可以加上WithEvents 关键字来
实现：
      Dim WithEvents MyAgent as Agent
      Set MyAgent = New Agent
----用WithEvents 创建的对象实例将自动与服务器相连，所以就
不必使用 Connected 属性了。
----Character 属性
----Character 属性是Agent 的核心属性之一。下面是Character 属性的
一些方法和属性：
----Load 方法
----加载一个Character 对象进入Characters 集合。
----语法
　 agent.Characters.Load “CharacterID", Provider
----CharacterID 是Character 的名字，如微软的 Genie,Peedy 等，Provider
是角色文件的路径。Agent 既支持从单结构角色文件（.ACS 角色
数据与动画数据在一个文件中）Load 又支持从分离结构角色文
件（＊.ACF 这种结构将角色数据存入＊.ACF 中，将动画数据存
入＊.ACA 中）中Load。用ACS 时，ACS 文件存在本地硬盘或者网络上
。用ACF 文件时，是从动画文件中加载单个动画，主要用于网
络环境，使用HTTP 协议。使用ACS 文件时用Load 方法来加载动画，
而用ACF 文件时用Get 方法加载动画。Load 方法不支持HTTP 协议。
不过ACF 有费用，所以一般使用ACS 文件的情况居多。如果非要
使用免费的ACF，用 Load(“http://agent.microsoft.com/characters/v2/genie
/genie.acf") 就可以了。
----Get 方法
----为指定的角色人物返回指定的动画数据。
----语法
agent.Characters (“CharacterID").Get Type, Name, [Queue]
----Type 是一个必需的字符串参数，用于指明所要求的数据类
型。它可以使用三种数据类型：“Animation" 角色的动画数据，“
State" 角色的状态数据，“WaveFile" 角色的声音数据。Name 是动画
名称字符串，可用的名称有：“Gesturing"、 “GesturingDown"、“Gest
uringLeft" 等。
----备注：
----如果你使用HTTP 协议加载角色，你在使用Play 方法之前必须
使用Get 来得到动画数据。如果使用ACS 文件你不能使用Get 方法
。
----Interrupt 方法
----中断指定角色的动画。
----语法
agent.Characters (“CharacterID").Interrupt Request
----备注
----下面是一个有关Interrupt 的例子，演示了 Genie 和Robby 的会话
过程。
   Dim GenieRequest as Object
   Dim RobbyRequest as Object
   Dim Genie as Object
   Dim Robby as Object
   Sub FormLoad()
      MyAgent1.Characters.Load “Genie", “Genie.acs"
　　  MyAgent1.Characters.Load “Robby", “Robby.acs"
      Set Genie = MyAgent1.Characters (“Genie")
      Set Robby = MyAgent1.Characters (“Robby")
      Genie.Show
      Genie.Speak “Just a moment"
      Set GenieRequest = Genie.Play (“Processing")
      Robby.Show
      Robby.Play “confused"
      Robby.Speak “Hey, Genie. What are you doing?"
      Robby.Interrupt GenieRequest
      Genie.Speak “I was just checking on something."
   End Sub
----Play 方法
----这是一个最重要的方法，用于演示指定的动画动作。
----语法
　　agent.Characters
(“CharacterID").Play “AnimationName"
----Speak 方法
----“ 说出” 指定文本或者声音文件。
----语法
    agent.Characters (“CharacterID").Speak [ Text ], [ Url ]
----Agent 编程示例请参阅 http://202.112.83.73/agent/index.htm。

--
├┝┞┟┠┢┣◣◢
               ∣
             ▆▆▆
              ▇▇

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.208]

VB 版 (精华区)