⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 agentserverobjects_tlb.pas

📁 电脑编程技巧和源码。很不错的。
💻 PAS
📖 第 1 页 / 共 5 页
字号:
unit AgentServerObjects_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.88  $
// File generated on 1999-11-30 13:15:53 from Type Library described below.

// *************************************************************************//
// 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.                                                          
// ************************************************************************ //
// Type Lib: C:\WINDOWS\MSAGENT\AGENTSVR.EXE (1)
// IID\LCID: {A7B93C73-7B81-11D0-AC5F-00C04FD97575}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\STDOLE2.TLB)
//   (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\STDVCL40.DLL)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
interface

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

// *********************************************************************//
// 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
  AgentServerObjectsMajorVersion = 2;
  AgentServerObjectsMinorVersion = 0;

  LIBID_AgentServerObjects: TGUID = '{A7B93C73-7B81-11D0-AC5F-00C04FD97575}';

  IID_IAgent: TGUID = '{A7B93C91-7B81-11D0-AC5F-00C04FD97575}';
  CLASS_AgentServer: TGUID = '{D45FD2FC-5C6E-11D1-9EC1-00C04FD7081F}';
  IID_IAgentUserInput: TGUID = '{A7B93C80-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentCommand: TGUID = '{A7B93C83-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentCommandEx: TGUID = '{B0913412-3B44-11D1-ACBA-00C04FD97575}';
  IID_IAgentCommands: TGUID = '{A7B93C85-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentCommandsEx: TGUID = '{6BA90C00-3910-11D1-ACB3-00C04FD97575}';
  IID_IAgentSpeechInputProperties: TGUID = '{A7B93C87-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentAudioOutputProperties: TGUID = '{A7B93C89-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentAudioOutputPropertiesEx: TGUID = '{A7B93CA0-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentPropertySheet: TGUID = '{A7B93C8B-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentBalloon: TGUID = '{A7B93C8D-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentBalloonEx: TGUID = '{D7A6D440-8872-11D1-9EC6-00C04FD7081F}';
  IID_IAgentCharacter: TGUID = '{A7B93C8F-7B81-11D0-AC5F-00C04FD97575}';
  IID_IAgentCharacterEx: TGUID = '{98BBE491-2EED-11D1-ACAC-00C04FD97575}';
  IID_IAgentEx: TGUID = '{48D12BA0-5B77-11D1-9EC1-00C04FD7081F}';
  IID_IAgentNotifySink: TGUID = '{00D18159-8466-11D0-AC63-00C04FD97575}';
  IID_IAgentNotifySinkEx: TGUID = '{08C75162-3C9C-11D1-91FE-00C04FD701A5}';
  IID_IAgentCommandWindow: TGUID = '{6D0ECB23-9968-11D0-AC6E-00C04FD97575}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IAgent = interface;
  IAgentDisp = dispinterface;
  IAgentUserInput = interface;
  IAgentUserInputDisp = dispinterface;
  IAgentCommand = interface;
  IAgentCommandDisp = dispinterface;
  IAgentCommandEx = interface;
  IAgentCommandExDisp = dispinterface;
  IAgentCommands = interface;
  IAgentCommandsDisp = dispinterface;
  IAgentCommandsEx = interface;
  IAgentCommandsExDisp = dispinterface;
  IAgentSpeechInputProperties = interface;
  IAgentSpeechInputPropertiesDisp = dispinterface;
  IAgentAudioOutputProperties = interface;
  IAgentAudioOutputPropertiesDisp = dispinterface;
  IAgentAudioOutputPropertiesEx = interface;
  IAgentAudioOutputPropertiesExDisp = dispinterface;
  IAgentPropertySheet = interface;
  IAgentPropertySheetDisp = dispinterface;
  IAgentBalloon = interface;
  IAgentBalloonDisp = dispinterface;
  IAgentBalloonEx = interface;
  IAgentBalloonExDisp = dispinterface;
  IAgentCharacter = interface;
  IAgentCharacterDisp = dispinterface;
  IAgentCharacterEx = interface;
  IAgentCharacterExDisp = dispinterface;
  IAgentEx = interface;
  IAgentExDisp = dispinterface;
  IAgentNotifySink = interface;
  IAgentNotifySinkDisp = dispinterface;
  IAgentNotifySinkEx = interface;
  IAgentNotifySinkExDisp = dispinterface;
  IAgentCommandWindow = interface;
  IAgentCommandWindowDisp = dispinterface;

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


// *********************************************************************//
// Interface: IAgent
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A7B93C91-7B81-11D0-AC5F-00C04FD97575}
// *********************************************************************//
  IAgent = interface(IDispatch)
    ['{A7B93C91-7B81-11D0-AC5F-00C04FD97575}']
    procedure Load(vLoadKey: OleVariant; out pdwCharID: Integer; out pdwReqID: Integer); safecall;
    procedure Unload(dwCharID: Integer); safecall;
    procedure Register(const punkNotifySink: IUnknown; out pdwSinkID: Integer); safecall;
    procedure Unregister(dwSinkID: Integer); safecall;
    procedure GetCharacter(dwCharID: Integer; out ppunkCharacter: IDispatch); safecall;
    procedure GetSuspended(out pbSuspended: Integer); safecall;
  end;

// *********************************************************************//
// DispIntf:  IAgentDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A7B93C91-7B81-11D0-AC5F-00C04FD97575}
// *********************************************************************//
  IAgentDisp = dispinterface
    ['{A7B93C91-7B81-11D0-AC5F-00C04FD97575}']
    procedure Load(vLoadKey: OleVariant; out pdwCharID: Integer; out pdwReqID: Integer); dispid 1610743808;
    procedure Unload(dwCharID: Integer); dispid 1610743809;
    procedure Register(const punkNotifySink: IUnknown; out pdwSinkID: Integer); dispid 1610743810;
    procedure Unregister(dwSinkID: Integer); dispid 1610743811;
    procedure GetCharacter(dwCharID: Integer; out ppunkCharacter: IDispatch); dispid 1610743812;
    procedure GetSuspended(out pbSuspended: Integer); dispid 1610743813;
  end;

// *********************************************************************//
// Interface: IAgentUserInput
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A7B93C80-7B81-11D0-AC5F-00C04FD97575}
// *********************************************************************//
  IAgentUserInput = interface(IDispatch)
    ['{A7B93C80-7B81-11D0-AC5F-00C04FD97575}']
    procedure GetCount(out pdwCount: Integer); safecall;
    procedure GetItemID(dwItemIndex: Integer; out pdwCommandID: Integer); safecall;
    procedure GetItemConfidence(dwItemIndex: Integer; out plConfidence: Integer); safecall;
    procedure GetItemText(dwItemIndex: Integer; out pbszText: WideString); safecall;
    procedure GetAllItemData(out pdwItemIndices: OleVariant; out plConfidences: OleVariant; 
                             out pbszText: OleVariant); safecall;
  end;

// *********************************************************************//
// DispIntf:  IAgentUserInputDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A7B93C80-7B81-11D0-AC5F-00C04FD97575}
// *********************************************************************//
  IAgentUserInputDisp = dispinterface
    ['{A7B93C80-7B81-11D0-AC5F-00C04FD97575}']
    procedure GetCount(out pdwCount: Integer); dispid 1610743808;
    procedure GetItemID(dwItemIndex: Integer; out pdwCommandID: Integer); dispid 1610743809;
    procedure GetItemConfidence(dwItemIndex: Integer; out plConfidence: Integer); dispid 1610743810;
    procedure GetItemText(dwItemIndex: Integer; out pbszText: WideString); dispid 1610743811;
    procedure GetAllItemData(out pdwItemIndices: OleVariant; out plConfidences: OleVariant; 
                             out pbszText: OleVariant); dispid 1610743812;
  end;

// *********************************************************************//
// Interface: IAgentCommand
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A7B93C83-7B81-11D0-AC5F-00C04FD97575}
// *********************************************************************//
  IAgentCommand = interface(IDispatch)
    ['{A7B93C83-7B81-11D0-AC5F-00C04FD97575}']
    procedure SetCaption(const bszCaption: WideString); safecall;
    procedure GetCaption(out pbszCaption: WideString); safecall;
    procedure SetVoice(const bszVoice: WideString); safecall;
    procedure GetVoice(out pbszVoice: WideString); safecall;
    procedure SetEnabled(bEnabled: Integer); safecall;
    procedure GetEnabled(out pbEnabled: Integer); safecall;
    procedure SetVisible(bVisible: Integer); safecall;
    procedure GetVisible(out pbVisible: Integer); safecall;
    procedure SetConfidenceThreshold(lThreshold: Integer); safecall;
    procedure GetConfidenceThreshold(out plThreshold: Integer); safecall;
    procedure SetConfidenceText(const bszTipText: WideString); safecall;
    procedure GetConfidenceText(out pbszTipText: WideString); safecall;
    procedure GetID(out pdwID: Integer); safecall;
  end;

