Microsoft Agent技术在Delphi中的应用

Microsoft Agent技术在Delphi中的应用(2) ---- 上述文件可从 http://www.microsoft.com//workshop/imedia/agent/default.ASP下载。
三、 Microsoft Agent编程要点

---- 1、 在Delphi中添加Agent控件

---- 在Delphi IDE中选择菜单Component，Import ActiveX Control——在Import ActiveX下的列表框中选择Microsoft Agent Control 2.0（Version 2.0），点击按钮Install——在Install对话框中点击按钮OK——在Confirm对话框中点击按钮Yes——在对话框中点击按钮OK。至此，Agent控件被添加到Delphi组件板ActiveX页上。

---- 2、 在Delphi中调用Agent控件

---- ⑴、在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name属性为MyAgent）、Button1。

---- ⑵、定义变量。

Var
  Peedy: IagentCtlCharacterEx;
  Request1,Request2: IagentCtlRequest;

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

---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法：获得、设置Agent动画人物的高度、宽度。

AgentHight := Peedy.Get_Height;
AgentWidth := Peedy.Get_Width;