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
好东西 看看先