Module

VERGENCECONTEXTORLib_TLB

Path

C:\CPRS\CPRS30\VERGENCECONTEXTORLib_TLB.pas

Last Modified

7/15/2014 3:26:44 PM

Comments

************************************************************************ //
 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.                                         
 ************************************************************************ //

Classes

Name Comments
CoContextItem
*********************************************************************//
 The Class CoContextItem provides a Create and CreateRemote method to          
 create instances of the default interface IContextItem exposed by              
 the CoClass ContextItem. The functions are intended to be used by             
 clients wishing to automate the CoClass objects exposed by the         
 server of this typelibrary.                                            
 *********************************************************************//
CoContextItemCollection
*********************************************************************//
 The Class CoContextItemCollection provides a Create and CreateRemote method to          
 create instances of the default interface IContextItemCollection exposed by              
 the CoClass ContextItemCollection. The functions are intended to be used by             
 clients wishing to automate the CoClass objects exposed by the         
 server of this typelibrary.                                            
 *********************************************************************//
CoContextor
*********************************************************************//
 The Class CoContextor provides a Create and CreateRemote method to          
 create instances of the default interface IContextor exposed by              
 the CoClass Contextor. The functions are intended to be used by             
 clients wishing to automate the CoClass objects exposed by the         
 server of this typelibrary.                                            
 *********************************************************************//
CoContextorParticipant
*********************************************************************//
 The Class CoContextorParticipant provides a Create and CreateRemote method to          
 create instances of the default interface IContextParticipant exposed by              
 the CoClass ContextorParticipant. The functions are intended to be used by             
 clients wishing to automate the CoClass objects exposed by the         
 server of this typelibrary.                                            
 *********************************************************************//
CoResponseDialog
*********************************************************************//
 The Class CoResponseDialog provides a Create and CreateRemote method to          
 create instances of the default interface IResponseDialog exposed by              
 the CoClass ResponseDialog. The functions are intended to be used by             
 clients wishing to automate the CoClass objects exposed by the         
 server of this typelibrary.                                            
 *********************************************************************//
TContextItem -
TContextItemCollection -
TContextor -
TContextorControl -
TContextorParticipant -
TResponseDialog -

Procedures

Name Owner Declaration Scope Comments
Add TContextItemCollection procedure Add(const aContextItem: IContextItem); Public -
Add procedure Add(const aContextItem: IContextItem); safecall; Interfaced -
Add procedure Add(const aContextItem: IContextItem); dispid 2; Interfaced -
CancelContextChange procedure CancelContextChange; safecall; Interfaced -
CancelContextChange procedure CancelContextChange; dispid 4; Interfaced -
Canceled procedure Canceled; safecall; Interfaced -
Canceled procedure Canceled; dispid 3; Interfaced -
Canceled procedure Canceled; dispid 3; Interfaced -
CommitContextChange procedure CommitContextChange; safecall; Interfaced -
CommitContextChange procedure CommitContextChange; dispid 3; Interfaced -
Committed procedure Committed; safecall; Interfaced -
Committed procedure Committed; dispid 2; Interfaced -
Committed procedure Committed; dispid 2; Interfaced -
CommonContextTerminated TContextorParticipant procedure CommonContextTerminated; Public -
CommonContextTerminated procedure CommonContextTerminated; safecall; Interfaced -
CommonContextTerminated procedure CommonContextTerminated; dispid 1610743811; Interfaced -
Connect TContextItemCollection procedure Connect; override; Public -
Connect TContextItem procedure Connect; override; Public -
Connect TContextorParticipant procedure Connect; override; Public -
Connect TContextor procedure Connect; override; Public -
Connect TResponseDialog procedure Connect; override; Public -
ConnectTo TContextItemCollection procedure ConnectTo(svrIntf: IContextItemCollection); Public -
ConnectTo TContextItem procedure ConnectTo(svrIntf: IContextItem); Public -
ConnectTo TContextorParticipant procedure ConnectTo(svrIntf: IContextParticipant); Public -
ConnectTo TContextor procedure ConnectTo(svrIntf: IContextor); Public -
ConnectTo TResponseDialog procedure ConnectTo(svrIntf: IResponseDialog); Public -
ContextChangesAccepted TContextorParticipant procedure ContextChangesAccepted(contextCoupon: Integer); Public -
ContextChangesAccepted procedure ContextChangesAccepted(contextCoupon: Integer); safecall; Interfaced -
ContextChangesAccepted procedure ContextChangesAccepted(contextCoupon: Integer); dispid 1610743809; Interfaced -
ContextChangesCanceled TContextorParticipant procedure ContextChangesCanceled(contextCoupon: Integer); Public -
ContextChangesCanceled procedure ContextChangesCanceled(contextCoupon: Integer); safecall; Interfaced -
ContextChangesCanceled procedure ContextChangesCanceled(contextCoupon: Integer); dispid 1610743810; Interfaced -
CreateControl TContextorControl procedure CreateControl; Protected -
Disconnect TContextItemCollection procedure Disconnect; override; Public -
Disconnect TContextItem procedure Disconnect; override; Public -
Disconnect TContextorParticipant procedure Disconnect; override; Public -
Disconnect TContextor procedure Disconnect; override; Public -
Disconnect TResponseDialog procedure Disconnect; override; Public -
DoCreate - procedure DoCreate; Local -
InitControlData TContextorControl procedure InitControlData; override; Protected -
InitServerData TContextItemCollection procedure InitServerData; override; Protected -
InitServerData TContextItem procedure InitServerData; override; Protected -
InitServerData TContextorParticipant procedure InitServerData; override; Protected -
InitServerData TContextor procedure InitServerData; override; Protected -
InitServerData TResponseDialog procedure InitServerData; override; Protected -
InvokeEvent TContextor procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; Protected -
Pending procedure Pending(const aContextItemCollection: IDispatch); safecall; Interfaced -
Pending procedure Pending(const aContextItemCollection: IDispatch); dispid 1; Interfaced -
Pending procedure Pending(const aContextItemCollection: IDispatch); dispid 1; Interfaced -
Ping TContextorParticipant procedure Ping; Public -
Ping procedure Ping; safecall; Interfaced -
Ping procedure Ping; dispid 1610743812; Interfaced -
Remove TContextItemCollection procedure Remove(const contextItemName: WideString); Public -
Remove procedure Remove(const contextItemName: WideString); safecall; Interfaced -
Remove procedure Remove(const contextItemName: WideString); dispid 3; Interfaced -
RemoveAll TContextItemCollection procedure RemoveAll; Public -
RemoveAll procedure RemoveAll; safecall; Interfaced -
RemoveAll procedure RemoveAll; dispid 4; Interfaced -
Reset procedure Reset; safecall; Interfaced -
Reset procedure Reset; dispid 1; Interfaced -
Resume TContextorControl procedure Resume; Public -
Resume TContextor procedure Resume; Public -
Resume procedure Resume; safecall; Interfaced -
Resume procedure Resume; dispid 3; Interfaced -
Run TContextorControl procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; const initialNotificationFilter: WideString); Public -
Run TContextor procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; const initialNotificationFilter: WideString); Public -
Run procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; const initialNotificationFilter: WideString); safecall; Interfaced -
Run procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; const initialNotificationFilter: WideString); dispid 1; Interfaced -
Set_ procedure Set_(const aResponseDialog: IResponseDialog); safecall; Interfaced -
Set_ procedure Set_(const aResponseDialog: IResponseDialog); dispid 2; Interfaced -
Set_Name TContextItem procedure Set_Name(const pVal: WideString); Protected -
Set_Name procedure Set_Name(const pVal: WideString); safecall; Interfaced -
Set_NotificationFilter TContextor procedure Set_NotificationFilter(const filter: WideString); Protected -
Set_NotificationFilter procedure Set_NotificationFilter(const filter: WideString); safecall; Interfaced -
Set_Prefix TContextItem procedure Set_Prefix(const pVal: WideString); Protected -
Set_Prefix procedure Set_Prefix(const pVal: WideString); safecall; Interfaced -
Set_Role TContextItem procedure Set_Role(const pVal: WideString); Protected -
Set_Role procedure Set_Role(const pVal: WideString); safecall; Interfaced -
Set_Subject TContextItem procedure Set_Subject(const pVal: WideString); Protected -
Set_Subject procedure Set_Subject(const pVal: WideString); safecall; Interfaced -
Set_Suffix TContextItem procedure Set_Suffix(const pVal: WideString); Protected -
Set_Suffix procedure Set_Suffix(const pVal: WideString); safecall; Interfaced -
Set_Value TContextItem procedure Set_Value(const pVal: WideString); Protected -
Set_Value procedure Set_Value(const pVal: WideString); safecall; Interfaced -
SetParticipant procedure SetParticipant(const aContextParticipant: IContextParticipant); safecall; Interfaced -
SetParticipant procedure SetParticipant(const aContextParticipant: IContextParticipant); dispid 1; Interfaced -
SetSurveyResponse TContextorControl procedure SetSurveyResponse(const reason: WideString); Public -
SetSurveyResponse TContextor procedure SetSurveyResponse(const reason: WideString); Public -
SetSurveyResponse procedure SetSurveyResponse(const reason: WideString); safecall; Interfaced -
SetSurveyResponse procedure SetSurveyResponse(const reason: WideString); dispid 9; Interfaced -
StartContextChange TContextorControl procedure StartContextChange; Public -
StartContextChange TContextor procedure StartContextChange; Public -
StartContextChange procedure StartContextChange; safecall; Interfaced -
StartContextChange procedure StartContextChange; dispid 7; Interfaced -
StartResponseContextChange procedure StartResponseContextChange; safecall; Interfaced -
StartResponseContextChange procedure StartResponseContextChange; dispid 1; Interfaced -
Suspend TContextorControl procedure Suspend; Public -
Suspend TContextor procedure Suspend; Public -
Suspend procedure Suspend; safecall; Interfaced -
Suspend procedure Suspend; dispid 2; Interfaced -

Functions

Name Owner Declaration Scope Comments
Clone TContextItem function Clone: IContextItem; Public -
Clone function Clone: IContextItem; safecall; Interfaced -
Clone function Clone: IContextItem; dispid 7; Interfaced -
ContextChangesPending TContextorParticipant function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; Public -
ContextChangesPending function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall; Interfaced -
ContextChangesPending function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808; Interfaced -
Count TContextItemCollection function Count: Integer; Public -
Count function Count: Integer; safecall; Interfaced -
Count function Count: Integer; dispid 1; Interfaced -
Create CoContextItemCollection class function Create: IContextItemCollection; Public/Published -
Create CoContextItem class function Create: IContextItem; Public/Published -
Create CoContextorParticipant class function Create: IContextParticipant; Public/Published -
Create CoContextor class function Create: IContextor; Public/Published -
Create CoResponseDialog class function Create: IResponseDialog; Public/Published -
CreateRemote CoContextItemCollection class function CreateRemote(const MachineName: string): IContextItemCollection; Public/Published -
CreateRemote CoContextItem class function CreateRemote(const MachineName: string): IContextItem; Public/Published -
CreateRemote CoContextorParticipant class function CreateRemote(const MachineName: string): IContextParticipant; Public/Published -
CreateRemote CoContextor class function CreateRemote(const MachineName: string): IContextor; Public/Published -
CreateRemote CoResponseDialog class function CreateRemote(const MachineName: string): IResponseDialog; Public/Published -
EndContextChange TContextorControl function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; Public -
EndContextChange TContextor function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; Public -
EndContextChange function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; safecall; Interfaced -
EndContextChange function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; dispid 8; Interfaced -
EndResponseContextChange function EndResponseContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection; var noContinue: WordBool): OleVariant; safecall; Interfaced -
EndResponseContextChange function EndResponseContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection; var noContinue: WordBool): OleVariant; dispid 2; Interfaced -
Get__NewEnum TContextItemCollection function Get__NewEnum: IUnknown; Protected -
Get__NewEnum function Get__NewEnum: IUnknown; safecall; Interfaced -
Get_CurrentContext TContextorControl function Get_CurrentContext: IContextItemCollection; Protected -
Get_CurrentContext TContextor function Get_CurrentContext: IContextItemCollection; Protected -
Get_CurrentContext function Get_CurrentContext: IContextItemCollection; safecall; Interfaced -
Get_Name TContextItem function Get_Name: WideString; Protected -
Get_Name TContextor function Get_Name: WideString; Protected -
Get_Name function Get_Name: WideString; safecall; Interfaced -
Get_Name function Get_Name: WideString; safecall; Interfaced -
Get_NotificationFilter TContextor function Get_NotificationFilter: WideString; Protected -
Get_NotificationFilter function Get_NotificationFilter: WideString; safecall; Interfaced -
Get_Prefix TContextItem function Get_Prefix: WideString; Protected -
Get_Prefix function Get_Prefix: WideString; safecall; Interfaced -
Get_Role TContextItem function Get_Role: WideString; Protected -
Get_Role function Get_Role: WideString; safecall; Interfaced -
Get_State TContextor function Get_State: ContextorState; Protected -
Get_State function Get_State: ContextorState; safecall; Interfaced -
Get_Subject TContextItem function Get_Subject: WideString; Protected -
Get_Subject function Get_Subject: WideString; safecall; Interfaced -
Get_Suffix TContextItem function Get_Suffix: WideString; Protected -
Get_Suffix function Get_Suffix: WideString; safecall; Interfaced -
Get_Value TContextItem function Get_Value: WideString; Protected -
Get_Value function Get_Value: WideString; safecall; Interfaced -
GetControlInterface TContextorControl function GetControlInterface: IContextor; Private -
GetDefaultInterface TContextItemCollection function GetDefaultInterface: IContextItemCollection; Private -
GetDefaultInterface TContextItem function GetDefaultInterface: IContextItem; Private -
GetDefaultInterface TContextorParticipant function GetDefaultInterface: IContextParticipant; Private -
GetDefaultInterface TContextor function GetDefaultInterface: IContextor; Private -
GetDefaultInterface TResponseDialog function GetDefaultInterface: IResponseDialog; Private -
GetPrivilege TContextorControl function GetPrivilege(const subj: WideString): AccessPrivilege; Public -
GetPrivilege TContextor function GetPrivilege(const subj: WideString): AccessPrivilege; Public -
GetPrivilege function GetPrivilege(const subj: WideString): AccessPrivilege; safecall; Interfaced -
GetPrivilege function GetPrivilege(const subj: WideString): AccessPrivilege; dispid 5; Interfaced -
Item TContextItemCollection function Item(key: OleVariant): IContextItem; Public -
Item function Item(key: OleVariant): IContextItem; safecall; Interfaced -
Item function Item(key: OleVariant): IContextItem; dispid 0; Interfaced -
Present TContextItemCollection function Present(key: OleVariant): IContextItem; Public -
Present function Present(key: OleVariant): IContextItem; safecall; Interfaced -
Present function Present(key: OleVariant): IContextItem; dispid 5; Interfaced -
ProcessSurveyResults TResponseDialog function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; Public -
ProcessSurveyResults function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall; Interfaced -
ProcessSurveyResults function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1; Interfaced -

Constants

Name Declaration Scope Comments
ApGet $00000002 Interfaced -
ApNone $00000001 Interfaced -
ApSet $00000003 Interfaced -
CLASS_ContextItem TGUID = '{AC4C0274-615A-11D3-84B5-0000861FDD4F}' Interfaced -
CLASS_ContextItemCollection TGUID = '{AC4C0272-615A-11D3-84B5-0000861FDD4F}' Interfaced -
CLASS_Contextor TGUID = '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}' Interfaced -
CLASS_ContextorControl TGUID = '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}' Interfaced -
CLASS_ContextorParticipant TGUID = '{4BA034A2-D0FA-11D3-818B-0050049598B2}' Interfaced -
CLASS_ResponseDialog TGUID = '{9D33ECF2-8277-11D3-8525-0000861FDD4F}' Interfaced -
CsNotRunning $00000001 Interfaced -
CsParticipating $00000002 Interfaced -
CsSuspended $00000003 Interfaced -
DIID__IContextChangesSink TGUID = '{6BED8971-B3DD-11D3-8736-0060B0B5E137}' Interfaced -
IID_IContextChangesSink TGUID = '{0B437E31-620E-11D3-84B6-0000861FDD4F}' Interfaced -
IID_IContextItem TGUID = '{AC4C0273-615A-11D3-84B5-0000861FDD4F}' Interfaced -
IID_IContextItemCollection TGUID = '{AC4C0271-615A-11D3-84B5-0000861FDD4F}' Interfaced -
IID_IContextor TGUID = '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}' Interfaced -
IID_IContextParticipant TGUID = '{3E3DD272-998E-11D0-808D-00A0240943E4}' Interfaced -
IID_IResponseContextChange TGUID = '{CBC6D968-9F6D-416A-8AA7-99172E588DF0}' Interfaced -
IID_IResponseDialog TGUID = '{9D33ECF1-8277-11D3-8525-0000861FDD4F}' Interfaced -
IID_IResponseDialogAccessor TGUID = '{86592071-F3BA-11D3-8181-005004A0F801}' Interfaced -
IID_ISetHook TGUID = '{8D879FDD-5FE6-11D3-8727-0060B0B5E137}' Interfaced -
LIBID_VERGENCECONTEXTORLib TGUID = '{30AFBABD-5FD3-11D3-8727-0060B0B5E137}' Interfaced -
UrBreak $00000003 Interfaced -
UrCancel $00000002 Interfaced -
UrCommit $00000001 Interfaced -
VERGENCECONTEXTORLibMajorVersion 1 Interfaced TypeLibrary Major and minor versions
VERGENCECONTEXTORLibMinorVersion 0 Interfaced -


Module Source

