Microsoft Agent在bcb下的简单调用

       “Microsoft Agent”，代理软件开发技术，是一套ActiveX控制。支持中文。有强大的交互功能与人性特点，不仅能给出有趣的提示信息，还能给出幽默的动画效果。 偶也是刚接触Agent，以下就说一下他在bcb下的简单开发。

     首先到http://www.microsoft.com/msagent/default.asp  下载Agent包ace.exe，到http://www.msagentring.org/chars.htm 下载角色文件并进行安装。

    安装完后在bcb的ActiveX下就会出现Agent组件。下面就可以调用微软的小精灵了。

    创建工程，在form中拖入Agent组件和两个button。

   button1代码如下：

   void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TVariant tagKey("C://WINDOWS//msagent//chars//James.acs");
   IAgentCtlRequest*   pRequest =Agent1->Characters->Load(WideString("myagent").c_bstr(),   tagKey);
   IAgentCtlCharacterEx*   MyAgent=(IAgentCtlCharacterEx*)Agent1->Characters->Character(WideString("myagent").c_bstr());
   MyAgent->Show();
   MyAgent->Speak(TVariant("Hello,I'm speaking!"));
   MyAgent->Play(TVariant("search"));  

}

   button2代码：

  void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Agent1->Characters->Load(WideString("merlin").c_bstr(),TVariant("merlin.acs"));
  IAgentCtlCharacterEx*  MyAgent=(IAgentCtlCharacterEx*)Agent1->Characters->Character(WideString("merlin").c_bstr());  
  MyAgent->Show(TVariant(0));  
  MyAgent->MoveTo((Screen->Width-MyAgent->Width)/2,(Screen->Height-MyAgent->Height)/2,TVariant(2));  
  MyAgent->Play(TVariant("Search"));  
       
}

   运行，这样就完成了Agent的简单调用。