// *********************************************************************//
// DispIntf:  IAgentCommandDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A7B93C83-7B81-11D0-AC5F-00C04FD97575}
// *********************************************************************//
  IAgentCommandDisp = dispinterface
    ['{A7B93C83-7B81-11D0-AC5F-00C04FD97575}']
    procedure SetCaption(const bszCaption: WideString); dispid 1610743808;
    procedure GetCaption(out pbszCaption: WideString); dispid 1610743809;
    procedure SetVoice(const bszVoice: WideString); dispid 1610743810;
    procedure GetVoice(out pbszVoice: WideString); dispid 1610743811;
    procedure SetEnabled(bEnabled: Integer); dispid 1610743812;
    procedure GetEnabled(out pbEnabled: Integer); dispid 1610743813;
    procedure SetVisible(bVisible: Integer); dispid 1610743814;
    procedure GetVisible(out pbVisible: Integer); dispid 1610743815;
    procedure SetConfidenceThreshold(lThreshold: Integer); dispid 1610743816;
    procedure GetConfidenceThreshold(out plThreshold: Integer); dispid 1610743817;
    procedure SetConfidenceText(const bszTipText: WideString); dispid 1610743818;
    procedure GetConfidenceText(out pbszTipText: WideString); dispid 1610743819;
    procedure GetID(out pdwID: Integer); dispid 1610743820;
  end;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -