捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：MsAgent 孙悟空动作列表及简单演示
ljq900 17389 2005/8/31 17:16:32
上面AgentObjects_TLB代码不能用,作下列修改
将过程
procedure TAgent.InitControlData;
改成下列形式,不保证好用,可以试试,但能通过编译
procedure TAgent.InitControlData;
const
  CEventDispIDs: array [0..25] of DWORD = (
    $00000001, $00000003, $00000002, $00000004, $00000005, $00000006,
    $0000000F, $00000007, $00000009, $0000000B, $00000015, $0000000C,
    $00000010, $00000011, $00000013, $00000014, $00000016, $00000017,
    $00000018, $00000019, $0000001A, $0000001B, $0000001C, $0000001E,
    $0000001F, $00000020);
  CControlData: TControlData2 = (
    ClassID: '{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}';
    EventIID: '{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}';
    EventCount: 26;
    EventDispIDs: @CEventDispIDs;
    LicenseKey: nil (*HR:$80040154*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
  pcardinal(@TControlData2(CControlData).FirstEventOfs) ^ := Cardinal(@@FOnActivateInput) - Cardinal(Self);
end;
ljq900 17387 2005/8/31 16:16:28
孙悟空加载过程详细解释
Agent1.Connected:=false;
try
Agent1.Characters.Unload('MNKYKING');          
Request1:=Agent1.Characters.Load('MNKYKING',[“孙悟空”的acs文件名] ); //加载文件
MonkeyKing:=Agent1.Characters.Character('MNKYKING');          //MonkeyKing引用孙悟空对象
name:='MNKYKING';
except
end;
Agent1.Connected:=True;
MonkeyKing.MoveTo(300,400,12);          //移动孙悟空
----------
Request1，MonkeyKing 的定义
Request1：IAgentCtlRequest；      //包含操作结果接口,有时用到
MonkeyKing：IAgentCtlCharacterEx；//角色操作对象接口，常用
----------
至于步骤，可从网上搜索下载示例程序


MonkeyKing.Show(0);
MonkeyKing.Play(copy(combobox1.Text,0,pos(' ',combobox1.Text)-1));
MonkeyKing.Speak('¹哈哈',')
amber 11698 2005/1/13 17:35:53
大家好，我下载了“孙悟空”，怎么样才能够看到动画呢？
要安装吗，还是用什么软件打开啊，请给我详细说说吧，我一点都不懂
tim001 5933 2004/6/10 17:57:50
利害啊
abc516 5577 2004/6/3 11:25:39
Request1
MonkeyKing
如何定义呀？！
zhmq 4869 2004/5/13 12:49:51
请问下载的acs文件怎么使用？

给个步骤或示例好不好？谢谢！
syd111 4801 2004/5/10 19:12:24
上面的代码不能用 自己写吧

研究了一下 提供一下代码 以供参考

//combobox1的items

Alert 金箍棒闪一下
Explain 向右赞眼 
Congratulate 挥大旗
GetAttention 敲锣 / 吻 / 竖琴
GestureDown 向下手势
GestureLeft 向左手势
GestureRight 向右手势
GestureUp 向上手势 
Hide 隐藏
Idle1_1 
LookUp 向上看
LookDown 向下看
LookLeft 向左看 
LookRight 向右看 
Processing 跑步 []
RestPose 姿势复位 
Searching 搜索
Show 显示
Thinking 思考
Wave 挥手 或 打关斗
Writing 反复写


//combobox2的items 我还有其他的角色 需要的自己去找很多
MonkeyKing
courtney
earl
rover
merlin
qmark
genie
Robby
Peedy


***************************
//全局变量
var
name:string;


procedure TForm1.Button1Click(Sender: TObject);
begin
Agent1.Connected:=false;
try
if name<>' then
Agent1.Characters.Unload(name);
Request1:=Agent1.Characters.Load(combobox2.Text,extractfilepath(application.ExeName)+combobox2.Text+'.acs' );
MonkeyKing:=Agent1.Characters.Character(combobox2.Text);
name:=combobox2.Text;
except
end;
Agent1.Connected:=True;
MonkeyKing.MoveTo(300,400,12);


MonkeyKing.Show(0);
MonkeyKing.Play(copy(combobox1.Text,0,pos(' ',combobox1.Text)-1));
MonkeyKing.Speak('¹哈哈',')

end;
***************************

仅仅是实现功能 代码没有整理 思路不是很好 见谅

还有一些功能 
Agent1.ShowDefaultCharacterProperties;
Agent1.CommandsWindow; 

自己去看看研究吧 

好东西大家共享 
yllz 4797 2004/5/10 16:54:07
IniRec找不到怎么不能用啊!怎么才能用?
register 4754 2004/5/9 17:07:39
上面的代码是我随便粘贴的，不完整，真的对不起 CHWG，别外还需要一个AgentObjects_TLB 我忘了附进去，你也可以自己倒的。
unit AgentObjects_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : $Revision:   1.130.1.0.1.0.1.6  $
// File generated on 2004-3-26 21:16:16 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\WINDOWS\msagent\AgentCtl.dll (1)
// LIBID: {F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}
// LCID: 0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (D:\WINDOWS\System32\stdole2.tlb)
//   (2) v4.0 StdVCL, (D:\WINDOWS\System32\stdvcl40.dll)
// Errors:
//   Hint: Parameter 'On' of IAgentCtlCharacter.IdleOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.IdleOn changed to 'On_'
//   Hint: Parameter 'Type' of IAgentCtlCharacter.Get changed to 'Type_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.SoundEffectsOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.SoundEffectsOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.AutoPopupMenu changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.AutoPopupMenu changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.HelpModeOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.HelpModeOn changed to 'On_'
//   Hint: Parameter 'File' of IAgentCtlCharacterEx.HelpFile changed to 'File_'
//   Hint: Parameter 'File' of IAgentCtlCharacterEx.HelpFile changed to 'File_'
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
  


// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  AgentObjectsMajorVersion = 2;
  AgentObjectsMinorVersion = 0;

  LIBID_AgentObjects: TGUID = '{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}';

  IID_IAgentCtlCharacters: TGUID = '{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCharacter: TGUID = '{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCharacterEx: TGUID = '{DE8EF600-2F82-11D1-ACAC-00C04FD97575}';
  IID_IAgentCtlBalloon: TGUID = '{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlBalloonEx: TGUID = '{822DB1C0-8879-11D1-9EC6-00C04FD7081F}';
  IID_IAgentCtlCommands: TGUID = '{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCommandsEx: TGUID = '{6BA90C01-3910-11D1-ACB3-00C04FD97575}';
  IID_IAgentCtlCommand: TGUID = '{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCommandEx: TGUID = '{B0913410-3B44-11D1-ACBA-00C04FD97575}';
  IID_IAgentCtlRequest: TGUID = '{1DAB85C3-803A-11D0-AC63-00C04FD97575}';
  IID_IAgentCtlAnimationNames: TGUID = '{8B77181C-D3EF-11D1-8500-00C04FA34A14}';
  IID_IAgentCtlAudioObject: TGUID = '{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlAudioObjectEx: TGUID = '{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlSpeechInput: TGUID = '{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlPropertySheet: TGUID = '{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlUserInput: TGUID = '{C4ABF875-8100-11D0-AC63-00C04FD97575}';
  IID_IAgentCtlCommandsWindow: TGUID = '{6D0ECB27-9968-11D0-AC6E-00C04FD97575}';
  IID_IAgentCtl: TGUID = '{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlEx: TGUID = '{8563FF20-8ECC-11D1-B9B4-00C04FD97575}';
  DIID__AgentEvents: TGUID = '{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}';
  CLASS_Agent: TGUID = '{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IAgentCtlCharacters = interface;
  IAgentCtlCharactersDisp = dispinterface;
  IAgentCtlCharacter = interface;
  IAgentCtlCharacterDisp = dispinterface;
  IAgentCtlCharacterEx = interface;
  IAgentCtlCharacterExDisp = dispinterface;
  IAgentCtlBalloon = interface;
  IAgentCtlBalloonDisp = dispinterface;
  IAgentCtlBalloonEx = interface;
  IAgentCtlBalloonExDisp = dispinterface;
  IAgentCtlCommands = interface;
  IAgentCtlCommandsDisp = dispinterface;
  IAgentCtlCommandsEx = interface;
  IAgentCtlCommandsExDisp = dispinterface;
  IAgentCtlCommand = interface;
  IAgentCtlCommandDisp = dispinterface;
  IAgentCtlCommandEx = interface;
  IAgentCtlCommandExDisp = dispinterface;
  IAgentCtlRequest = interface;
  IAgentCtlRequestDisp = dispinterface;
  IAgentCtlAnimationNames = interface;
  IAgentCtlAnimationNamesDisp = dispinterface;
  IAgentCtlAudioObject = interface;
  IAgentCtlAudioObjectDisp = dispinterface;
  IAgentCtlAudioObjectEx = interface;
  IAgentCtlAudioObjectExDisp = dispinterface;
  IAgentCtlSpeechInput = interface;
  IAgentCtlSpeechInputDisp = dispinterface;
  IAgentCtlPropertySheet = interface;
  IAgentCtlPropertySheetDisp = dispinterface;
  IAgentCtlUserInput = interface;
  IAgentCtlUserInputDisp = dispinterface;
  IAgentCtlCommandsWindow = interface;
  IAgentCtlCommandsWindowDisp = dispinterface;
  IAgentCtl = interface;
  IAgentCtlDisp = dispinterface;
  IAgentCtlEx = interface;
  IAgentCtlExDisp = dispinterface;
  _AgentEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Agent = IAgentCtlEx;


// *********************************************************************//
// Interface: IAgentCtlCharacters
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharacters = interface(IDispatch)
    ['{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Item(const CharacterID: WideString): IAgentCtlCharacter; safecall;
    function Character(const CharacterID: WideString): IAgentCtlCharacter; safecall;
    function Get_Enum: IUnknown; safecall;
    procedure Unload(const CharacterID: WideString); safecall;
    function Load(const CharacterID: WideString; LoadKey: OleVariant): IAgentCtlRequest; safecall;
    property Item[const CharacterID: WideString]: IAgentCtlCharacter read Get_Item; default;
    property Enum: IUnknown read Get_Enum;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCharactersDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharactersDisp = dispinterface
    ['{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}']
    property Item[const CharacterID: WideString]: IAgentCtlCharacter readonly dispid 0; default;
    function Character(const CharacterID: WideString): IAgentCtlCharacter; dispid 3;
    property Enum: IUnknown readonly dispid -4;
    procedure Unload(const CharacterID: WideString); dispid 2;
    function Load(const CharacterID: WideString; LoadKey: OleVariant): IAgentCtlRequest; dispid 1;
  end;

// *********************************************************************//
// Interface: IAgentCtlCharacter
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharacter = interface(IDispatch)
    ['{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Balloon: IAgentCtlBalloon; safecall;
    function Get_Commands: IAgentCtlCommands; safecall;
    function Get_Name: WideString; safecall;
    function Get_Description: WideString; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Left(Left: Smallint); safecall;
    function Get_Left: Smallint; safecall;
    procedure Set_Top(Top: Smallint); safecall;
    function Get_Top: Smallint; safecall;
    procedure Set_Height(Height: Smallint); safecall;
    function Get_Height: Smallint; safecall;
    procedure Set_Width(Width: Smallint); safecall;
    function Get_Width: Smallint; safecall;
    function Get_Speed: Integer; safecall;
    function Get_Pitch: Integer; safecall;
    procedure Set_IdleOn(On_: WordBool); safecall;
    function Get_IdleOn: WordBool; safecall;
    function Activate(State: OleVariant): WordBool; safecall;
    function Play(const Animation: WideString): IAgentCtlRequest; safecall;
    function Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; safecall;
    procedure Stop(Request: OleVariant); safecall;
    function Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; safecall;
    function Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; safecall;
    function Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; safecall;
    function GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; safecall;
    function MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; safecall;
    function Hide(Fast: OleVariant): IAgentCtlRequest; safecall;
    function Show(Fast: OleVariant): IAgentCtlRequest; safecall;
    procedure StopAll(Types: OleVariant); safecall;
    function Get_MoveCause: Smallint; safecall;
    function Get_VisibilityCause: Smallint; safecall;
    function Get_HasOtherClients: WordBool; safecall;
    procedure Set_SoundEffectsOn(On_: WordBool); safecall;
    function Get_SoundEffectsOn: WordBool; safecall;
    procedure Set_Name(const Name: WideString); safecall;
    procedure Set_Description(const Description: WideString); safecall;
    function Get_ExtraData: WideString; safecall;
    property Balloon: IAgentCtlBalloon read Get_Balloon;
    property Commands: IAgentCtlCommands read Get_Commands;
    property Name: WideString read Get_Name write Set_Name;
    property Description: WideString read Get_Description write Set_Description;
    property Visible: WordBool read Get_Visible;
    property Left: Smallint read Get_Left write Set_Left;
    property Top: Smallint read Get_Top write Set_Top;
    property Height: Smallint read Get_Height write Set_Height;
    property Width: Smallint read Get_Width write Set_Width;
    property Speed: Integer read Get_Speed;
    property Pitch: Integer read Get_Pitch;
    property IdleOn: WordBool read Get_IdleOn write Set_IdleOn;
    property MoveCause: Smallint read Get_MoveCause;
    property VisibilityCause: Smallint read Get_VisibilityCause;
    property HasOtherClients: WordBool read Get_HasOtherClients;
    property SoundEffectsOn: WordBool read Get_SoundEffectsOn write Set_SoundEffectsOn;
    property ExtraData: WideString read Get_ExtraData;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCharacterDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharacterDisp = dispinterface
    ['{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}']
    property Balloon: IAgentCtlBalloon readonly dispid 23;
    property Commands: IAgentCtlCommands readonly dispid 25;
    property Name: WideString dispid 24;
    property Description: WideString dispid 28;
    property Visible: WordBool readonly dispid 2;
    property Left: Smallint dispid 3;
    property Top: Smallint dispid 4;
    property Height: Smallint dispid 5;
    property Width: Smallint dispid 6;
    property Speed: Integer readonly dispid 10;
    property Pitch: Integer readonly dispid 11;
    property IdleOn: WordBool dispid 29;
    function Activate(State: OleVariant): WordBool; dispid 26;
    function Play(const Animation: WideString): IAgentCtlRequest; dispid 13;
    function Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; dispid 27;
    procedure Stop(Request: OleVariant); dispid 14;
    function Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; dispid 22;
    function Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; dispid 21;
    function Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; dispid 15;
    function GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; dispid 17;
    function MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; dispid 18;
    function Hide(Fast: OleVariant): IAgentCtlRequest; dispid 19;
    function Show(Fast: OleVariant): IAgentCtlRequest; dispid 20;
    procedure StopAll(Types: OleVariant); dispid 31;
    property MoveCause: Smallint readonly dispid 32;
    property VisibilityCause: Smallint readonly dispid 33;
    property HasOtherClients: WordBool readonly dispid 34;
    property SoundEffectsOn: WordBool dispid 35;
    property ExtraData: WideString readonly dispid 36;
  end;

// *********************************************************************//
// Interface: IAgentCtlCharacterEx
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DE8EF600-2F82-11D1-ACAC-00C04FD97575}
// *********************************************************************//
  IAgentCtlCharacterEx = interface(IAgentCtlCharacter)
    ['{DE8EF600-2F82-11D1-ACAC-00C04FD97575}']
    function ShowPopupMenu(x: Smallint; y: Smallint): WordBool; safecall;
    procedure Set_AutoPopupMenu(On_: WordBool); safecall;
    function Get_AutoPopupMenu: WordBool; safecall;
    procedure Set_HelpModeOn(On_: WordBool); safecall;
    function Get_HelpModeOn: WordBool; safecall;
    procedure Set_HelpContextID(ID: Integer); safecall;
    function Get_HelpContextID: Integer; safecall;
    function Get_Active: Smallint; safecall;
    function Listen(Listen: WordBool): WordBool; safecall;
    procedure Set_LanguageID(LanguageID: Integer); safecall;
    function Get_LanguageID: Integer; safecall;
    function Get_SRModeID: WideString; safecall;
    procedure Set_SRModeID(const EngineModeId: WideString); safecall;
    function Get_TTSModeID: WideString; safecall;
    procedure Set_TTSModeID(const EngineModeId: WideString); safecall;
    function Get_HelpFile: WideString; safecall;
    procedure Set_HelpFile(const File_: WideString); safecall;
    function Get_GUID: WideString; safecall;
    function Get_OriginalHeight: Smallint; safecall;
    function Get_OriginalWidth: Smallint; safecall;
    function Think(const Text: WideString): IAgentCtlRequest; safecall;
    function Get_Version: WideString; safecall;
    function Get_AnimationNames: IAgentCtlAnimationNames; safecall;
    function Get_SRStatus: Integer; safecall;
    property AutoPopupMenu: WordBool read Get_AutoPopupMenu write Set_AutoPopupMenu;
    property HelpModeOn: WordBool read Get_HelpModeOn write Set_HelpModeOn;
    property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
    property Active: Smallint read Get_Active;
    property LanguageID: Integer read Get_LanguageID write Set_LanguageID;
    property SRModeID: WideString read Get_SRModeID write Set_SRModeID;
    property TTSModeID: WideString read Get_TTSModeID write Set_TTSModeID;
    property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
    property GUID: WideString read Get_GUID;
    property OriginalHeight: Smallint read Get_OriginalHeight;
    property OriginalWidth: Smallint read Get_OriginalWidth;
    property Version: WideString read Get_Version;
    property AnimationNames: IAgentCtlAnimationNames read Get_AnimationNames;
    property SRStatus: Integer read Get_SRStatus;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCharacterExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DE8EF600-2F82-11D1-ACAC-00C04FD97575}
// *********************************************************************//
  IAgentCtlCharacterExDisp = dispinterface
    ['{DE8EF600-2F82-11D1-ACAC-00C04FD97575}']
    function ShowPopupMenu(x: Smallint; y: Smallint): WordBool; dispid 37;
    property AutoPopupMenu: WordBool dispid 38;
    property HelpModeOn: WordBool dispid 39;
    property HelpContextID: Integer dispid 40;
    property Active: Smallint readonly dispid 41;
    function Listen(Listen: WordBool): WordBool; dispid 42;
    property LanguageID: Integer dispid 43;
    property SRModeID: WideString dispid 46;
    property TTSModeID: WideString dispid 47;
    property HelpFile: WideString dispid 48;
    property GUID: WideString readonly dispid 49;
    property OriginalHeight: Smallint readonly dispid 50;
    property OriginalWidth: Smallint readonly dispid 51;
    function Think(const Text: WideString): IAgentCtlRequest; dispid 52;
    property Version: WideString readonly dispid 53;
    property AnimationNames: IAgentCtlAnimationNames readonly dispid 54;
    property SRStatus: Integer readonly dispid 55;
    property Balloon: IAgentCtlBalloon readonly dispid 23;
    property Commands: IAgentCtlCommands readonly dispid 25;
    property Name: WideString dispid 24;
    property Description: WideString dispid 28;
    property Visible: WordBool readonly dispid 2;
    property Left: Smallint dispid 3;
    property Top: Smallint dispid 4;
    property Height: Smallint dispid 5;
    property Width: Smallint dispid 6;
    property Speed: Integer readonly dispid 10;
    property Pitch: Integer readonly dispid 11;
    property IdleOn: WordBool dispid 29;
    function Activate(State: OleVariant): WordBool; dispid 26;
    function Play(const Animation: WideString): IAgentCtlRequest; dispid 13;
    function Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; dispid 27;
    procedure Stop(Request: OleVariant); dispid 14;
    function Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; dispid 22;
    function Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; dispid 21;
    function Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; dispid 15;
    function GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; dispid 17;
    function MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; dispid 18;
    function Hide(Fast: OleVariant): IAgentCtlRequest; dispid 19;
    function Show(Fast: OleVariant): IAgentCtlRequest; dispid 20;
    procedure StopAll(Types: OleVariant); dispid 31;
    property MoveCause: Smallint readonly dispid 32;
    property VisibilityCause: Smallint readonly dispid 33;
    property HasOtherClients: WordBool readonly dispid 34;
    property SoundEffectsOn: WordBool dispid 35;
    property ExtraData: WideString readonly dispid 36;
  end;

// *********************************************************************//
// Interface: IAgentCtlBalloon
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlBalloon = interface(IDispatch)
    ['{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Enabled: WordBool; safecall;
    function Get_NumberOfLines: Integer; safecall;
    function Get_CharsPerLine: Integer; safecall;
    function Get_FontName: WideString; safecall;
    function Get_FontSize: Integer; safecall;
    function Get_FontBold: WordBool; safecall;
    function Get_FontItalic: WordBool; safecall;
    function Get_FontStrikethru: WordBool; safecall;
    function Get_FontUnderline: WordBool; safecall;
    function Get_ForeColor: Integer; safecall;
    function Get_BackColor: Integer; safecall;
    function Get_BorderColor: Integer; safecall;
    procedure Set_Visible(Visible: WordBool); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_FontName(const FontName: WideString); safecall;
    procedure Set_FontSize(FontSize: Integer); safecall;
    procedure Set_FontCharSet(FontCharSet: Smallint); safecall;
    function Get_FontCharSet: Smallint; safecall;
    property Enabled: WordBool read Get_Enabled;
    property NumberOfLines: Integer read Get_NumberOfLines;
    property CharsPerLine: Integer read Get_CharsPerLine;
    property FontName: WideString read Get_FontName write Set_FontName;
    property FontSize: Integer read Get_FontSize write Set_FontSize;
    property FontBold: WordBool read Get_FontBold;
    property FontItalic: WordBool read Get_FontItalic;
    property FontStrikethru: WordBool read Get_FontStrikethru;
    property FontUnderline: WordBool read Get_FontUnderline;
    property ForeColor: Integer read Get_ForeColor;
    property BackColor: Integer read Get_BackColor;
    property BorderColor: Integer read Get_BorderColor;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property FontCharSet: Smallint read Get_FontCharSet write Set_FontCharSet;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlBalloonDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlBalloonDisp = dispinterface
    ['{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}']
    property Enabled: WordBool readonly dispid 1;
    property NumberOfLines: Integer readonly dispid 2;
    property CharsPerLine: Integer readonly dispid 3;
    property FontName: WideString dispid 4;
    property FontSize: Integer dispid 5;
    property FontBold: WordBool readonly dispid 10;
    property FontItalic: WordBool readonly dispid 11;
    property FontStrikethru: WordBool readonly dispid 12;
    property FontUnderline: WordBool readonly dispid 13;
    property ForeColor: Integer readonly dispid 7;
    property BackColor: Integer readonly dispid 8;
    property BorderColor: Integer readonly dispid 9;
    property Visible: WordBool dispid 14;
    property FontCharSet: Smallint dispid 15;
  end;

// *********************************************************************//
// Interface: IAgentCtlBalloonEx
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {822DB1C0-8879-11D1-9EC6-00C04FD7081F}
// *********************************************************************//
  IAgentCtlBalloonEx = interface(IAgentCtlBalloon)
    ['{822DB1C0-8879-11D1-9EC6-00C04FD7081F}']
    procedure Set_Style(Style: Integer); safecall;
    function Get_Style: Integer; safecall;
    property Style: Integer read Get_Style write Set_Style;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlBalloonExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {822DB1C0-8879-11D1-9EC6-00C04FD7081F}
// *********************************************************************//
  IAgentCtlBalloonExDisp = dispinterface
    ['{822DB1C0-8879-11D1-9EC6-00C04FD7081F}']
    property Style: Integer dispid 16;
    property Enabled: WordBool readonly dispid 1;
    property NumberOfLines: Integer readonly dispid 2;
    property CharsPerLine: Integer readonly dispid 3;
    property FontName: WideString dispid 4;
    property FontSize: Integer dispid 5;
    property FontBold: WordBool readonly dispid 10;
    property FontItalic: WordBool readonly dispid 11;
    property FontStrikethru: WordBool readonly dispid 12;
    property FontUnderline: WordBool readonly dispid 13;
    property ForeColor: Integer readonly dispid 7;
    property BackColor: Integer readonly dispid 8;
    property BorderColor: Integer readonly dispid 9;
    property Visible: WordBool dispid 14;
    property FontCharSet: Smallint dispid 15;
  end;

// *********************************************************************//
// Interface: IAgentCtlCommands
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCommands = interface(IDispatch)
    ['{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Item(const Name: WideString): IAgentCtlCommand; safecall;
    function Command(const Name: WideString): IAgentCtlCommand; safecall;
    function Get_Count: Integer; safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Caption: WideString); safecall;
    function Get_Voice: WideString; safecall;
    procedure Set_Voice(const Voice: WideString); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Visible: WordBool); safecall;
    function Get_Enum: IUnknown; safecall;
    function Add(const Name: WideString; Caption: OleVariant; Voice: OleVariant; 
                 Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommandEx; safecall;
    function Insert(const Name: WideString; const RefName: WideString; Before: OleVariant; 
                    Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommandEx; safecall;
    procedure Remove(const Name: WideString); safecall;
    procedure RemoveAll; safecall;
    property Item[const Name: WideString]: IAgentCtlCommand read Get_Item; default;
    property Count: Integer read Get_Count;
    property Caption: WideString read Get_Caption write Set_Caption;
    property Voice: WideString read Get_Voice write Set_Voice;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Enum: IUnknown read Get_Enum;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCommandsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCommandsDisp = dispinterface
    ['{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}']
    property Item[const Name: WideString]: IAgentCtlCommand readonly dispid 0; default;
    function Command(const Name: WideString): IAgentCtlCommand; dispid 15;
    property Count: Integer readonly dispid 2;
    property Caption: WideString dispid 3;
    property Voice: WideString dispid 4;
    property Visible: WordBool dispid 5;
    property Enum: IUnknown readonly dispid -4;
    function Add(const Name: WideString; Caption: OleVariant; Voice: OleVariant; 
                 Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommandEx; dispid 10;
    function Insert(const Name: WideString; const RefName: WideString; Before: OleVariant; 
                    Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommandEx; dispid 11;
    procedure Remove(const Name: WideString); dispid 13;
    procedure RemoveAll; dispid 14;
  end;

// *********************************************************************//
// Interface: IAgentCtlCommandsEx
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6BA90C01-3910-11D1-ACB3-00C04FD97575}
// *********************************************************************//
  IAgentCtlCommandsEx = interface(IAgentCtlCommands)
    ['{6BA90C01-3910-11D1-ACB3-00C04FD97575}']
    procedure Set_DefaultCommand(const Name: WideString); safecall;
    function Get_DefaultCommand: WideString; safecall;
    procedure Set_HelpContextID(ID: Integer); safecall;
    function Get_HelpContextID: Integer; safecall;
    procedure Set_FontName(const FontName: WideString); safecall;
    function Get_FontName: WideString; safecall;
    function Get_FontSize: Integer; safecall;
    procedure Set_FontSize(FontSize: Integer); safecall;
    procedure Set_VoiceCaption(const VoiceCaption: WideString); safecall;
    function Get_VoiceCaption: WideString; safecall;
    procedure Set_GlobalVoiceCommandsEnabled(Enable: WordBool); safecall;
    function Get_GlobalVoiceCommandsEnabled: WordBool; safecall;
    property DefaultCommand: WideString read Get_DefaultCommand write Set_DefaultCommand;
    property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
    property FontName: WideString read Get_FontName write Set_FontName;
    property FontSize: Integer read Get_FontSize write Set_FontSize;
    property VoiceCaption: WideString read Get_VoiceCaption write Set_VoiceCaption;
    property GlobalVoiceCommandsEnabled: WordBool read Get_GlobalVoiceCommandsEnabled write Set_GlobalVoiceCommandsEnabled;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCommandsExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6BA90C01-3910-11D1-ACB3-00C04FD97575}
// *********************************************************************//
  IAgentCtlCommandsExDisp = dispinterface
    ['{6BA90C01-3910-11D1-ACB3-00C04FD97575}']
    property DefaultCommand: WideString dispid 16;
    property HelpContextID: Integer dispid 17;
    property FontName: WideString dispid 21;
    property FontSize: Integer dispid 23;
    property VoiceCaption: WideString dispid 22;
    property GlobalVoiceCommandsEnabled: WordBool dispid 24;
    property Item[const Name: WideString]: IAgentCtlCommand readonly dispid 0; default;
    function Command(const Name: WideString): IAgentCtlCommand; dispid 15;
    property Count: Integer readonly dispid 2;
    property Caption: WideString dispid 3;
    property Voice: WideString dispid 4;
    property Visible: WordBool dispid 5;
    property Enum: IUnknown readonly dispid -4;
    function Add(const Name: WideString; Caption: OleVariant; Voice: OleVariant; 
                 Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommandEx; dispid 10;
    function Insert(const Name: WideString; const RefName: WideString; Before: OleVariant; 
                    Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommandEx; dispid 11;
    procedure Remove(const Name: WideString); dispid 13;
    procedure RemoveAll; dispid 14;
  end;

// *********************************************************************//
// Interface: IAgentCtlCommand
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCommand = interface(IDispatch)
    ['{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Voice: WideString; safecall;
    procedure Set_Voice(const Voice: WideString); safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Caption: WideString); safecall;
    function Get_Enabled: WordBool; safecall;
    procedure Set_Enabled(Enabled: WordBool); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Visible: WordBool); safecall;
    function Get_Confidence: Integer; safecall;
    procedure Set_Confidence(Confidence: Integer); safecall;
    function Get_ConfidenceText: WideString; safecall;
    procedure Set_ConfidenceText(const Text: WideString); safecall;
    property Voice: WideString read Get_Voice write Set_Voice;
    property Caption: WideString read Get_Caption write Set_Caption;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Confidence: Integer read Get_Confidence write Set_Confidence;
    property ConfidenceText: WideString read Get_ConfidenceText write Set_ConfidenceText;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCommandDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCommandDisp = dispinterface
    ['{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}']
    property Voice: WideString dispid 1;
    property Caption: WideString dispid 2;
    property Enabled: WordBool dispid 5;
    property Visible: WordBool dispid 6;
    property Confidence: Integer dispid 3;
    property ConfidenceText: WideString dispid 4;
  end;

// *********************************************************************//
// Interface: IAgentCtlCommandEx
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B0913410-3B44-11D1-ACBA-00C04FD97575}
// *********************************************************************//
  IAgentCtlCommandEx = interface(IAgentCtlCommand)
    ['{B0913410-3B44-11D1-ACBA-00C04FD97575}']
    procedure Set_HelpContextID(ID: Integer); safecall;
    function Get_HelpContextID: Integer; safecall;
    procedure Set_VoiceCaption(const VoiceCaption: WideString); safecall;
    function Get_VoiceCaption: WideString; safecall;
    property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
    property VoiceCaption: WideString read Get_VoiceCaption write Set_VoiceCaption;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCommandExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B0913410-3B44-11D1-ACBA-00C04FD97575}
// *********************************************************************//
  IAgentCtlCommandExDisp = dispinterface
    ['{B0913410-3B44-11D1-ACBA-00C04FD97575}']
    property HelpContextID: Integer dispid 7;
    property VoiceCaption: WideString dispid 8;
    property Voice: WideString dispid 1;
    property Caption: WideString dispid 2;
    property Enabled: WordBool dispid 5;
    property Visible: WordBool dispid 6;
    property Confidence: Integer dispid 3;
    property ConfidenceText: WideString dispid 4;
  end;

// *********************************************************************//
// Interface: IAgentCtlRequest
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1DAB85C3-803A-11D0-AC63-00C04FD97575}
// *********************************************************************//
  IAgentCtlRequest = interface(IDispatch)
    ['{1DAB85C3-803A-11D0-AC63-00C04FD97575}']
    function Get_ID: Integer; safecall;
    function Get_Status: Integer; safecall;
    function Get_Description: WideString; safecall;
    function Get_Number: Integer; safecall;
    property ID: Integer read Get_ID;
    property Status: Integer read Get_Status;
    property Description: WideString read Get_Description;
    property Number: Integer read Get_Number;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlRequestDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1DAB85C3-803A-11D0-AC63-00C04FD97575}
// *********************************************************************//
  IAgentCtlRequestDisp = dispinterface
    ['{1DAB85C3-803A-11D0-AC63-00C04FD97575}']
    property ID: Integer readonly dispid 0;
    property Status: Integer readonly dispid 1;
    property Description: WideString readonly dispid 2;
    property Number: Integer readonly dispid 3;
  end;

// *********************************************************************//
// Interface: IAgentCtlAnimationNames
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8B77181C-D3EF-11D1-8500-00C04FA34A14}
// *********************************************************************//
  IAgentCtlAnimationNames = interface(IDispatch)
    ['{8B77181C-D3EF-11D1-8500-00C04FA34A14}']
    function Get_Enum: IUnknown; safecall;
    property Enum: IUnknown read Get_Enum;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlAnimationNamesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8B77181C-D3EF-11D1-8500-00C04FA34A14}
// *********************************************************************//
  IAgentCtlAnimationNamesDisp = dispinterface
    ['{8B77181C-D3EF-11D1-8500-00C04FA34A14}']
    property Enum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: IAgentCtlAudioObject
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlAudioObject = interface(IDispatch)
    ['{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Enabled: WordBool; safecall;
    function Get_SoundEffects: WordBool; safecall;
    property Enabled: WordBool read Get_Enabled;
    property SoundEffects: WordBool read Get_SoundEffects;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlAudioObjectDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlAudioObjectDisp = dispinterface
    ['{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}']
    property Enabled: WordBool readonly dispid 1;
    property SoundEffects: WordBool readonly dispid 2;
  end;

// *********************************************************************//
// Interface: IAgentCtlAudioObjectEx
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlAudioObjectEx = interface(IAgentCtlAudioObject)
    ['{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Status: Smallint; safecall;
    property Status: Smallint read Get_Status;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlAudioObjectExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlAudioObjectExDisp = dispinterface
    ['{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}']
    property Status: Smallint readonly dispid 3;
    property Enabled: WordBool readonly dispid 1;
    property SoundEffects: WordBool readonly dispid 2;
  end;

// *********************************************************************//
// Interface: IAgentCtlSpeechInput
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlSpeechInput = interface(IDispatch)
    ['{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Enabled: WordBool; safecall;
    function Get_Language: WideString; safecall;
    function Get_HotKey: WideString; safecall;
    function Get_Installed: WordBool; safecall;
    function Get_Engine: WideString; safecall;
    procedure Set_Engine(const Engine: WideString); safecall;
    function Get_ListeningTip: WordBool; safecall;
    property Enabled: WordBool read Get_Enabled;
    property Language: WideString read Get_Language;
    property HotKey: WideString read Get_HotKey;
    property Installed: WordBool read Get_Installed;
    property Engine: WideString read Get_Engine write Set_Engine;
    property ListeningTip: WordBool read Get_ListeningTip;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlSpeechInputDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlSpeechInputDisp = dispinterface
    ['{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}']
    property Enabled: WordBool readonly dispid 1;
    property Language: WideString readonly dispid 2;
    property HotKey: WideString readonly dispid 3;
    property Installed: WordBool readonly dispid 4;
    property Engine: WideString dispid 5;
    property ListeningTip: WordBool readonly dispid 6;
  end;

// *********************************************************************//
// Interface: IAgentCtlPropertySheet
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlPropertySheet = interface(IDispatch)
    ['{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Left: Smallint; safecall;
    function Get_Top: Smallint; safecall;
    function Get_Height: Smallint; safecall;
    function Get_Width: Smallint; safecall;
    procedure Set_Visible(Visible: WordBool); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Page(const Page: WideString); safecall;
    function Get_Page: WideString; safecall;
    property Left: Smallint read Get_Left;
    property Top: Smallint read Get_Top;
    property Height: Smallint read Get_Height;
    property Width: Smallint read Get_Width;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Page: WideString read Get_Page write Set_Page;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlPropertySheetDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlPropertySheetDisp = dispinterface
    ['{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}']
    property Left: Smallint readonly dispid 1;
    property Top: Smallint readonly dispid 2;
    property Height: Smallint readonly dispid 3;
    property Width: Smallint readonly dispid 4;
    property Visible: WordBool dispid 6;
    property Page: WideString dispid 5;
  end;

// *********************************************************************//
// Interface: IAgentCtlUserInput
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C4ABF875-8100-11D0-AC63-00C04FD97575}
// *********************************************************************//
  IAgentCtlUserInput = interface(IDispatch)
    ['{C4ABF875-8100-11D0-AC63-00C04FD97575}']
    function Get_Count: Smallint; safecall;
    function Get_Name: WideString; safecall;
    function Get_CharacterID: WideString; safecall;
    function Get_Confidence: Integer; safecall;
    function Get_Voice: WideString; safecall;
    function Get_Alt1Name: WideString; safecall;
    function Get_Alt1Confidence: Integer; safecall;
    function Get_Alt1Voice: WideString; safecall;
    function Get_Alt2Name: WideString; safecall;
    function Get_Alt2Confidence: Integer; safecall;
    function Get_Alt2Voice: WideString; safecall;
    property Count: Smallint read Get_Count;
    property Name: WideString read Get_Name;
    property CharacterID: WideString read Get_CharacterID;
    property Confidence: Integer read Get_Confidence;
    property Voice: WideString read Get_Voice;
    property Alt1Name: WideString read Get_Alt1Name;
    property Alt1Confidence: Integer read Get_Alt1Confidence;
    property Alt1Voice: WideString read Get_Alt1Voice;
    property Alt2Name: WideString read Get_Alt2Name;
    property Alt2Confidence: Integer read Get_Alt2Confidence;
    property Alt2Voice: WideString read Get_Alt2Voice;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlUserInputDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C4ABF875-8100-11D0-AC63-00C04FD97575}
// *********************************************************************//
  IAgentCtlUserInputDisp = dispinterface
    ['{C4ABF875-8100-11D0-AC63-00C04FD97575}']
    property Count: Smallint readonly dispid 1610743808;
    property Name: WideString readonly dispid 1610743809;
    property CharacterID: WideString readonly dispid 1610743810;
    property Confidence: Integer readonly dispid 1610743811;
    property Voice: WideString readonly dispid 1610743812;
    property Alt1Name: WideString readonly dispid 1610743813;
    property Alt1Confidence: Integer readonly dispid 1610743814;
    property Alt1Voice: WideString readonly dispid 1610743815;
    property Alt2Name: WideString readonly dispid 1610743816;
    property Alt2Confidence: Integer readonly dispid 1610743817;
    property Alt2Voice: WideString readonly dispid 1610743818;
  end;

// *********************************************************************//
// Interface: IAgentCtlCommandsWindow
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6D0ECB27-9968-11D0-AC6E-00C04FD97575}
// *********************************************************************//
  IAgentCtlCommandsWindow = interface(IDispatch)
    ['{6D0ECB27-9968-11D0-AC6E-00C04FD97575}']
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Visible: WordBool); safecall;
    function Get_Left: Smallint; safecall;
    function Get_Top: Smallint; safecall;
    function Get_Height: Smallint; safecall;
    function Get_Width: Smallint; safecall;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Left: Smallint read Get_Left;
    property Top: Smallint read Get_Top;
    property Height: Smallint read Get_Height;
    property Width: Smallint read Get_Width;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCommandsWindowDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6D0ECB27-9968-11D0-AC6E-00C04FD97575}
// *********************************************************************//
  IAgentCtlCommandsWindowDisp = dispinterface
    ['{6D0ECB27-9968-11D0-AC6E-00C04FD97575}']
    property Visible: WordBool dispid 5;
    property Left: Smallint readonly dispid 6;
    property Top: Smallint readonly dispid 7;
    property Height: Smallint readonly dispid 8;
    property Width: Smallint readonly dispid 9;
  end;

// *********************************************************************//
// Interface: IAgentCtl
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtl = interface(IDispatch)
    ['{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}']
    function Get_Characters: IAgentCtlCharacters; safecall;
    function Get_AudioOutput: IAgentCtlAudioObjectEx; safecall;
    function Get_SpeechInput: IAgentCtlSpeechInput; safecall;
    function Get_PropertySheet: IAgentCtlPropertySheet; safecall;
    function Get_CommandsWindow: IAgentCtlCommandsWindow; safecall;
    function Get_Connected: WordBool; safecall;
    procedure Set_Connected(Connected: WordBool); safecall;
    function Get_Suspended: WordBool; safecall;
    property Characters: IAgentCtlCharacters read Get_Characters;
    property AudioOutput: IAgentCtlAudioObjectEx read Get_AudioOutput;
    property SpeechInput: IAgentCtlSpeechInput read Get_SpeechInput;
    property PropertySheet: IAgentCtlPropertySheet read Get_PropertySheet;
    property CommandsWindow: IAgentCtlCommandsWindow read Get_CommandsWindow;
    property Connected: WordBool read Get_Connected write Set_Connected;
    property Suspended: WordBool read Get_Suspended;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlDisp = dispinterface
    ['{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}']
    property Characters: IAgentCtlCharacters readonly dispid 3;
    property AudioOutput: IAgentCtlAudioObjectEx readonly dispid 4;
    property SpeechInput: IAgentCtlSpeechInput readonly dispid 5;
    property PropertySheet: IAgentCtlPropertySheet readonly dispid 8;
    property CommandsWindow: IAgentCtlCommandsWindow readonly dispid 12;
    property Connected: WordBool dispid 9;
    property Suspended: WordBool readonly dispid 14;
  end;

// *********************************************************************//
// Interface: IAgentCtlEx
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8563FF20-8ECC-11D1-B9B4-00C04FD97575}
// *********************************************************************//
  IAgentCtlEx = interface(IAgentCtl)
    ['{8563FF20-8ECC-11D1-B9B4-00C04FD97575}']
    procedure ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); safecall;
    function Get_RaiseRequestErrors: WordBool; safecall;
    procedure Set_RaiseRequestErrors(RaiseErrors: WordBool); safecall;
    property RaiseRequestErrors: WordBool read Get_RaiseRequestErrors write Set_RaiseRequestErrors;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlExDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8563FF20-8ECC-11D1-B9B4-00C04FD97575}
