CB2007 中使用Microsoft Agent 控件

一、控件的安装：

1. 一般windows 2000和XP中都已经预装了Agent组件，不过也有例外，我的系统里就没有，不过没关系，Agent控件的核心组建msagent.exe 找到后安装一个就好了。

2. 不要忘了还需要安装acs文件。

3.安装Agent控件：

    a>打开编译器，新建一个package工程

    b>Component-〉Import Component->Import ActiveX Controls 下一步，从Registed ActiveX Controls中选择Microsoft Agent Control 2.0 下一步，Component页面保持默认设置，下一步，Create Unit页面勾选"Add unit to package1.cbproj project"，下一步，finished；

    c>build

    d>install

经过这些操作Agent控件就安装完成了，重新启动编译器就会在ActiveX面板中看到TAgent控件。

二、控件的使用：

   1. 加载acs文件：

 

           BSTR agentname = BSTR("merlin"); 

           Agent1->Characters->Load(agentname, Variant("C://WINDOWS//system//merlin.acs"));

           Agentobjects_tlb::IAgentCtlCharacterEx* crct;

            crct = Agent1->Characters->Character(agentname);

    2.显示agent：

            crct->Show();

    3.显示文字：

            crct->Speak(Variant("haha"),Variant(""));

            //这里第二个参数是语音设置部分目前还不支持汉语，但是可以把语音制作成wav文件将其路径作为第二个参数。