1     unit VERGENCECONTEXTORLib_TLB;
2     
3     // ************************************************************************ //
4     // WARNING                                                                    
5     // -------                                                                    
6     // The types declared in this file were generated from data read from a       
7     // Type Library. If this type library is explicitly or indirectly (via        
8     // another type library referring to this type library) re-imported, or the   
9     // 'Refresh' command of the Type Library Editor activated while editing the   
10    // Type Library, the contents of this file will be regenerated and all        
11    // manual modifications will be lost.                                         
12    // ************************************************************************ //
13    
14    // PASTLWTR : $Revision:   1.88.1.0.1.0  $
15    // File generated on 2/9/2004 9:12:53 AM from Type Library described below.
16    
17    // *************************************************************************//
18    // NOTE:                                                                      
19    // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
20    // which return objects that may need to be explicitly created via a function 
21    // call prior to any access via the property. These items have been disabled  
22    // in order to prevent accidental use from within the object inspector. You   
23    // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
24    // removing them from the $IFDEF blocks. However, such items must still be    
25    // programmatically created via a method of the appropriate CoClass before    
26    // they can be used.                                                          
27    // ************************************************************************ //
28    // Type Lib: D:\Development\BDK32_p40\Source\VergenceContextor.dll (1)
29    // IID\LCID: {30AFBABD-5FD3-11D3-8727-0060B0B5E137}\0
30    // Helpfile: 
31    // DepndLst: 
32    //   (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
33    //   (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
34    // Errors:
35    //   Hint: Member 'Set' of 'IResponseDialogAccessor' changed to 'Set_'
36    //   Error creating palette bitmap of (TContextor) : Invalid GUID format
37    //   Error creating palette bitmap of (TContextItemCollection) : Invalid GUID format
38    //   Error creating palette bitmap of (TContextItem) : Invalid GUID format
39    //   Error creating palette bitmap of (TResponseDialog) : Invalid GUID format
40    //   Error creating palette bitmap of (TContextorParticipant) : Invalid GUID format
41    // ************************************************************************ //
42    {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
43    interface
44    
45    uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
46    
47    // *********************************************************************//
48    // GUIDS declared in the TypeLibrary. Following prefixes are used:        
49    //   Type Libraries     : LIBID_xxxx                                      
50    //   CoClasses          : CLASS_xxxx                                      
51    //   DISPInterfaces     : DIID_xxxx                                       
52    //   Non-DISP interfaces: IID_xxxx                                        
53    // *********************************************************************//
54    const
55      // TypeLibrary Major and minor versions
56      VERGENCECONTEXTORLibMajorVersion = 1;
57      VERGENCECONTEXTORLibMinorVersion = 0;
58    
59      LIBID_VERGENCECONTEXTORLib: TGUID = '{30AFBABD-5FD3-11D3-8727-0060B0B5E137}';
60    
61      DIID__IContextChangesSink: TGUID = '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';
62      IID_IContextor: TGUID = '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}';
63      IID_IContextParticipant: TGUID = '{3E3DD272-998E-11D0-808D-00A0240943E4}';
64      IID_IContextItemCollection: TGUID = '{AC4C0271-615A-11D3-84B5-0000861FDD4F}';
65      IID_IContextItem: TGUID = '{AC4C0273-615A-11D3-84B5-0000861FDD4F}';
66      IID_IResponseContextChange: TGUID = '{CBC6D968-9F6D-416A-8AA7-99172E588DF0}';
67      IID_IResponseDialogAccessor: TGUID = '{86592071-F3BA-11D3-8181-005004A0F801}';
68      IID_IContextChangesSink: TGUID = '{0B437E31-620E-11D3-84B6-0000861FDD4F}';
69      IID_IResponseDialog: TGUID = '{9D33ECF1-8277-11D3-8525-0000861FDD4F}';
70      CLASS_Contextor: TGUID = '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}';
71      CLASS_ContextorControl: TGUID = '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}';
72      CLASS_ContextItemCollection: TGUID = '{AC4C0272-615A-11D3-84B5-0000861FDD4F}';
73      CLASS_ContextItem: TGUID = '{AC4C0274-615A-11D3-84B5-0000861FDD4F}';
74      CLASS_ResponseDialog: TGUID = '{9D33ECF2-8277-11D3-8525-0000861FDD4F}';
75      IID_ISetHook: TGUID = '{8D879FDD-5FE6-11D3-8727-0060B0B5E137}';
76      CLASS_ContextorParticipant: TGUID = '{4BA034A2-D0FA-11D3-818B-0050049598B2}';
77    
78    // *********************************************************************//
79    // Declaration of Enumerations defined in Type Library                    
80    // *********************************************************************//
81    // Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0002
82    type
83      __MIDL___MIDL_itf_VergenceContextor_0000_0002 = TOleEnum;
84    const
85      CsNotRunning = $00000001;
86      CsParticipating = $00000002;
87      CsSuspended = $00000003;
88    
89    // Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0001
90    type
91      __MIDL___MIDL_itf_VergenceContextor_0000_0001 = TOleEnum;
92    const
93      ApNone = $00000001;
94      ApGet = $00000002;
95      ApSet = $00000003;
96    
97    // Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0003
98    type
99      __MIDL___MIDL_itf_VergenceContextor_0000_0003 = TOleEnum;
100   const
101     UrCommit = $00000001;
102     UrCancel = $00000002;
103     UrBreak = $00000003;
104   
105   type
106   
107   // *********************************************************************//
108   // Forward declaration of types defined in TypeLibrary                    
109   // *********************************************************************//
110     _IContextChangesSink = dispinterface;
111     IContextor = interface;
112     IContextorDisp = dispinterface;
113     IContextParticipant = interface;
114     IContextParticipantDisp = dispinterface;
115     IContextItemCollection = interface;
116     IContextItemCollectionDisp = dispinterface;
117     IContextItem = interface;
118     IContextItemDisp = dispinterface;
119     IResponseContextChange = interface;
120     IResponseContextChangeDisp = dispinterface;
121     IResponseDialogAccessor = interface;
122     IResponseDialogAccessorDisp = dispinterface;
123     IContextChangesSink = interface;
124     IContextChangesSinkDisp = dispinterface;
125     IResponseDialog = interface;
126     IResponseDialogDisp = dispinterface;
127     ISetHook = interface;
128     ISetHookDisp = dispinterface;
129   
130   // *********************************************************************//
131   // Declaration of CoClasses defined in Type Library                       
132   // (NOTE: Here we map each CoClass to its Default Interface)              
133   // *********************************************************************//
134     Contextor = IContextor;
135     ContextorControl = IContextor;
136     ContextItemCollection = IContextItemCollection;
137     ContextItem = IContextItem;
138     ResponseDialog = IResponseDialog;
139     ContextorParticipant = IContextParticipant;
140   
141   
142   // *********************************************************************//
143   // Declaration of structures, unions and aliases.                         
144   // *********************************************************************//
145   
146     ContextorState = __MIDL___MIDL_itf_VergenceContextor_0000_0002; 
147     AccessPrivilege = __MIDL___MIDL_itf_VergenceContextor_0000_0001; 
148     UserResponse = __MIDL___MIDL_itf_VergenceContextor_0000_0003; 
149   
150   // *********************************************************************//
151   // DispIntf:  _IContextChangesSink
152   // Flags:     (4096) Dispatchable
153   // GUID:      {6BED8971-B3DD-11D3-8736-0060B0B5E137}
154   // *********************************************************************//
155     _IContextChangesSink = dispinterface
156       ['{6BED8971-B3DD-11D3-8736-0060B0B5E137}']
157       procedure Pending(const aContextItemCollection: IDispatch); dispid 1;
158       procedure Committed; dispid 2;
159       procedure Canceled; dispid 3;
160     end;
161   
162   // *********************************************************************//
163   // Interface: IContextor
164   // Flags:     (4416) Dual OleAutomation Dispatchable
165   // GUID:      {8D879F5D-5FE6-11D3-8727-0060B0B5E137}
166   // *********************************************************************//
167     IContextor = interface(IDispatch)
168       ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}']
169       procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 
170                     const initialNotificationFilter: WideString); safecall;
171       procedure Suspend; safecall;
172       procedure Resume; safecall;
173       function  Get_State: ContextorState; safecall;
174       function  GetPrivilege(const subj: WideString): AccessPrivilege; safecall;
175       function  Get_CurrentContext: IContextItemCollection; safecall;
176       procedure StartContextChange; safecall;
177       function  EndContextChange(commit: WordBool; 
178                                  const aContextItemCollection: IContextItemCollection): UserResponse; safecall;
179       procedure SetSurveyResponse(const reason: WideString); safecall;
180       function  Get_NotificationFilter: WideString; safecall;
181       procedure Set_NotificationFilter(const filter: WideString); safecall;
182       function  Get_Name: WideString; safecall;
183       property State: ContextorState read Get_State;
184       property CurrentContext: IContextItemCollection read Get_CurrentContext;
185       property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;
186       property Name: WideString read Get_Name;
187     end;
188   
189   // *********************************************************************//
190   // DispIntf:  IContextorDisp
191   // Flags:     (4416) Dual OleAutomation Dispatchable
192   // GUID:      {8D879F5D-5FE6-11D3-8727-0060B0B5E137}
193   // *********************************************************************//
194     IContextorDisp = dispinterface
195       ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}']
196       procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 
197                     const initialNotificationFilter: WideString); dispid 1;
198       procedure Suspend; dispid 2;
199       procedure Resume; dispid 3;
200       property State: ContextorState readonly dispid 4;
201       function  GetPrivilege(const subj: WideString): AccessPrivilege; dispid 5;
202       property CurrentContext: IContextItemCollection readonly dispid 6;
203       procedure StartContextChange; dispid 7;
204       function  EndContextChange(commit: WordBool; 
205                                  const aContextItemCollection: IContextItemCollection): UserResponse; dispid 8;
206       procedure SetSurveyResponse(const reason: WideString); dispid 9;
207       property NotificationFilter: WideString dispid 10;
208       property Name: WideString readonly dispid 11;
209     end;
210   
211   // *********************************************************************//
212   // Interface: IContextParticipant
213   // Flags:     (4416) Dual OleAutomation Dispatchable
214   // GUID:      {3E3DD272-998E-11D0-808D-00A0240943E4}
215   // *********************************************************************//
216     IContextParticipant = interface(IDispatch)
217       ['{3E3DD272-998E-11D0-808D-00A0240943E4}']
218       function  ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall;
219       procedure ContextChangesAccepted(contextCoupon: Integer); safecall;
220       procedure ContextChangesCanceled(contextCoupon: Integer); safecall;
221       procedure CommonContextTerminated; safecall;
222       procedure Ping; safecall;
223     end;
224   
225   // *********************************************************************//
226   // DispIntf:  IContextParticipantDisp
227   // Flags:     (4416) Dual OleAutomation Dispatchable
228   // GUID:      {3E3DD272-998E-11D0-808D-00A0240943E4}
229   // *********************************************************************//
230     IContextParticipantDisp = dispinterface
231       ['{3E3DD272-998E-11D0-808D-00A0240943E4}']
232       function  ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808;
233       procedure ContextChangesAccepted(contextCoupon: Integer); dispid 1610743809;
234       procedure ContextChangesCanceled(contextCoupon: Integer); dispid 1610743810;
235       procedure CommonContextTerminated; dispid 1610743811;
236       procedure Ping; dispid 1610743812;
237     end;
238   
239   // *********************************************************************//
240   // Interface: IContextItemCollection
241   // Flags:     (4416) Dual OleAutomation Dispatchable
242   // GUID:      {AC4C0271-615A-11D3-84B5-0000861FDD4F}
243   // *********************************************************************//
244     IContextItemCollection = interface(IDispatch)
245       ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}']
246       function  Count: Integer; safecall;
247       procedure Add(const aContextItem: IContextItem); safecall;
248       procedure Remove(const contextItemName: WideString); safecall;
249       procedure RemoveAll; safecall;
250       function  Present(key: OleVariant): IContextItem; safecall;
251       function  Get__NewEnum: IUnknown; safecall;
252       function  Item(key: OleVariant): IContextItem; safecall;
253       property _NewEnum: IUnknown read Get__NewEnum;
254     end;
255   
256   // *********************************************************************//
257   // DispIntf:  IContextItemCollectionDisp
258   // Flags:     (4416) Dual OleAutomation Dispatchable
259   // GUID:      {AC4C0271-615A-11D3-84B5-0000861FDD4F}
260   // *********************************************************************//
261     IContextItemCollectionDisp = dispinterface
262       ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}']
263       function  Count: Integer; dispid 1;
264       procedure Add(const aContextItem: IContextItem); dispid 2;
265       procedure Remove(const contextItemName: WideString); dispid 3;
266       procedure RemoveAll; dispid 4;
267       function  Present(key: OleVariant): IContextItem; dispid 5;
268       property _NewEnum: IUnknown readonly dispid -4;
269       function  Item(key: OleVariant): IContextItem; dispid 0;
270     end;
271   
272   // *********************************************************************//
273   // Interface: IContextItem
274   // Flags:     (4416) Dual OleAutomation Dispatchable
275   // GUID:      {AC4C0273-615A-11D3-84B5-0000861FDD4F}
276   // *********************************************************************//
277     IContextItem = interface(IDispatch)
278       ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}']
279       function  Get_Subject: WideString; safecall;
280       procedure Set_Subject(const pVal: WideString); safecall;
281       function  Get_Role: WideString; safecall;
282       procedure Set_Role(const pVal: WideString); safecall;
283       function  Get_Prefix: WideString; safecall;
284       procedure Set_Prefix(const pVal: WideString); safecall;
285       function  Get_Suffix: WideString; safecall;
286       procedure Set_Suffix(const pVal: WideString); safecall;
287       function  Get_Name: WideString; safecall;
288       procedure Set_Name(const pVal: WideString); safecall;
289       function  Get_Value: WideString; safecall;
290       procedure Set_Value(const pVal: WideString); safecall;
291       function  Clone: IContextItem; safecall;
292       property Subject: WideString read Get_Subject write Set_Subject;
293       property Role: WideString read Get_Role write Set_Role;
294       property Prefix: WideString read Get_Prefix write Set_Prefix;
295       property Suffix: WideString read Get_Suffix write Set_Suffix;
296       property Name: WideString read Get_Name write Set_Name;
297       property Value: WideString read Get_Value write Set_Value;
298     end;
299   
300   // *********************************************************************//
301   // DispIntf:  IContextItemDisp
302   // Flags:     (4416) Dual OleAutomation Dispatchable
303   // GUID:      {AC4C0273-615A-11D3-84B5-0000861FDD4F}
304   // *********************************************************************//
305     IContextItemDisp = dispinterface
306       ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}']
307       property Subject: WideString dispid 1;
308       property Role: WideString dispid 2;
309       property Prefix: WideString dispid 3;
310       property Suffix: WideString dispid 4;
311       property Name: WideString dispid 5;
312       property Value: WideString dispid 6;
313       function  Clone: IContextItem; dispid 7;
314     end;
315   
316   // *********************************************************************//
317   // Interface: IResponseContextChange
318   // Flags:     (4416) Dual OleAutomation Dispatchable
319   // GUID:      {CBC6D968-9F6D-416A-8AA7-99172E588DF0}
320   // *********************************************************************//
321     IResponseContextChange = interface(IDispatch)
322       ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}']
323       procedure StartResponseContextChange; safecall;
324       function  EndResponseContextChange(commit: WordBool; 
325                                          const aContextItemCollection: IContextItemCollection; 
326                                          var noContinue: WordBool): OleVariant; safecall;
327       procedure CommitContextChange; safecall;
328       procedure CancelContextChange; safecall;
329     end;
330   
331   // *********************************************************************//
332   // DispIntf:  IResponseContextChangeDisp
333   // Flags:     (4416) Dual OleAutomation Dispatchable
334   // GUID:      {CBC6D968-9F6D-416A-8AA7-99172E588DF0}
335   // *********************************************************************//
336     IResponseContextChangeDisp = dispinterface
337       ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}']
338       procedure StartResponseContextChange; dispid 1;
339       function  EndResponseContextChange(commit: WordBool; 
340                                          const aContextItemCollection: IContextItemCollection; 
341                                          var noContinue: WordBool): OleVariant; dispid 2;
342       procedure CommitContextChange; dispid 3;
343       procedure CancelContextChange; dispid 4;
344     end;
345   
346   // *********************************************************************//
347   // Interface: IResponseDialogAccessor
348   // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
349   // GUID:      {86592071-F3BA-11D3-8181-005004A0F801}
350   // *********************************************************************//
351     IResponseDialogAccessor = interface(IDispatch)
352       ['{86592071-F3BA-11D3-8181-005004A0F801}']
353       procedure Reset; safecall;
354       procedure Set_(const aResponseDialog: IResponseDialog); safecall;
355     end;
356   
357   // *********************************************************************//
358   // DispIntf:  IResponseDialogAccessorDisp
359   // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
360   // GUID:      {86592071-F3BA-11D3-8181-005004A0F801}
361   // *********************************************************************//
362     IResponseDialogAccessorDisp = dispinterface
363       ['{86592071-F3BA-11D3-8181-005004A0F801}']
364       procedure Reset; dispid 1;
365       procedure Set_(const aResponseDialog: IResponseDialog); dispid 2;
366     end;
367   
368   // *********************************************************************//
369   // Interface: IContextChangesSink
370   // Flags:     (4416) Dual OleAutomation Dispatchable
371   // GUID:      {0B437E31-620E-11D3-84B6-0000861FDD4F}
372   // *********************************************************************//
373     IContextChangesSink = interface(IDispatch)
374       ['{0B437E31-620E-11D3-84B6-0000861FDD4F}']
375       procedure Pending(const aContextItemCollection: IDispatch); safecall;
376       procedure Committed; safecall;
377       procedure Canceled; safecall;
378     end;
379   
380   // *********************************************************************//
381   // DispIntf:  IContextChangesSinkDisp
382   // Flags:     (4416) Dual OleAutomation Dispatchable
383   // GUID:      {0B437E31-620E-11D3-84B6-0000861FDD4F}
384   // *********************************************************************//
385     IContextChangesSinkDisp = dispinterface
386       ['{0B437E31-620E-11D3-84B6-0000861FDD4F}']
387       procedure Pending(const aContextItemCollection: IDispatch); dispid 1;
388       procedure Committed; dispid 2;
389       procedure Canceled; dispid 3;
390     end;
391   
392   // *********************************************************************//
393   // Interface: IResponseDialog
394   // Flags:     (4416) Dual OleAutomation Dispatchable
395   // GUID:      {9D33ECF1-8277-11D3-8525-0000861FDD4F}
396   // *********************************************************************//
397     IResponseDialog = interface(IDispatch)
398       ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}']
399       function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall;
400     end;
401   
402   // *********************************************************************//
403   // DispIntf:  IResponseDialogDisp
404   // Flags:     (4416) Dual OleAutomation Dispatchable
405   // GUID:      {9D33ECF1-8277-11D3-8525-0000861FDD4F}
406   // *********************************************************************//
407     IResponseDialogDisp = dispinterface
408       ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}']
409       function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1;
410     end;
411   
412   // *********************************************************************//
413   // Interface: ISetHook
414   // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
415   // GUID:      {8D879FDD-5FE6-11D3-8727-0060B0B5E137}
416   // *********************************************************************//
417     ISetHook = interface(IDispatch)
418       ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}']
419       procedure SetParticipant(const aContextParticipant: IContextParticipant); safecall;
420     end;
421   
422   // *********************************************************************//
423   // DispIntf:  ISetHookDisp
424   // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
425   // GUID:      {8D879FDD-5FE6-11D3-8727-0060B0B5E137}
426   // *********************************************************************//
427     ISetHookDisp = dispinterface
428       ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}']
429       procedure SetParticipant(const aContextParticipant: IContextParticipant); dispid 1;
430     end;
431   
432   // *********************************************************************//
433   // The Class CoContextor provides a Create and CreateRemote method to          
434   // create instances of the default interface IContextor exposed by              
435   // the CoClass Contextor. The functions are intended to be used by             
436   // clients wishing to automate the CoClass objects exposed by the         
437   // server of this typelibrary.                                            
438   // *********************************************************************//
439     CoContextor = class
440       class function Create: IContextor;
441       class function CreateRemote(const MachineName: string): IContextor;
442     end;
443   
444     TContextorPending = procedure(Sender: TObject; var aContextItemCollection: OleVariant) of object;
445   
446   
447   // *********************************************************************//
448   // OLE Server Proxy class declaration
449   // Server Object    : TContextor
450   // Help String      : Vergence Contextor
451   // Default Interface: IContextor
452   // Def. Intf. DISP? : No
453   // Event   Interface: _IContextChangesSink
454   // TypeFlags        : (2) CanCreate
455   // *********************************************************************//
456   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
457     TContextorProperties= class;
458   {$ENDIF}
459     TContextor = class(TOleServer)
460     private
461       FOnPending: TContextorPending;
462       FOnCommitted: TNotifyEvent;
463       FOnCanceled: TNotifyEvent;
464       FIntf:        IContextor;
465   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
466       FProps:       TContextorProperties;
467       function      GetServerProperties: TContextorProperties;
468   {$ENDIF}
469       function      GetDefaultInterface: IContextor;
470     protected
471       procedure InitServerData; override;
472       procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
473       function  Get_State: ContextorState;
474       function  Get_CurrentContext: IContextItemCollection;
475       function  Get_NotificationFilter: WideString;
476       procedure Set_NotificationFilter(const filter: WideString);
477       function  Get_Name: WideString;
478     public
479       constructor Create(AOwner: TComponent); override;
480       destructor  Destroy; override;
481       procedure Connect; override;
482       procedure ConnectTo(svrIntf: IContextor);
483       procedure Disconnect; override;
484       procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 
485                     const initialNotificationFilter: WideString);
486       procedure Suspend;
487       procedure Resume;
488       function  GetPrivilege(const subj: WideString): AccessPrivilege;
489       procedure StartContextChange;
490       function  EndContextChange(commit: WordBool; 
491                                  const aContextItemCollection: IContextItemCollection): UserResponse;
492       procedure SetSurveyResponse(const reason: WideString);
493       property  DefaultInterface: IContextor read GetDefaultInterface;
494       property State: ContextorState read Get_State;
495       property CurrentContext: IContextItemCollection read Get_CurrentContext;
496       property Name: WideString read Get_Name;
497       property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;
498     published
499   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
500       property Server: TContextorProperties read GetServerProperties;
501   {$ENDIF}
502       property OnPending: TContextorPending read FOnPending write FOnPending;
503       property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted;
504       property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled;
505     end;
506   
507   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
508   // *********************************************************************//
509   // OLE Server Properties Proxy Class
510   // Server Object    : TContextor
511   // (This object is used by the IDE's Property Inspector to allow editing
512   //  of the properties of this server)
513   // *********************************************************************//
514    TContextorProperties = class(TPersistent)
515     private
516       FServer:    TContextor;
517       function    GetDefaultInterface: IContextor;
518       constructor Create(AServer: TContextor);
519     protected
520       function  Get_State: ContextorState;
521       function  Get_CurrentContext: IContextItemCollection;
522       function  Get_NotificationFilter: WideString;
523       procedure Set_NotificationFilter(const filter: WideString);
524       function  Get_Name: WideString;
525     public
526       property DefaultInterface: IContextor read GetDefaultInterface;
527     published
528       property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;
529     end;
530   {$ENDIF}
531   
532   
533   
534   // *********************************************************************//
535   // OLE Control Proxy class declaration
536   // Control Name     : TContextorControl
537   // Help String      : Vergence ContextorControl
538   // Default Interface: IContextor
539   // Def. Intf. DISP? : No
540   // Event   Interface: _IContextChangesSink
541   // TypeFlags        : (2) CanCreate
542   // *********************************************************************//
543     TContextorControlPending = procedure(Sender: TObject; const aContextItemCollection: IDispatch) of object;
544   
545     TContextorControl = class(TOleControl)
546     private
547       FOnPending: TContextorControlPending;
548       FOnCommitted: TNotifyEvent;
549       FOnCanceled: TNotifyEvent;
550       FIntf: IContextor;
551       function  GetControlInterface: IContextor;
552     protected
553       procedure CreateControl;
554       procedure InitControlData; override;
555       function  Get_CurrentContext: IContextItemCollection;
556     public
557       procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 
558                     const initialNotificationFilter: WideString);
559       procedure Suspend;
560       procedure Resume;
561       function  GetPrivilege(const subj: WideString): AccessPrivilege;
562       procedure StartContextChange;
563       function  EndContextChange(commit: WordBool; 
564                                  const aContextItemCollection: IContextItemCollection): UserResponse;
565       procedure SetSurveyResponse(const reason: WideString);
566       property  ControlInterface: IContextor read GetControlInterface;
567       property  DefaultInterface: IContextor read GetControlInterface;
568       property State: TOleEnum index 4 read GetTOleEnumProp;
569       property CurrentContext: IContextItemCollection read Get_CurrentContext;
570       property Name: WideString index 11 read GetWideStringProp;
571     published
572       property NotificationFilter: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
573       property OnPending: TContextorControlPending read FOnPending write FOnPending;
574       property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted;
575       property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled;
576     end;
577   
578   // *********************************************************************//
579   // The Class CoContextItemCollection provides a Create and CreateRemote method to          
580   // create instances of the default interface IContextItemCollection exposed by              
581   // the CoClass ContextItemCollection. The functions are intended to be used by             
582   // clients wishing to automate the CoClass objects exposed by the         
583   // server of this typelibrary.                                            
584   // *********************************************************************//
585     CoContextItemCollection = class
586       class function Create: IContextItemCollection;
587       class function CreateRemote(const MachineName: string): IContextItemCollection;
588     end;
589   
590   
591   // *********************************************************************//
592   // OLE Server Proxy class declaration
593   // Server Object    : TContextItemCollection
594   // Help String      : Vergence ContextItemCollection
595   // Default Interface: IContextItemCollection
596   // Def. Intf. DISP? : No
597   // Event   Interface: 
598   // TypeFlags        : (2) CanCreate
599   // *********************************************************************//
600   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
601     TContextItemCollectionProperties= class;
602   {$ENDIF}
603     TContextItemCollection = class(TOleServer)
604     private
605       FIntf:        IContextItemCollection;
606   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
607       FProps:       TContextItemCollectionProperties;
608       function      GetServerProperties: TContextItemCollectionProperties;
609   {$ENDIF}
610       function      GetDefaultInterface: IContextItemCollection;
611     protected
612       procedure InitServerData; override;
613       function  Get__NewEnum: IUnknown;
614     public
615       constructor Create(AOwner: TComponent); override;
616       destructor  Destroy; override;
617       procedure Connect; override;
618       procedure ConnectTo(svrIntf: IContextItemCollection);
619       procedure Disconnect; override;
620       function  Count: Integer;
621       procedure Add(const aContextItem: IContextItem);
622       procedure Remove(const contextItemName: WideString);
623       procedure RemoveAll;
624       function  Present(key: OleVariant): IContextItem;
625       function  Item(key: OleVariant): IContextItem;
626       property  DefaultInterface: IContextItemCollection read GetDefaultInterface;
627       property _NewEnum: IUnknown read Get__NewEnum;
628     published
629   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
630       property Server: TContextItemCollectionProperties read GetServerProperties;
631   {$ENDIF}
632     end;
633   
634   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
635   // *********************************************************************//
636   // OLE Server Properties Proxy Class
637   // Server Object    : TContextItemCollection
638   // (This object is used by the IDE's Property Inspector to allow editing
639   //  of the properties of this server)
640   // *********************************************************************//
641    TContextItemCollectionProperties = class(TPersistent)
642     private
643       FServer:    TContextItemCollection;
644       function    GetDefaultInterface: IContextItemCollection;
645       constructor Create(AServer: TContextItemCollection);
646     protected
647       function  Get__NewEnum: IUnknown;
648     public
649       property DefaultInterface: IContextItemCollection read GetDefaultInterface;
650     published
651     end;
652   {$ENDIF}
653   
654   
655   // *********************************************************************//
656   // The Class CoContextItem provides a Create and CreateRemote method to          
657   // create instances of the default interface IContextItem exposed by              
658   // the CoClass ContextItem. The functions are intended to be used by             
659   // clients wishing to automate the CoClass objects exposed by the         
660   // server of this typelibrary.                                            
661   // *********************************************************************//
662     CoContextItem = class
663       class function Create: IContextItem;
664       class function CreateRemote(const MachineName: string): IContextItem;
665     end;
666   
667   
668   // *********************************************************************//
669   // OLE Server Proxy class declaration
670   // Server Object    : TContextItem
671   // Help String      : Vergence ContextItem
672   // Default Interface: IContextItem
673   // Def. Intf. DISP? : No
674   // Event   Interface: 
675   // TypeFlags        : (2) CanCreate
676   // *********************************************************************//
677   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
678     TContextItemProperties= class;
679   {$ENDIF}
680     TContextItem = class(TOleServer)
681     private
682       FIntf:        IContextItem;
683   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
684       FProps:       TContextItemProperties;
685       function      GetServerProperties: TContextItemProperties;
686   {$ENDIF}
687       function      GetDefaultInterface: IContextItem;
688     protected
689       procedure InitServerData; override;
690       function  Get_Subject: WideString;
691       procedure Set_Subject(const pVal: WideString);
692       function  Get_Role: WideString;
693       procedure Set_Role(const pVal: WideString);
694       function  Get_Prefix: WideString;
695       procedure Set_Prefix(const pVal: WideString);
696       function  Get_Suffix: WideString;
697       procedure Set_Suffix(const pVal: WideString);
698       function  Get_Name: WideString;
699       procedure Set_Name(const pVal: WideString);
700       function  Get_Value: WideString;
701       procedure Set_Value(const pVal: WideString);
702     public
703       constructor Create(AOwner: TComponent); override;
704       destructor  Destroy; override;
705       procedure Connect; override;
706       procedure ConnectTo(svrIntf: IContextItem);
707       procedure Disconnect; override;
708       function  Clone: IContextItem;
709       property  DefaultInterface: IContextItem read GetDefaultInterface;
710       property Subject: WideString read Get_Subject write Set_Subject;
711       property Role: WideString read Get_Role write Set_Role;
712       property Prefix: WideString read Get_Prefix write Set_Prefix;
713       property Suffix: WideString read Get_Suffix write Set_Suffix;
714       property Name: WideString read Get_Name write Set_Name;
715       property Value: WideString read Get_Value write Set_Value;
716     published
717   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
718       property Server: TContextItemProperties read GetServerProperties;
719   {$ENDIF}
720     end;
721   
722   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
723   // *********************************************************************//
724   // OLE Server Properties Proxy Class
725   // Server Object    : TContextItem
726   // (This object is used by the IDE's Property Inspector to allow editing
727   //  of the properties of this server)
728   // *********************************************************************//
729    TContextItemProperties = class(TPersistent)
730     private
731       FServer:    TContextItem;
732       function    GetDefaultInterface: IContextItem;
733       constructor Create(AServer: TContextItem);
734     protected
735       function  Get_Subject: WideString;
736       procedure Set_Subject(const pVal: WideString);
737       function  Get_Role: WideString;
738       procedure Set_Role(const pVal: WideString);
739       function  Get_Prefix: WideString;
740       procedure Set_Prefix(const pVal: WideString);
741       function  Get_Suffix: WideString;
742       procedure Set_Suffix(const pVal: WideString);
743       function  Get_Name: WideString;
744       procedure Set_Name(const pVal: WideString);
745       function  Get_Value: WideString;
746       procedure Set_Value(const pVal: WideString);
747     public
748       property DefaultInterface: IContextItem read GetDefaultInterface;
749     published
750       property Subject: WideString read Get_Subject write Set_Subject;
751       property Role: WideString read Get_Role write Set_Role;
752       property Prefix: WideString read Get_Prefix write Set_Prefix;
753       property Suffix: WideString read Get_Suffix write Set_Suffix;
754       property Name: WideString read Get_Name write Set_Name;
755       property Value: WideString read Get_Value write Set_Value;
756     end;
757   {$ENDIF}
758   
759   
760   // *********************************************************************//
761   // The Class CoResponseDialog provides a Create and CreateRemote method to          
762   // create instances of the default interface IResponseDialog exposed by              
763   // the CoClass ResponseDialog. The functions are intended to be used by             
764   // clients wishing to automate the CoClass objects exposed by the         
765   // server of this typelibrary.                                            
766   // *********************************************************************//
767     CoResponseDialog = class
768       class function Create: IResponseDialog;
769       class function CreateRemote(const MachineName: string): IResponseDialog;
770     end;
771   
772   
773   // *********************************************************************//
774   // OLE Server Proxy class declaration
775   // Server Object    : TResponseDialog
776   // Help String      : Vergence ResponseDialog
777   // Default Interface: IResponseDialog
778   // Def. Intf. DISP? : No
779   // Event   Interface: 
780   // TypeFlags        : (2) CanCreate
781   // *********************************************************************//
782   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
783     TResponseDialogProperties= class;
784   {$ENDIF}
785     TResponseDialog = class(TOleServer)
786     private
787       FIntf:        IResponseDialog;
788   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
789       FProps:       TResponseDialogProperties;
790       function      GetServerProperties: TResponseDialogProperties;
791   {$ENDIF}
792       function      GetDefaultInterface: IResponseDialog;
793     protected
794       procedure InitServerData; override;
795     public
796       constructor Create(AOwner: TComponent); override;
797       destructor  Destroy; override;
798       procedure Connect; override;
799       procedure ConnectTo(svrIntf: IResponseDialog);
800       procedure Disconnect; override;
801       function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse;
802       property  DefaultInterface: IResponseDialog read GetDefaultInterface;
803     published
804   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
805       property Server: TResponseDialogProperties read GetServerProperties;
806   {$ENDIF}
807     end;
808   
809   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
810   // *********************************************************************//
811   // OLE Server Properties Proxy Class
812   // Server Object    : TResponseDialog
813   // (This object is used by the IDE's Property Inspector to allow editing
814   //  of the properties of this server)
815   // *********************************************************************//
816    TResponseDialogProperties = class(TPersistent)
817     private
818       FServer:    TResponseDialog;
819       function    GetDefaultInterface: IResponseDialog;
820       constructor Create(AServer: TResponseDialog);
821     protected
822     public
823       property DefaultInterface: IResponseDialog read GetDefaultInterface;
824     published
825     end;
826   {$ENDIF}
827   
828   
829   // *********************************************************************//
830   // The Class CoContextorParticipant provides a Create and CreateRemote method to          
831   // create instances of the default interface IContextParticipant exposed by              
832   // the CoClass ContextorParticipant. The functions are intended to be used by             
833   // clients wishing to automate the CoClass objects exposed by the         
834   // server of this typelibrary.                                            
835   // *********************************************************************//
836     CoContextorParticipant = class
837       class function Create: IContextParticipant;
838       class function CreateRemote(const MachineName: string): IContextParticipant;
839     end;
840   
841   
842   // *********************************************************************//
843   // OLE Server Proxy class declaration
844   // Server Object    : TContextorParticipant
845   // Help String      : ContextorParticipant Class
846   // Default Interface: IContextParticipant
847   // Def. Intf. DISP? : No
848   // Event   Interface: 
849   // TypeFlags        : (2) CanCreate
850   // *********************************************************************//
851   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
852     TContextorParticipantProperties= class;
853   {$ENDIF}
854     TContextorParticipant = class(TOleServer)
855     private
856       FIntf:        IContextParticipant;
857   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
858       FProps:       TContextorParticipantProperties;
859       function      GetServerProperties: TContextorParticipantProperties;
860   {$ENDIF}
861       function      GetDefaultInterface: IContextParticipant;
862     protected
863       procedure InitServerData; override;
864     public
865       constructor Create(AOwner: TComponent); override;
866       destructor  Destroy; override;
867       procedure Connect; override;
868       procedure ConnectTo(svrIntf: IContextParticipant);
869       procedure Disconnect; override;
870       function  ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString;
871       procedure ContextChangesAccepted(contextCoupon: Integer);
872       procedure ContextChangesCanceled(contextCoupon: Integer);
873       procedure CommonContextTerminated;
874       procedure Ping;
875       property  DefaultInterface: IContextParticipant read GetDefaultInterface;
876     published
877   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
878       property Server: TContextorParticipantProperties read GetServerProperties;
879   {$ENDIF}
880     end;
881   
882   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
883   // *********************************************************************//
884   // OLE Server Properties Proxy Class
885   // Server Object    : TContextorParticipant
886   // (This object is used by the IDE's Property Inspector to allow editing
887   //  of the properties of this server)
888   // *********************************************************************//
889    TContextorParticipantProperties = class(TPersistent)
890     private
891       FServer:    TContextorParticipant;
892       function    GetDefaultInterface: IContextParticipant;
893       constructor Create(AServer: TContextorParticipant);
894     protected
895     public
896       property DefaultInterface: IContextParticipant read GetDefaultInterface;
897     published
898     end;
899   {$ENDIF}
900   
901   {
902   procedure Register;
903   }
904   implementation
905   
906   uses ComObj;
907   
908   class function CoContextor.Create: IContextor;
909   begin
910     Result := CreateComObject(CLASS_Contextor) as IContextor;
911   end;
912   
913   class function CoContextor.CreateRemote(const MachineName: string): IContextor;
914   begin
915     Result := CreateRemoteComObject(MachineName, CLASS_Contextor) as IContextor;
916   end;
917   
918   procedure TContextor.InitServerData;
919   const
920     CServerData: TServerData = (
921       ClassID:   '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}';
922       IntfIID:   '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}';
923       EventIID:  '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';
924       LicenseKey: nil;
925       Version: 500);
926   begin
927     ServerData := @CServerData;
928   end;
929   
930   procedure TContextor.Connect;
931   var
932     punk: IUnknown;
933   begin
934     if FIntf = nil then
935     begin
936       punk := GetServer;
937       ConnectEvents(punk);
938       Fintf:= punk as IContextor;
939     end;
940   end;
941   
942   procedure TContextor.ConnectTo(svrIntf: IContextor);
943   begin
944     Disconnect;
945     FIntf := svrIntf;
946     ConnectEvents(FIntf);
947   end;
948   
949   procedure TContextor.Disconnect;
950   begin
951     if Fintf <> nil then
952     begin
953       DisconnectEvents(FIntf);
954       FIntf := nil;
955     end;
956   end;
957   
958   function TContextor.GetDefaultInterface: IContextor;
959   begin
960     if FIntf = nil then
961       Connect;
962     Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
963     Result := FIntf;
964   end;
965   
966   constructor TContextor.Create(AOwner: TComponent);
967   begin
968     inherited Create(AOwner);
969   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
970     FProps := TContextorProperties.Create(Self);
971   {$ENDIF}
972   end;
973   
974   destructor TContextor.Destroy;
975   begin
976   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
977     FProps.Free;
978   {$ENDIF}
979     inherited Destroy;
980   end;
981   
982   {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
983   function TContextor.GetServerProperties: TContextorProperties;
984   begin
985     Result := FProps;
986   end;
987   {$ENDIF}
988   
989   procedure TContextor.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
990   begin
991     case DispID of
992       -1: Exit;  // DISPID_UNKNOWN
993      1: if Assigned(FOnPending) then
994               FOnPending(Self, Params[0] {const IDispatch});
995      2: if Assigned(FOnCommitted) then
996               FOnCommitted(Self);
997      3: if Assigned(FOnCanceled) then
998               FOnCanceled(Self);
999     end; {case DispID}
1000  end;
1001  
1002  function  TContextor.Get_State: ContextorState;
1003  begin
1004    Result := DefaultInterface.Get_State;
1005  end;
1006  
1007  function  TContextor.Get_CurrentContext: IContextItemCollection;
1008  begin
1009    Result := DefaultInterface.Get_CurrentContext;
1010  end;
1011  
1012  function  TContextor.Get_NotificationFilter: WideString;
1013  begin
1014    Result := DefaultInterface.Get_NotificationFilter;
1015  end;
1016  
1017  procedure TContextor.Set_NotificationFilter(const filter: WideString);
1018  begin
1019    DefaultInterface.Set_NotificationFilter(filter);
1020  end;
1021  
1022  function  TContextor.Get_Name: WideString;
1023  begin
1024    Result := DefaultInterface.Get_Name;
1025  end;
1026  
1027  procedure TContextor.Run(const applicationLabel: WideString; const passcode: WideString; 
1028                           survey: WordBool; const initialNotificationFilter: WideString);
1029  begin
1030    DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter);
1031  end;
1032  
1033  procedure TContextor.Suspend;
1034  begin
1035    DefaultInterface.Suspend;
1036  end;
1037  
1038  procedure TContextor.Resume;
1039  begin
1040    DefaultInterface.Resume;
1041  end;
1042  
1043  function  TContextor.GetPrivilege(const subj: WideString): AccessPrivilege;
1044  begin
1045    Result := DefaultInterface.GetPrivilege(subj);
1046  end;
1047  
1048  procedure TContextor.StartContextChange;
1049  begin
1050    DefaultInterface.StartContextChange;
1051  end;
1052  
1053  function  TContextor.EndContextChange(commit: WordBool; 
1054                                        const aContextItemCollection: IContextItemCollection): UserResponse;
1055  begin
1056    Result := DefaultInterface.EndContextChange(commit, aContextItemCollection);
1057  end;
1058  
1059  procedure TContextor.SetSurveyResponse(const reason: WideString);
1060  begin
1061    DefaultInterface.SetSurveyResponse(reason);
1062  end;
1063  
1064  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1065  constructor TContextorProperties.Create(AServer: TContextor);
1066  begin
1067    inherited Create;
1068    FServer := AServer;
1069  end;
1070  
1071  function TContextorProperties.GetDefaultInterface: IContextor;
1072  begin
1073    Result := FServer.DefaultInterface;
1074  end;
1075  
1076  function  TContextorProperties.Get_State: ContextorState;
1077  begin
1078    Result := DefaultInterface.Get_State;
1079  end;
1080  
1081  function  TContextorProperties.Get_CurrentContext: IContextItemCollection;
1082  begin
1083    Result := DefaultInterface.Get_CurrentContext;
1084  end;
1085  
1086  function  TContextorProperties.Get_NotificationFilter: WideString;
1087  begin
1088    Result := DefaultInterface.Get_NotificationFilter;
1089  end;
1090  
1091  procedure TContextorProperties.Set_NotificationFilter(const filter: WideString);
1092  begin
1093    DefaultInterface.Set_NotificationFilter(filter);
1094  end;
1095  
1096  function  TContextorProperties.Get_Name: WideString;
1097  begin
1098    Result := DefaultInterface.Get_Name;
1099  end;
1100  
1101  {$ENDIF}
1102  
1103  procedure TContextorControl.InitControlData;
1104  const
1105    CEventDispIDs: array [0..2] of DWORD = (
1106      $00000001, $00000002, $00000003);
1107    CControlData: TControlData2 = (
1108      ClassID: '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}';
1109      EventIID: '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';
1110      EventCount: 3;
1111      EventDispIDs: @CEventDispIDs;
1112      LicenseKey: nil (*HR:$80004002*);
1113      Flags: $00000000;
1114      Version: 401);
1115  begin
1116    ControlData := @CControlData;
1117    TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnPending) - Cardinal(Self);
1118  end;
1119  
1120  procedure TContextorControl.CreateControl;
1121  
1122    procedure DoCreate;
1123    begin
1124      FIntf := IUnknown(OleObject) as IContextor;
1125    end;
1126  
1127  begin
1128    if FIntf = nil then DoCreate;
1129  end;
1130  
1131  function TContextorControl.GetControlInterface: IContextor;
1132  begin
1133    CreateControl;
1134    Result := FIntf;
1135  end;
1136  
1137  function  TContextorControl.Get_CurrentContext: IContextItemCollection;
1138  begin
1139    Result := DefaultInterface.Get_CurrentContext;
1140  end;
1141  
1142  procedure TContextorControl.Run(const applicationLabel: WideString; const passcode: WideString; 
1143                                  survey: WordBool; const initialNotificationFilter: WideString);
1144  begin
1145    DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter);
1146  end;
1147  
1148  procedure TContextorControl.Suspend;
1149  begin
1150    DefaultInterface.Suspend;
1151  end;
1152  
1153  procedure TContextorControl.Resume;
1154  begin
1155    DefaultInterface.Resume;
1156  end;
1157  
1158  function  TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege;
1159  begin
1160    Result := DefaultInterface.GetPrivilege(subj);
1161  end;
1162  
1163  procedure TContextorControl.StartContextChange;
1164  begin
1165    DefaultInterface.StartContextChange;
1166  end;
1167  
1168  function  TContextorControl.EndContextChange(commit: WordBool; 
1169                                               const aContextItemCollection: IContextItemCollection): UserResponse;
1170  begin
1171    Result := DefaultInterface.EndContextChange(commit, aContextItemCollection);
1172  end;
1173  
1174  procedure TContextorControl.SetSurveyResponse(const reason: WideString);
1175  begin
1176    DefaultInterface.SetSurveyResponse(reason);
1177  end;
1178  
1179  class function CoContextItemCollection.Create: IContextItemCollection;
1180  begin
1181    Result := CreateComObject(CLASS_ContextItemCollection) as IContextItemCollection;
1182  end;
1183  
1184  class function CoContextItemCollection.CreateRemote(const MachineName: string): IContextItemCollection;
1185  begin
1186    Result := CreateRemoteComObject(MachineName, CLASS_ContextItemCollection) as IContextItemCollection;
1187  end;
1188  
1189  procedure TContextItemCollection.InitServerData;
1190  const
1191    CServerData: TServerData = (
1192      ClassID:   '{AC4C0272-615A-11D3-84B5-0000861FDD4F}';
1193      IntfIID:   '{AC4C0271-615A-11D3-84B5-0000861FDD4F}';
1194      EventIID:  '';
1195      LicenseKey: nil;
1196      Version: 500);
1197  begin
1198    ServerData := @CServerData;
1199  end;
1200  
1201  procedure TContextItemCollection.Connect;
1202  var
1203    punk: IUnknown;
1204  begin
1205    if FIntf = nil then
1206    begin
1207      punk := GetServer;
1208      Fintf:= punk as IContextItemCollection;
1209    end;
1210  end;
1211  
1212  procedure TContextItemCollection.ConnectTo(svrIntf: IContextItemCollection);
1213  begin
1214    Disconnect;
1215    FIntf := svrIntf;
1216  end;
1217  
1218  procedure TContextItemCollection.Disconnect;
1219  begin
1220    if Fintf <> nil then
1221    begin
1222      FIntf := nil;
1223    end;
1224  end;
1225  
1226  function TContextItemCollection.GetDefaultInterface: IContextItemCollection;
1227  begin
1228    if FIntf = nil then
1229      Connect;
1230    Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
1231    Result := FIntf;
1232  end;
1233  
1234  constructor TContextItemCollection.Create(AOwner: TComponent);
1235  begin
1236    inherited Create(AOwner);
1237  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1238    FProps := TContextItemCollectionProperties.Create(Self);
1239  {$ENDIF}
1240  end;
1241  
1242  destructor TContextItemCollection.Destroy;
1243  begin
1244  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1245    FProps.Free;
1246  {$ENDIF}
1247    inherited Destroy;
1248  end;
1249  
1250  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1251  function TContextItemCollection.GetServerProperties: TContextItemCollectionProperties;
1252  begin
1253    Result := FProps;
1254  end;
1255  {$ENDIF}
1256  
1257  function  TContextItemCollection.Get__NewEnum: IUnknown;
1258  begin
1259    Result := DefaultInterface.Get__NewEnum;
1260  end;
1261  
1262  function  TContextItemCollection.Count: Integer;
1263  begin
1264    Result := DefaultInterface.Count;
1265  end;
1266  
1267  procedure TContextItemCollection.Add(const aContextItem: IContextItem);
1268  begin
1269    DefaultInterface.Add(aContextItem);
1270  end;
1271  
1272  procedure TContextItemCollection.Remove(const contextItemName: WideString);
1273  begin
1274    DefaultInterface.Remove(contextItemName);
1275  end;
1276  
1277  procedure TContextItemCollection.RemoveAll;
1278  begin
1279    DefaultInterface.RemoveAll;
1280  end;
1281  
1282  function  TContextItemCollection.Present(key: OleVariant): IContextItem;
1283  begin
1284    Result := DefaultInterface.Present(key);
1285  end;
1286  
1287  function  TContextItemCollection.Item(key: OleVariant): IContextItem;
1288  begin
1289    Result := DefaultInterface.Item(key);
1290  end;
1291  
1292  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1293  constructor TContextItemCollectionProperties.Create(AServer: TContextItemCollection);
1294  begin
1295    inherited Create;
1296    FServer := AServer;
1297  end;
1298  
1299  function TContextItemCollectionProperties.GetDefaultInterface: IContextItemCollection;
1300  begin
1301    Result := FServer.DefaultInterface;
1302  end;
1303  
1304  function  TContextItemCollectionProperties.Get__NewEnum: IUnknown;
1305  begin
1306    Result := DefaultInterface.Get__NewEnum;
1307  end;
1308  
1309  {$ENDIF}
1310  
1311  class function CoContextItem.Create: IContextItem;
1312  begin
1313    Result := CreateComObject(CLASS_ContextItem) as IContextItem;
1314  end;
1315  
1316  class function CoContextItem.CreateRemote(const MachineName: string): IContextItem;
1317  begin
1318    Result := CreateRemoteComObject(MachineName, CLASS_ContextItem) as IContextItem;
1319  end;
1320  
1321  procedure TContextItem.InitServerData;
1322  const
1323    CServerData: TServerData = (
1324      ClassID:   '{AC4C0274-615A-11D3-84B5-0000861FDD4F}';
1325      IntfIID:   '{AC4C0273-615A-11D3-84B5-0000861FDD4F}';
1326      EventIID:  '';
1327      LicenseKey: nil;
1328      Version: 500);
1329  begin
1330    ServerData := @CServerData;
1331  end;
1332  
1333  procedure TContextItem.Connect;
1334  var
1335    punk: IUnknown;
1336  begin
1337    if FIntf = nil then
1338    begin
1339      punk := GetServer;
1340      Fintf:= punk as IContextItem;
1341    end;
1342  end;
1343  
1344  procedure TContextItem.ConnectTo(svrIntf: IContextItem);
1345  begin
1346    Disconnect;
1347    FIntf := svrIntf;
1348  end;
1349  
1350  procedure TContextItem.Disconnect;
1351  begin
1352    if Fintf <> nil then
1353    begin
1354      FIntf := nil;
1355    end;
1356  end;
1357  
1358  function TContextItem.GetDefaultInterface: IContextItem;
1359  begin
1360    if FIntf = nil then
1361      Connect;
1362    Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
1363    Result := FIntf;
1364  end;
1365  
1366  constructor TContextItem.Create(AOwner: TComponent);
1367  begin
1368    inherited Create(AOwner);
1369  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1370    FProps := TContextItemProperties.Create(Self);
1371  {$ENDIF}
1372  end;
1373  
1374  destructor TContextItem.Destroy;
1375  begin
1376  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1377    FProps.Free;
1378  {$ENDIF}
1379    inherited Destroy;
1380  end;
1381  
1382  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1383  function TContextItem.GetServerProperties: TContextItemProperties;
1384  begin
1385    Result := FProps;
1386  end;
1387  {$ENDIF}
1388  
1389  function  TContextItem.Get_Subject: WideString;
1390  begin
1391    Result := DefaultInterface.Get_Subject;
1392  end;
1393  
1394  procedure TContextItem.Set_Subject(const pVal: WideString);
1395  begin
1396    DefaultInterface.Set_Subject(pVal);
1397  end;
1398  
1399  function  TContextItem.Get_Role: WideString;
1400  begin
1401    Result := DefaultInterface.Get_Role;
1402  end;
1403  
1404  procedure TContextItem.Set_Role(const pVal: WideString);
1405  begin
1406    DefaultInterface.Set_Role(pVal);
1407  end;
1408  
1409  function  TContextItem.Get_Prefix: WideString;
1410  begin
1411    Result := DefaultInterface.Get_Prefix;
1412  end;
1413  
1414  procedure TContextItem.Set_Prefix(const pVal: WideString);
1415  begin
1416    DefaultInterface.Set_Prefix(pVal);
1417  end;
1418  
1419  function  TContextItem.Get_Suffix: WideString;
1420  begin
1421    Result := DefaultInterface.Get_Suffix;
1422  end;
1423  
1424  procedure TContextItem.Set_Suffix(const pVal: WideString);
1425  begin
1426    DefaultInterface.Set_Suffix(pVal);
1427  end;
1428  
1429  function  TContextItem.Get_Name: WideString;
1430  begin
1431    Result := DefaultInterface.Get_Name;
1432  end;
1433  
1434  procedure TContextItem.Set_Name(const pVal: WideString);
1435  begin
1436    DefaultInterface.Set_Name(pVal);
1437  end;
1438  
1439  function  TContextItem.Get_Value: WideString;
1440  begin
1441    Result := DefaultInterface.Get_Value;
1442  end;
1443  
1444  procedure TContextItem.Set_Value(const pVal: WideString);
1445  begin
1446    DefaultInterface.Set_Value(pVal);
1447  end;
1448  
1449  function  TContextItem.Clone: IContextItem;
1450  begin
1451    Result := DefaultInterface.Clone;
1452  end;
1453  
1454  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1455  constructor TContextItemProperties.Create(AServer: TContextItem);
1456  begin
1457    inherited Create;
1458    FServer := AServer;
1459  end;
1460  
1461  function TContextItemProperties.GetDefaultInterface: IContextItem;
1462  begin
1463    Result := FServer.DefaultInterface;
1464  end;
1465  
1466  function  TContextItemProperties.Get_Subject: WideString;
1467  begin
1468    Result := DefaultInterface.Get_Subject;
1469  end;
1470  
1471  procedure TContextItemProperties.Set_Subject(const pVal: WideString);
1472  begin
1473    DefaultInterface.Set_Subject(pVal);
1474  end;
1475  
1476  function  TContextItemProperties.Get_Role: WideString;
1477  begin
1478    Result := DefaultInterface.Get_Role;
1479  end;
1480  
1481  procedure TContextItemProperties.Set_Role(const pVal: WideString);
1482  begin
1483    DefaultInterface.Set_Role(pVal);
1484  end;
1485  
1486  function  TContextItemProperties.Get_Prefix: WideString;
1487  begin
1488    Result := DefaultInterface.Get_Prefix;
1489  end;
1490  
1491  procedure TContextItemProperties.Set_Prefix(const pVal: WideString);
1492  begin
1493    DefaultInterface.Set_Prefix(pVal);
1494  end;
1495  
1496  function  TContextItemProperties.Get_Suffix: WideString;
1497  begin
1498    Result := DefaultInterface.Get_Suffix;
1499  end;
1500  
1501  procedure TContextItemProperties.Set_Suffix(const pVal: WideString);
1502  begin
1503    DefaultInterface.Set_Suffix(pVal);
1504  end;
1505  
1506  function  TContextItemProperties.Get_Name: WideString;
1507  begin
1508    Result := DefaultInterface.Get_Name;
1509  end;
1510  
1511  procedure TContextItemProperties.Set_Name(const pVal: WideString);
1512  begin
1513    DefaultInterface.Set_Name(pVal);
1514  end;
1515  
1516  function  TContextItemProperties.Get_Value: WideString;
1517  begin
1518    Result := DefaultInterface.Get_Value;
1519  end;
1520  
1521  procedure TContextItemProperties.Set_Value(const pVal: WideString);
1522  begin
1523    DefaultInterface.Set_Value(pVal);
1524  end;
1525  
1526  {$ENDIF}
1527  
1528  class function CoResponseDialog.Create: IResponseDialog;
1529  begin
1530    Result := CreateComObject(CLASS_ResponseDialog) as IResponseDialog;
1531  end;
1532  
1533  class function CoResponseDialog.CreateRemote(const MachineName: string): IResponseDialog;
1534  begin
1535    Result := CreateRemoteComObject(MachineName, CLASS_ResponseDialog) as IResponseDialog;
1536  end;
1537  
1538  procedure TResponseDialog.InitServerData;
1539  const
1540    CServerData: TServerData = (
1541      ClassID:   '{9D33ECF2-8277-11D3-8525-0000861FDD4F}';
1542      IntfIID:   '{9D33ECF1-8277-11D3-8525-0000861FDD4F}';
1543      EventIID:  '';
1544      LicenseKey: nil;
1545      Version: 500);
1546  begin
1547    ServerData := @CServerData;
1548  end;
1549  
1550  procedure TResponseDialog.Connect;
1551  var
1552    punk: IUnknown;
1553  begin
1554    if FIntf = nil then
1555    begin
1556      punk := GetServer;
1557      Fintf:= punk as IResponseDialog;
1558    end;
1559  end;
1560  
1561  procedure TResponseDialog.ConnectTo(svrIntf: IResponseDialog);
1562  begin
1563    Disconnect;
1564    FIntf := svrIntf;
1565  end;
1566  
1567  procedure TResponseDialog.Disconnect;
1568  begin
1569    if Fintf <> nil then
1570    begin
1571      FIntf := nil;
1572    end;
1573  end;
1574  
1575  function TResponseDialog.GetDefaultInterface: IResponseDialog;
1576  begin
1577    if FIntf = nil then
1578      Connect;
1579    Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
1580    Result := FIntf;
1581  end;
1582  
1583  constructor TResponseDialog.Create(AOwner: TComponent);
1584  begin
1585    inherited Create(AOwner);
1586  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1587    FProps := TResponseDialogProperties.Create(Self);
1588  {$ENDIF}
1589  end;
1590  
1591  destructor TResponseDialog.Destroy;
1592  begin
1593  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1594    FProps.Free;
1595  {$ENDIF}
1596    inherited Destroy;
1597  end;
1598  
1599  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1600  function TResponseDialog.GetServerProperties: TResponseDialogProperties;
1601  begin
1602    Result := FProps;
1603  end;
1604  {$ENDIF}
1605  
1606  function  TResponseDialog.ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse;
1607  begin
1608    Result := DefaultInterface.ProcessSurveyResults(responses, noContinue);
1609  end;
1610  
1611  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1612  constructor TResponseDialogProperties.Create(AServer: TResponseDialog);
1613  begin
1614    inherited Create;
1615    FServer := AServer;
1616  end;
1617  
1618  function TResponseDialogProperties.GetDefaultInterface: IResponseDialog;
1619  begin
1620    Result := FServer.DefaultInterface;
1621  end;
1622  
1623  {$ENDIF}
1624  
1625  class function CoContextorParticipant.Create: IContextParticipant;
1626  begin
1627    Result := CreateComObject(CLASS_ContextorParticipant) as IContextParticipant;
1628  end;
1629  
1630  class function CoContextorParticipant.CreateRemote(const MachineName: string): IContextParticipant;
1631  begin
1632    Result := CreateRemoteComObject(MachineName, CLASS_ContextorParticipant) as IContextParticipant;
1633  end;
1634  
1635  procedure TContextorParticipant.InitServerData;
1636  const
1637    CServerData: TServerData = (
1638      ClassID:   '{4BA034A2-D0FA-11D3-818B-0050049598B2}';
1639      IntfIID:   '{3E3DD272-998E-11D0-808D-00A0240943E4}';
1640      EventIID:  '';
1641      LicenseKey: nil;
1642      Version: 500);
1643  begin
1644    ServerData := @CServerData;
1645  end;
1646  
1647  procedure TContextorParticipant.Connect;
1648  var
1649    punk: IUnknown;
1650  begin
1651    if FIntf = nil then
1652    begin
1653      punk := GetServer;
1654      Fintf:= punk as IContextParticipant;
1655    end;
1656  end;
1657  
1658  procedure TContextorParticipant.ConnectTo(svrIntf: IContextParticipant);
1659  begin
1660    Disconnect;
1661    FIntf := svrIntf;
1662  end;
1663  
1664  procedure TContextorParticipant.Disconnect;
1665  begin
1666    if Fintf <> nil then
1667    begin
1668      FIntf := nil;
1669    end;
1670  end;
1671  
1672  function TContextorParticipant.GetDefaultInterface: IContextParticipant;
1673  begin
1674    if FIntf = nil then
1675      Connect;
1676    Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
1677    Result := FIntf;
1678  end;
1679  
1680  constructor TContextorParticipant.Create(AOwner: TComponent);
1681  begin
1682    inherited Create(AOwner);
1683  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1684    FProps := TContextorParticipantProperties.Create(Self);
1685  {$ENDIF}
1686  end;
1687  
1688  destructor TContextorParticipant.Destroy;
1689  begin
1690  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1691    FProps.Free;
1692  {$ENDIF}
1693    inherited Destroy;
1694  end;
1695  
1696  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1697  function TContextorParticipant.GetServerProperties: TContextorParticipantProperties;
1698  begin
1699    Result := FProps;
1700  end;
1701  {$ENDIF}
1702  
1703  function  TContextorParticipant.ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString;
1704  begin
1705    Result := DefaultInterface.ContextChangesPending(contextCoupon, reason);
1706  end;
1707  
1708  procedure TContextorParticipant.ContextChangesAccepted(contextCoupon: Integer);
1709  begin
1710    DefaultInterface.ContextChangesAccepted(contextCoupon);
1711  end;
1712  
1713  procedure TContextorParticipant.ContextChangesCanceled(contextCoupon: Integer);
1714  begin
1715    DefaultInterface.ContextChangesCanceled(contextCoupon);
1716  end;
1717  
1718  procedure TContextorParticipant.CommonContextTerminated;
1719  begin
1720    DefaultInterface.CommonContextTerminated;
1721  end;
1722  
1723  procedure TContextorParticipant.Ping;
1724  begin
1725    DefaultInterface.Ping;
1726  end;
1727  
1728  {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1729  constructor TContextorParticipantProperties.Create(AServer: TContextorParticipant);
1730  begin
1731    inherited Create;
1732    FServer := AServer;
1733  end;
1734  
1735  function TContextorParticipantProperties.GetDefaultInterface: IContextParticipant;
1736  begin
1737    Result := FServer.DefaultInterface;
1738  end;
1739  
1740  {$ENDIF}
1741  {
1742  procedure Register;
1743  begin
1744    RegisterComponents('Kernel',[TContextorControl]);
1745    RegisterComponents('Kernel',[TContextor, TContextItemCollection, TContextItem, TResponseDialog,
1746      TContextorParticipant]);
1747  end;
1748  }
1749  end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


   VERGENCECONTEXTORLib_TLB
                   fFrame┘ 
              CPRSChart┤   
                  fPage┤   
                uOrders┤   
                fODBase┤   
                UBACore┤   
                fOrders┤   
                   uPCE┤   
      fBALocalDiagnoses┤   
             fEncVitals┤   
                fVitals┤   
                 fCover┤   
                 rCover┤   
              fPtSelMsg┤   
                 fPtSel┤   
            fOrdersSign┤   
         fPrintLocation┤   
                  fMeds┤   
                fRptBox┤   
                 fNotes┤   
               fReports┤   
                 fEncnt┤   
                 fProbs┤   
          fReportsPrint┤   
                fGraphs┤   
              fConsults┤   
                fDCSumm┤   
        fReminderDialog┤   
                  fLabs┤   
              fLabPrint┤   
                fReview┤   
            fIconLegend┤   
           fOrdersPrint┤   
               fSurgery┤   
uVA508CPRSCompatibility┤   
           fOrdersRenew┤   
             fODConsult┤   
                fODProc┤   
                 fODRad┤   
                 fODLab┤   
                fODMeds┤   
               fODMedIV┤   
              fODVitals┤   
                fODAuto┤   
                 fOMSet┤   
         fOrdersRelease┤   
              fODMedNVA┤   
         fOrdersOnChart┤   
             fOCSession┤   
              fODActive┤   
               fPCEEdit┘