// *********************************************************************//
  IAgentCtlExDisp = dispinterface
    ['{8563FF20-8ECC-11D1-B9B4-00C04FD97575}']
    procedure ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); dispid 20;
    property RaiseRequestErrors: WordBool dispid 21;
    property Characters: IAgentCtlCharacters readonly dispid 3;
    property AudioOutput: IAgentCtlAudioObjectEx readonly dispid 4;
    property SpeechInput: IAgentCtlSpeechInput readonly dispid 5;
    property PropertySheet: IAgentCtlPropertySheet readonly dispid 8;
    property CommandsWindow: IAgentCtlCommandsWindow readonly dispid 12;
    property Connected: WordBool dispid 9;
    property Suspended: WordBool readonly dispid 14;
  end;

// *********************************************************************//
// DispIntf:  _AgentEvents
// Flags:     (4096) Dispatchable
// GUID:      {F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  _AgentEvents = dispinterface
    ['{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}']
    procedure ActivateInput(const CharacterID: WideString); dispid 1;
    procedure DeactivateInput(const CharacterID: WideString); dispid 3;
    procedure Click(const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; 
                    y: Smallint); dispid 2;
    procedure DblClick(const CharacterID: WideString; Button: Smallint; Shift: Smallint; 
                       x: Smallint; y: Smallint); dispid 4;
    procedure DragStart(const CharacterID: WideString; Button: Smallint; Shift: Smallint; 
                        x: Smallint; y: Smallint); dispid 5;
    procedure DragComplete(const CharacterID: WideString; Button: Smallint; Shift: Smallint; 
                           x: Smallint; y: Smallint); dispid 6;
    procedure Show(const CharacterID: WideString; Cause: Smallint); dispid 15;
    procedure Hide(const CharacterID: WideString; Cause: Smallint); dispid 7;
    procedure RequestStart(const Request: IDispatch); dispid 9;
    procedure RequestComplete(const Request: IDispatch); dispid 11;
    procedure Restart; dispid 21;
    procedure Shutdown; dispid 12;
    procedure Bookmark(BookmarkID: Integer); dispid 16;
    procedure Command(const UserInput: IDispatch); dispid 17;
    procedure IdleStart(const CharacterID: WideString); dispid 19;
    procedure IdleComplete(const CharacterID: WideString); dispid 20;
    procedure Move(const CharacterID: WideString; x: Smallint; y: Smallint; Cause: Smallint); dispid 22;
    procedure Size(const CharacterID: WideString; Width: Smallint; Height: Smallint); dispid 23;
    procedure BalloonShow(const CharacterID: WideString); dispid 24;
    procedure BalloonHide(const CharacterID: WideString); dispid 25;
    procedure HelpComplete(const CharacterID: WideString; const Name: WideString; Cause: Smallint); dispid 26;
    procedure ListenStart(const CharacterID: WideString); dispid 27;
    procedure ListenComplete(const CharacterID: WideString; Cause: Smallint); dispid 28;
    procedure DefaultCharacterChange(const GUID: WideString); dispid 30;
    procedure AgentPropertyChange; dispid 31;
    procedure ActiveClientChange(const CharacterID: WideString; Active: WordBool); dispid 32;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TAgent
