Microsoft Agent技术在Delphi中的应用

Microsoft Agent技术在Delphi中的应用(3) Peedy.Set_Height( round(AgentHeight / 2 ));
Peedy.Set_Width( round( AgentWidth / 2 ));

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

---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 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        思考