cb使用msagent

大家好，又见面了，我是你们的朋友全栈君。—- 1、 添加agent控件

—- 选择菜单component，import activex control——在import activex下的列表框中选择microsoft agent control 2.0（version 2.0），点击按钮install——在install对话框中点击按钮ok——在confirm对话框中点击按钮yes——在对话框中点击按钮ok。至此，agent控件被添加到BCB组件板activex页上。

—- 2、 调用agent控件

—- ⑴、新建project1（包含form1），在form1上放置agent1（name属性为myagent）、button1。

—- ⑵、定义变量。

IAgentCtlCharacter peedy;

IAgentCtlreQuest request1,request2;

注意是 IAgentCtlCharacter 而不是 IAgentCtlCharacterEx

有些资料上用的是 IAgentCtlCharacterEx

但是偶编译出错

—- ⑶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;

—- ⑤GetHeight、GetWwidth、SetHeight、SetWidth方法：获得、设置agent动画人物的高度、宽度。

—- ⑥MoveTo方法：参数x，y表示agent动画人物移动到的坐标，参数speed表示移动的速度。

—- peedy->MoveTo( (Screen->Width-peedy->GetWidth)/2, (Screen->Height-peedy->GetHeight)/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”);

要注意的是，有些角色比较简单，并没有这么多的动作

你可以下一个AVTOOL。EXE，是微软的AGENT角色动作查看程序，用他可以看到角色所有的动作

—- ⑩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事件，因此我们可以另外编写一个过程完成语音识别功能。

void __fastcall TForm1::Button1Click(TObject *Sender);

{

  peedy->Commands->Add(“BCB”,”run BCB”,”BCB”,true,true);

  peedy->Commands->Add(“visual basic”,”run vb”,”vb”,true,true);

  peedy->Show(0);

  peedy->Speak(“what can i do for you, sir?”,””);

}