// Help String      : Microsoft Agent Control 2.0
// Default Interface: IAgentCtlEx
// Def. Intf. DISP? : No
// Event   Interface: _AgentEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
  TAgentActivateInput = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentDeactivateInput = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentClick = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; 
                                           Shift: Smallint; x: Smallint; y: Smallint) of object;
  TAgentDblClick = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; 
                                              Shift: Smallint; x: Smallint; y: Smallint) of object;
  TAgentDragStart = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; 
                                               Shift: Smallint; x: Smallint; y: Smallint) of object;
  TAgentDragComplete = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; 
                                                  Shift: Smallint; x: Smallint; y: Smallint) of object;
  TAgentShow = procedure(Sender: TObject; const CharacterID: WideString; Cause: Smallint) of object;
  TAgentHide = procedure(Sender: TObject; const CharacterID: WideString; Cause: Smallint) of object;
  TAgentRequestStart = procedure(Sender: TObject; const Request: IDispatch) of object;
  TAgentRequestComplete = procedure(Sender: TObject; const Request: IDispatch) of object;
  TAgentBookmark = procedure(Sender: TObject; BookmarkID: Integer) of object;
  TAgentCommand = procedure(Sender: TObject; const UserInput: IDispatch) of object;
  TAgentIdleStart = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentIdleComplete = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentMove = procedure(Sender: TObject; const CharacterID: WideString; x: Smallint; y: Smallint; 
                                          Cause: Smallint) of object;
  TAgentSize = procedure(Sender: TObject; const CharacterID: WideString; Width: Smallint; 
                                          Height: Smallint) of object;
  TAgentBalloonShow = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentBalloonHide = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentHelpComplete = procedure(Sender: TObject; const CharacterID: WideString; 
                                                  const Name: WideString; Cause: Smallint) of object;
  TAgentListenStart = procedure(Sender: TObject; const CharacterID: WideString) of object;
  TAgentListenComplete = procedure(Sender: TObject; const CharacterID: WideString; Cause: Smallint) of object;
  TAgentDefaultCharacterChange = procedure(Sender: TObject; const GUID: WideString) of object;
  TAgentActiveClientChange = procedure(Sender: TObject; const CharacterID: WideString; 
                                                        Active: WordBool) of object;

  TAgent = class(TOleControl)
  private
    FOnActivateInput: TAgentActivateInput;
    FOnDeactivateInput: TAgentDeactivateInput;
    FOnClick: TAgentClick;
    FOnDblClick: TAgentDblClick;
    FOnDragStart: TAgentDragStart;
    FOnDragComplete: TAgentDragComplete;
    FOnShow: TAgentShow;
    FOnHide: TAgentHide;
    FOnRequestStart: TAgentRequestStart;
    FOnRequestComplete: TAgentRequestComplete;
    FOnRestart: TNotifyEvent;
    FOnShutdown: TNotifyEvent;
    FOnBookmark: TAgentBookmark;
    FOnCommand: TAgentCommand;
    FOnIdleStart: TAgentIdleStart;
    FOnIdleComplete: TAgentIdleComplete;
    FOnMove: TAgentMove;
    FOnSize: TAgentSize;
    FOnBalloonShow: TAgentBalloonShow;
    FOnBalloonHide: TAgentBalloonHide;
    FOnHelpComplete: TAgentHelpComplete;
    FOnListenStart: TAgentListenStart;
    FOnListenComplete: TAgentListenComplete;
    FOnDefaultCharacterChange: TAgentDefaultCharacterChange;
    FOnAgentPropertyChange: TNotifyEvent;
    FOnActiveClientChange: TAgentActiveClientChange;
    FIntf: IAgentCtlEx;
    function  GetControlInterface: IAgentCtlEx;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function Get_Characters: IAgentCtlCharacters;
    function Get_AudioOutput: IAgentCtlAudioObjectEx;
    function Get_SpeechInput: IAgentCtlSpeechInput;
    function Get_PropertySheet: IAgentCtlPropertySheet;
    function Get_CommandsWindow: IAgentCtlCommandsWindow;
  public
    procedure ShowDefaultCharacterProperties; overload;
    procedure ShowDefaultCharacterProperties(x: OleVariant); overload;
    procedure ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); overload;
    property  ControlInterface: IAgentCtlEx read GetControlInterface;
    property  DefaultInterface: IAgentCtlEx read GetControlInterface;
    property Characters: IAgentCtlCharacters read Get_Characters;
    property AudioOutput: IAgentCtlAudioObjectEx read Get_AudioOutput;
    property SpeechInput: IAgentCtlSpeechInput read Get_SpeechInput;
    property PropertySheet: IAgentCtlPropertySheet read Get_PropertySheet;
    property CommandsWindow: IAgentCtlCommandsWindow read Get_CommandsWindow;
    property Suspended: WordBool index 14 read GetWordBoolProp;
  published
    property Connected: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
    property RaiseRequestErrors: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
    property OnActivateInput: TAgentActivateInput read FOnActivateInput write FOnActivateInput;
    property OnDeactivateInput: TAgentDeactivateInput read FOnDeactivateInput write FOnDeactivateInput;
    property OnClick: TAgentClick read FOnClick write FOnClick;
    property OnDblClick: TAgentDblClick read FOnDblClick write FOnDblClick;
    property OnDragStart: TAgentDragStart read FOnDragStart write FOnDragStart;
    property OnDragComplete: TAgentDragComplete read FOnDragComplete write FOnDragComplete;
    property OnShow: TAgentShow read FOnShow write FOnShow;
    property OnHide: TAgentHide read FOnHide write FOnHide;
    property OnRequestStart: TAgentRequestStart read FOnRequestStart write FOnRequestStart;
    property OnRequestComplete: TAgentRequestComplete read FOnRequestComplete write FOnRequestComplete;
    property OnRestart: TNotifyEvent read FOnRestart write FOnRestart;
    property OnShutdown: TNotifyEvent read FOnShutdown write FOnShutdown;
    property OnBookmark: TAgentBookmark read FOnBookmark write FOnBookmark;
    property OnCommand: TAgentCommand read FOnCommand write FOnCommand;
    property OnIdleStart: TAgentIdleStart read FOnIdleStart write FOnIdleStart;
    property OnIdleComplete: TAgentIdleComplete read FOnIdleComplete write FOnIdleComplete;
    property OnMove: TAgentMove read FOnMove write FOnMove;
    property OnSize: TAgentSize read FOnSize write FOnSize;
    property OnBalloonShow: TAgentBalloonShow read FOnBalloonShow write FOnBalloonShow;
    property OnBalloonHide: TAgentBalloonHide read FOnBalloonHide write FOnBalloonHide;
    property OnHelpComplete: TAgentHelpComplete read FOnHelpComplete write FOnHelpComplete;
    property OnListenStart: TAgentListenStart read FOnListenStart write FOnListenStart;
    property OnListenComplete: TAgentListenComplete read FOnListenComplete write FOnListenComplete;
    property OnDefaultCharacterChange: TAgentDefaultCharacterChange read FOnDefaultCharacterChange write FOnDefaultCharacterChange;
    property OnAgentPropertyChange: TNotifyEvent read FOnAgentPropertyChange write FOnAgentPropertyChange;
    property OnActiveClientChange: TAgentActiveClientChange read FOnActiveClientChange write FOnActiveClientChange;
  end;

procedure Register;

resourcestring
  dtlServerPage = 'ChTTS';

implementation

uses ComObj;

procedure TAgent.InitControlData;
const
  CEventDispIDs: array [0..25] of DWORD = (
    $00000001, $00000003, $00000002, $00000004, $00000005, $00000006,
    $0000000F, $00000007, $00000009, $0000000B, $00000015, $0000000C,
    $00000010, $00000011, $00000013, $00000014, $00000016, $00000017,
    $00000018, $00000019, $0000001A, $0000001B, $0000001C, $0000001E,
    $0000001F, $00000020);
  CControlData: TControlData2 = (
    ClassID: '{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}';
    EventIID: '{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}';
    EventCount: 26;
    EventDispIDs: @CEventDispIDs;
    LicenseKey: nil (*HR:$80004002*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
  TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivateInput) - Cardinal(Self);
end;

procedure TAgent.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as IAgentCtlEx;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function TAgent.GetControlInterface: IAgentCtlEx;
begin
  CreateControl;
  Result := FIntf;
end;

function TAgent.Get_Characters: IAgentCtlCharacters;
begin
    Result := DefaultInterface.Characters;
end;

function TAgent.Get_AudioOutput: IAgentCtlAudioObjectEx;
begin
    Result := DefaultInterface.AudioOutput;
end;

function TAgent.Get_SpeechInput: IAgentCtlSpeechInput;
begin
    Result := DefaultInterface.SpeechInput;
end;

function TAgent.Get_PropertySheet: IAgentCtlPropertySheet;
begin
    Result := DefaultInterface.PropertySheet;
end;

function TAgent.Get_CommandsWindow: IAgentCtlCommandsWindow;
begin
    Result := DefaultInterface.CommandsWindow;
end;

procedure TAgent.ShowDefaultCharacterProperties;
begin
  DefaultInterface.ShowDefaultCharacterProperties(EmptyParam, EmptyParam);
end;

procedure TAgent.ShowDefaultCharacterProperties(x: OleVariant);
begin
  DefaultInterface.ShowDefaultCharacterProperties(x, EmptyParam);
end;

procedure TAgent.ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant);
begin
  DefaultInterface.ShowDefaultCharacterProperties(x, y);
end;

procedure Register;
begin
  RegisterComponents('ChTTS',[TAgent]);
end;

end.
chwg 4746 2004/5/9 14:59:27
调试了一上午没有调试通
zhmq 4739 2004/5/9 13:41:51
好东西
看看先
第一页 上一页 下一页 最后页 有 11 条纪录 共1页 1 - 11
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表