source: cprs/trunk/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas@ 1495

unit VERGENCECONTEXTORLib_TLB;



// ************************************************************************ //

// WARNING                                                                    

// -------                                                                    

// The types declared in this file were generated from data read from a       

// Type Library. If this type library is explicitly or indirectly (via        

// another type library referring to this type library) re-imported, or the   

// 'Refresh' command of the Type Library Editor activated while editing the   

// Type Library, the contents of this file will be regenerated and all        

// manual modifications will be lost.                                         

// ************************************************************************ //



// PASTLWTR : $Revision:   1.88.1.0.1.0  $

// File generated on 2/9/2004 9:12:53 AM from Type Library described below.



// *************************************************************************//

// NOTE:                                                                      

// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  

// which return objects that may need to be explicitly created via a function 

// call prior to any access via the property. These items have been disabled  

// in order to prevent accidental use from within the object inspector. You   

// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   

// removing them from the $IFDEF blocks. However, such items must still be    

// programmatically created via a method of the appropriate CoClass before    

// they can be used.                                                          

// ************************************************************************ //

// Type Lib: D:\Development\BDK32_p40\Source\VergenceContextor.dll (1)

// IID\LCID: {30AFBABD-5FD3-11D3-8727-0060B0B5E137}\0

// Helpfile: 

// DepndLst: 

//   (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)

//   (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)

// Errors:

//   Hint: Member 'Set' of 'IResponseDialogAccessor' changed to 'Set_'

//   Error creating palette bitmap of (TContextor) : Invalid GUID format

//   Error creating palette bitmap of (TContextItemCollection) : Invalid GUID format

//   Error creating palette bitmap of (TContextItem) : Invalid GUID format

//   Error creating palette bitmap of (TResponseDialog) : Invalid GUID format

//   Error creating palette bitmap of (TContextorParticipant) : Invalid GUID format

// ************************************************************************ //

{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 

interface



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



// *********************************************************************//

// GUIDS declared in the TypeLibrary. Following prefixes are used:        

//   Type Libraries     : LIBID_xxxx                                      

//   CoClasses          : CLASS_xxxx                                      

//   DISPInterfaces     : DIID_xxxx                                       

//   Non-DISP interfaces: IID_xxxx                                        

// *********************************************************************//

const

  // TypeLibrary Major and minor versions

  VERGENCECONTEXTORLibMajorVersion = 1;

  VERGENCECONTEXTORLibMinorVersion = 0;



  LIBID_VERGENCECONTEXTORLib: TGUID = '{30AFBABD-5FD3-11D3-8727-0060B0B5E137}';



  DIID__IContextChangesSink: TGUID = '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';

  IID_IContextor: TGUID = '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}';

  IID_IContextParticipant: TGUID = '{3E3DD272-998E-11D0-808D-00A0240943E4}';

  IID_IContextItemCollection: TGUID = '{AC4C0271-615A-11D3-84B5-0000861FDD4F}';

  IID_IContextItem: TGUID = '{AC4C0273-615A-11D3-84B5-0000861FDD4F}';

  IID_IResponseContextChange: TGUID = '{CBC6D968-9F6D-416A-8AA7-99172E588DF0}';

  IID_IResponseDialogAccessor: TGUID = '{86592071-F3BA-11D3-8181-005004A0F801}';

  IID_IContextChangesSink: TGUID = '{0B437E31-620E-11D3-84B6-0000861FDD4F}';

  IID_IResponseDialog: TGUID = '{9D33ECF1-8277-11D3-8525-0000861FDD4F}';

  CLASS_Contextor: TGUID = '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}';

  CLASS_ContextorControl: TGUID = '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}';

  CLASS_ContextItemCollection: TGUID = '{AC4C0272-615A-11D3-84B5-0000861FDD4F}';

  CLASS_ContextItem: TGUID = '{AC4C0274-615A-11D3-84B5-0000861FDD4F}';

  CLASS_ResponseDialog: TGUID = '{9D33ECF2-8277-11D3-8525-0000861FDD4F}';

  IID_ISetHook: TGUID = '{8D879FDD-5FE6-11D3-8727-0060B0B5E137}';

  CLASS_ContextorParticipant: TGUID = '{4BA034A2-D0FA-11D3-818B-0050049598B2}';



// *********************************************************************//

// Declaration of Enumerations defined in Type Library                    

// *********************************************************************//

// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0002

type

  __MIDL___MIDL_itf_VergenceContextor_0000_0002 = TOleEnum;

const

  CsNotRunning = $00000001;

  CsParticipating = $00000002;

  CsSuspended = $00000003;



// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0001

type

  __MIDL___MIDL_itf_VergenceContextor_0000_0001 = TOleEnum;

const

  ApNone = $00000001;

  ApGet = $00000002;

  ApSet = $00000003;



// Constants for enum __MIDL___MIDL_itf_VergenceContextor_0000_0003

type

  __MIDL___MIDL_itf_VergenceContextor_0000_0003 = TOleEnum;

const

  UrCommit = $00000001;

  UrCancel = $00000002;

  UrBreak = $00000003;



type



// *********************************************************************//

// Forward declaration of types defined in TypeLibrary                    

// *********************************************************************//

  _IContextChangesSink = dispinterface;

  IContextor = interface;

  IContextorDisp = dispinterface;

  IContextParticipant = interface;

  IContextParticipantDisp = dispinterface;

  IContextItemCollection = interface;

  IContextItemCollectionDisp = dispinterface;

  IContextItem = interface;

  IContextItemDisp = dispinterface;

  IResponseContextChange = interface;

  IResponseContextChangeDisp = dispinterface;

  IResponseDialogAccessor = interface;

  IResponseDialogAccessorDisp = dispinterface;

  IContextChangesSink = interface;

  IContextChangesSinkDisp = dispinterface;

  IResponseDialog = interface;

  IResponseDialogDisp = dispinterface;

  ISetHook = interface;

  ISetHookDisp = dispinterface;



// *********************************************************************//

// Declaration of CoClasses defined in Type Library                       

// (NOTE: Here we map each CoClass to its Default Interface)              

// *********************************************************************//

  Contextor = IContextor;

  ContextorControl = IContextor;

  ContextItemCollection = IContextItemCollection;

  ContextItem = IContextItem;

  ResponseDialog = IResponseDialog;

  ContextorParticipant = IContextParticipant;





// *********************************************************************//

// Declaration of structures, unions and aliases.                         

// *********************************************************************//



  ContextorState = __MIDL___MIDL_itf_VergenceContextor_0000_0002; 

  AccessPrivilege = __MIDL___MIDL_itf_VergenceContextor_0000_0001; 

  UserResponse = __MIDL___MIDL_itf_VergenceContextor_0000_0003; 



// *********************************************************************//

// DispIntf:  _IContextChangesSink

// Flags:     (4096) Dispatchable

// GUID:      {6BED8971-B3DD-11D3-8736-0060B0B5E137}

// *********************************************************************//

  _IContextChangesSink = dispinterface

    ['{6BED8971-B3DD-11D3-8736-0060B0B5E137}']

    procedure Pending(const aContextItemCollection: IDispatch); dispid 1;

    procedure Committed; dispid 2;

    procedure Canceled; dispid 3;

  end;



// *********************************************************************//

// Interface: IContextor

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {8D879F5D-5FE6-11D3-8727-0060B0B5E137}

// *********************************************************************//

  IContextor = interface(IDispatch)

    ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}']

    procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 

                  const initialNotificationFilter: WideString); safecall;

    procedure Suspend; safecall;

    procedure Resume; safecall;

    function  Get_State: ContextorState; safecall;

    function  GetPrivilege(const subj: WideString): AccessPrivilege; safecall;

    function  Get_CurrentContext: IContextItemCollection; safecall;

    procedure StartContextChange; safecall;

    function  EndContextChange(commit: WordBool; 

                               const aContextItemCollection: IContextItemCollection): UserResponse; safecall;

    procedure SetSurveyResponse(const reason: WideString); safecall;

    function  Get_NotificationFilter: WideString; safecall;

    procedure Set_NotificationFilter(const filter: WideString); safecall;

    function  Get_Name: WideString; safecall;

    property State: ContextorState read Get_State;

    property CurrentContext: IContextItemCollection read Get_CurrentContext;

    property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;

    property Name: WideString read Get_Name;

  end;



// *********************************************************************//

// DispIntf:  IContextorDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {8D879F5D-5FE6-11D3-8727-0060B0B5E137}

// *********************************************************************//

  IContextorDisp = dispinterface

    ['{8D879F5D-5FE6-11D3-8727-0060B0B5E137}']

    procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 

                  const initialNotificationFilter: WideString); dispid 1;

    procedure Suspend; dispid 2;

    procedure Resume; dispid 3;

    property State: ContextorState readonly dispid 4;

    function  GetPrivilege(const subj: WideString): AccessPrivilege; dispid 5;

    property CurrentContext: IContextItemCollection readonly dispid 6;

    procedure StartContextChange; dispid 7;

    function  EndContextChange(commit: WordBool; 

                               const aContextItemCollection: IContextItemCollection): UserResponse; dispid 8;

    procedure SetSurveyResponse(const reason: WideString); dispid 9;

    property NotificationFilter: WideString dispid 10;

    property Name: WideString readonly dispid 11;

  end;



// *********************************************************************//

// Interface: IContextParticipant

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {3E3DD272-998E-11D0-808D-00A0240943E4}

// *********************************************************************//

  IContextParticipant = interface(IDispatch)

    ['{3E3DD272-998E-11D0-808D-00A0240943E4}']

    function  ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall;

    procedure ContextChangesAccepted(contextCoupon: Integer); safecall;

    procedure ContextChangesCanceled(contextCoupon: Integer); safecall;

    procedure CommonContextTerminated; safecall;

    procedure Ping; safecall;

  end;



// *********************************************************************//

// DispIntf:  IContextParticipantDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {3E3DD272-998E-11D0-808D-00A0240943E4}

// *********************************************************************//

  IContextParticipantDisp = dispinterface

    ['{3E3DD272-998E-11D0-808D-00A0240943E4}']

    function  ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808;

    procedure ContextChangesAccepted(contextCoupon: Integer); dispid 1610743809;

    procedure ContextChangesCanceled(contextCoupon: Integer); dispid 1610743810;

    procedure CommonContextTerminated; dispid 1610743811;

    procedure Ping; dispid 1610743812;

  end;



// *********************************************************************//

// Interface: IContextItemCollection

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {AC4C0271-615A-11D3-84B5-0000861FDD4F}

// *********************************************************************//

  IContextItemCollection = interface(IDispatch)

    ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}']

    function  Count: Integer; safecall;

    procedure Add(const aContextItem: IContextItem); safecall;

    procedure Remove(const contextItemName: WideString); safecall;

    procedure RemoveAll; safecall;

    function  Present(key: OleVariant): IContextItem; safecall;

    function  Get__NewEnum: IUnknown; safecall;

    function  Item(key: OleVariant): IContextItem; safecall;

    property _NewEnum: IUnknown read Get__NewEnum;

  end;



// *********************************************************************//

// DispIntf:  IContextItemCollectionDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {AC4C0271-615A-11D3-84B5-0000861FDD4F}

// *********************************************************************//

  IContextItemCollectionDisp = dispinterface

    ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}']

    function  Count: Integer; dispid 1;

    procedure Add(const aContextItem: IContextItem); dispid 2;

    procedure Remove(const contextItemName: WideString); dispid 3;

    procedure RemoveAll; dispid 4;

    function  Present(key: OleVariant): IContextItem; dispid 5;

    property _NewEnum: IUnknown readonly dispid -4;

    function  Item(key: OleVariant): IContextItem; dispid 0;

  end;



// *********************************************************************//

// Interface: IContextItem

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {AC4C0273-615A-11D3-84B5-0000861FDD4F}

// *********************************************************************//

  IContextItem = interface(IDispatch)

    ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}']

    function  Get_Subject: WideString; safecall;

    procedure Set_Subject(const pVal: WideString); safecall;

    function  Get_Role: WideString; safecall;

    procedure Set_Role(const pVal: WideString); safecall;

    function  Get_Prefix: WideString; safecall;

    procedure Set_Prefix(const pVal: WideString); safecall;

    function  Get_Suffix: WideString; safecall;

    procedure Set_Suffix(const pVal: WideString); safecall;

    function  Get_Name: WideString; safecall;

    procedure Set_Name(const pVal: WideString); safecall;

    function  Get_Value: WideString; safecall;

    procedure Set_Value(const pVal: WideString); safecall;

    function  Clone: IContextItem; safecall;

    property Subject: WideString read Get_Subject write Set_Subject;

    property Role: WideString read Get_Role write Set_Role;

    property Prefix: WideString read Get_Prefix write Set_Prefix;

    property Suffix: WideString read Get_Suffix write Set_Suffix;

    property Name: WideString read Get_Name write Set_Name;

    property Value: WideString read Get_Value write Set_Value;

  end;



// *********************************************************************//

// DispIntf:  IContextItemDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {AC4C0273-615A-11D3-84B5-0000861FDD4F}

// *********************************************************************//

  IContextItemDisp = dispinterface

    ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}']

    property Subject: WideString dispid 1;

    property Role: WideString dispid 2;

    property Prefix: WideString dispid 3;

    property Suffix: WideString dispid 4;

    property Name: WideString dispid 5;

    property Value: WideString dispid 6;

    function  Clone: IContextItem; dispid 7;

  end;



// *********************************************************************//

// Interface: IResponseContextChange

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {CBC6D968-9F6D-416A-8AA7-99172E588DF0}

// *********************************************************************//

  IResponseContextChange = interface(IDispatch)

    ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}']

    procedure StartResponseContextChange; safecall;

    function  EndResponseContextChange(commit: WordBool; 

                                       const aContextItemCollection: IContextItemCollection; 

                                       var noContinue: WordBool): OleVariant; safecall;

    procedure CommitContextChange; safecall;

    procedure CancelContextChange; safecall;

  end;



// *********************************************************************//

// DispIntf:  IResponseContextChangeDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {CBC6D968-9F6D-416A-8AA7-99172E588DF0}

// *********************************************************************//

  IResponseContextChangeDisp = dispinterface

    ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}']

    procedure StartResponseContextChange; dispid 1;

    function  EndResponseContextChange(commit: WordBool; 

                                       const aContextItemCollection: IContextItemCollection; 

                                       var noContinue: WordBool): OleVariant; dispid 2;

    procedure CommitContextChange; dispid 3;

    procedure CancelContextChange; dispid 4;

  end;



// *********************************************************************//

// Interface: IResponseDialogAccessor

// Flags:     (4432) Hidden Dual OleAutomation Dispatchable

// GUID:      {86592071-F3BA-11D3-8181-005004A0F801}

// *********************************************************************//

  IResponseDialogAccessor = interface(IDispatch)

    ['{86592071-F3BA-11D3-8181-005004A0F801}']

    procedure Reset; safecall;

    procedure Set_(const aResponseDialog: IResponseDialog); safecall;

  end;



// *********************************************************************//

// DispIntf:  IResponseDialogAccessorDisp

// Flags:     (4432) Hidden Dual OleAutomation Dispatchable

// GUID:      {86592071-F3BA-11D3-8181-005004A0F801}

// *********************************************************************//

  IResponseDialogAccessorDisp = dispinterface

    ['{86592071-F3BA-11D3-8181-005004A0F801}']

    procedure Reset; dispid 1;

    procedure Set_(const aResponseDialog: IResponseDialog); dispid 2;

  end;



// *********************************************************************//

// Interface: IContextChangesSink

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {0B437E31-620E-11D3-84B6-0000861FDD4F}

// *********************************************************************//

  IContextChangesSink = interface(IDispatch)

    ['{0B437E31-620E-11D3-84B6-0000861FDD4F}']

    procedure Pending(const aContextItemCollection: IDispatch); safecall;

    procedure Committed; safecall;

    procedure Canceled; safecall;

  end;



// *********************************************************************//

// DispIntf:  IContextChangesSinkDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {0B437E31-620E-11D3-84B6-0000861FDD4F}

// *********************************************************************//

  IContextChangesSinkDisp = dispinterface

    ['{0B437E31-620E-11D3-84B6-0000861FDD4F}']

    procedure Pending(const aContextItemCollection: IDispatch); dispid 1;

    procedure Committed; dispid 2;

    procedure Canceled; dispid 3;

  end;



// *********************************************************************//

// Interface: IResponseDialog

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {9D33ECF1-8277-11D3-8525-0000861FDD4F}

// *********************************************************************//

  IResponseDialog = interface(IDispatch)

    ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}']

    function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall;

  end;



// *********************************************************************//

// DispIntf:  IResponseDialogDisp

// Flags:     (4416) Dual OleAutomation Dispatchable

// GUID:      {9D33ECF1-8277-11D3-8525-0000861FDD4F}

// *********************************************************************//

  IResponseDialogDisp = dispinterface

    ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}']

    function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1;

  end;



// *********************************************************************//

// Interface: ISetHook

// Flags:     (4432) Hidden Dual OleAutomation Dispatchable

// GUID:      {8D879FDD-5FE6-11D3-8727-0060B0B5E137}

// *********************************************************************//

  ISetHook = interface(IDispatch)

    ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}']

    procedure SetParticipant(const aContextParticipant: IContextParticipant); safecall;

  end;



// *********************************************************************//

// DispIntf:  ISetHookDisp

// Flags:     (4432) Hidden Dual OleAutomation Dispatchable

// GUID:      {8D879FDD-5FE6-11D3-8727-0060B0B5E137}

// *********************************************************************//

  ISetHookDisp = dispinterface

    ['{8D879FDD-5FE6-11D3-8727-0060B0B5E137}']

    procedure SetParticipant(const aContextParticipant: IContextParticipant); dispid 1;

  end;



// *********************************************************************//

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

// *********************************************************************//

  CoContextor = class

    class function Create: IContextor;

    class function CreateRemote(const MachineName: string): IContextor;

  end;



  TContextorPending = procedure(Sender: TObject; var aContextItemCollection: OleVariant) of object;





// *********************************************************************//

// OLE Server Proxy class declaration

// Server Object    : TContextor

// Help String      : Vergence Contextor

// Default Interface: IContextor

// Def. Intf. DISP? : No

// Event   Interface: _IContextChangesSink

// TypeFlags        : (2) CanCreate

// *********************************************************************//

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  TContextorProperties= class;

{$ENDIF}

  TContextor = class(TOleServer)

  private

    FOnPending: TContextorPending;

    FOnCommitted: TNotifyEvent;

    FOnCanceled: TNotifyEvent;

    FIntf:        IContextor;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    FProps:       TContextorProperties;

    function      GetServerProperties: TContextorProperties;

{$ENDIF}

    function      GetDefaultInterface: IContextor;

  protected

    procedure InitServerData; override;

    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;

    function  Get_State: ContextorState;

    function  Get_CurrentContext: IContextItemCollection;

    function  Get_NotificationFilter: WideString;

    procedure Set_NotificationFilter(const filter: WideString);

    function  Get_Name: WideString;

  public

    constructor Create(AOwner: TComponent); override;

    destructor  Destroy; override;

    procedure Connect; override;

    procedure ConnectTo(svrIntf: IContextor);

    procedure Disconnect; override;

    procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 

                  const initialNotificationFilter: WideString);

    procedure Suspend;

    procedure Resume;

    function  GetPrivilege(const subj: WideString): AccessPrivilege;

    procedure StartContextChange;

    function  EndContextChange(commit: WordBool; 

                               const aContextItemCollection: IContextItemCollection): UserResponse;

    procedure SetSurveyResponse(const reason: WideString);

    property  DefaultInterface: IContextor read GetDefaultInterface;

    property State: ContextorState read Get_State;

    property CurrentContext: IContextItemCollection read Get_CurrentContext;

    property Name: WideString read Get_Name;

    property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;

  published

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    property Server: TContextorProperties read GetServerProperties;

{$ENDIF}

    property OnPending: TContextorPending read FOnPending write FOnPending;

    property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted;

    property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled;

  end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

// *********************************************************************//

// OLE Server Properties Proxy Class

// Server Object    : TContextor

// (This object is used by the IDE's Property Inspector to allow editing

//  of the properties of this server)

// *********************************************************************//

 TContextorProperties = class(TPersistent)

  private

    FServer:    TContextor;

    function    GetDefaultInterface: IContextor;

    constructor Create(AServer: TContextor);

  protected

    function  Get_State: ContextorState;

    function  Get_CurrentContext: IContextItemCollection;

    function  Get_NotificationFilter: WideString;

    procedure Set_NotificationFilter(const filter: WideString);

    function  Get_Name: WideString;

  public

    property DefaultInterface: IContextor read GetDefaultInterface;

  published

    property NotificationFilter: WideString read Get_NotificationFilter write Set_NotificationFilter;

  end;

{$ENDIF}







// *********************************************************************//

// OLE Control Proxy class declaration

// Control Name     : TContextorControl

// Help String      : Vergence ContextorControl

// Default Interface: IContextor

// Def. Intf. DISP? : No

// Event   Interface: _IContextChangesSink

// TypeFlags        : (2) CanCreate

// *********************************************************************//

  TContextorControlPending = procedure(Sender: TObject; const aContextItemCollection: IDispatch) of object;



  TContextorControl = class(TOleControl)

  private

    FOnPending: TContextorControlPending;

    FOnCommitted: TNotifyEvent;

    FOnCanceled: TNotifyEvent;

    FIntf: IContextor;

    function  GetControlInterface: IContextor;

  protected

    procedure CreateControl;

    procedure InitControlData; override;

    function  Get_CurrentContext: IContextItemCollection;

  public

    procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; 

                  const initialNotificationFilter: WideString);

    procedure Suspend;

    procedure Resume;

    function  GetPrivilege(const subj: WideString): AccessPrivilege;

    procedure StartContextChange;

    function  EndContextChange(commit: WordBool; 

                               const aContextItemCollection: IContextItemCollection): UserResponse;

    procedure SetSurveyResponse(const reason: WideString);

    property  ControlInterface: IContextor read GetControlInterface;

    property  DefaultInterface: IContextor read GetControlInterface;

    property State: TOleEnum index 4 read GetTOleEnumProp;

    property CurrentContext: IContextItemCollection read Get_CurrentContext;

    property Name: WideString index 11 read GetWideStringProp;

  published

    property NotificationFilter: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;

    property OnPending: TContextorControlPending read FOnPending write FOnPending;

    property OnCommitted: TNotifyEvent read FOnCommitted write FOnCommitted;

    property OnCanceled: TNotifyEvent read FOnCanceled write FOnCanceled;

  end;



// *********************************************************************//

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

// *********************************************************************//

  CoContextItemCollection = class

    class function Create: IContextItemCollection;

    class function CreateRemote(const MachineName: string): IContextItemCollection;

  end;





// *********************************************************************//

// OLE Server Proxy class declaration

// Server Object    : TContextItemCollection

// Help String      : Vergence ContextItemCollection

// Default Interface: IContextItemCollection

// Def. Intf. DISP? : No

// Event   Interface: 

// TypeFlags        : (2) CanCreate

// *********************************************************************//

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  TContextItemCollectionProperties= class;

{$ENDIF}

  TContextItemCollection = class(TOleServer)

  private

    FIntf:        IContextItemCollection;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    FProps:       TContextItemCollectionProperties;

    function      GetServerProperties: TContextItemCollectionProperties;

{$ENDIF}

    function      GetDefaultInterface: IContextItemCollection;

  protected

    procedure InitServerData; override;

    function  Get__NewEnum: IUnknown;

  public

    constructor Create(AOwner: TComponent); override;

    destructor  Destroy; override;

    procedure Connect; override;

    procedure ConnectTo(svrIntf: IContextItemCollection);

    procedure Disconnect; override;

    function  Count: Integer;

    procedure Add(const aContextItem: IContextItem);

    procedure Remove(const contextItemName: WideString);

    procedure RemoveAll;

    function  Present(key: OleVariant): IContextItem;

    function  Item(key: OleVariant): IContextItem;

    property  DefaultInterface: IContextItemCollection read GetDefaultInterface;

    property _NewEnum: IUnknown read Get__NewEnum;

  published

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    property Server: TContextItemCollectionProperties read GetServerProperties;

{$ENDIF}

  end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

// *********************************************************************//

// OLE Server Properties Proxy Class

// Server Object    : TContextItemCollection

// (This object is used by the IDE's Property Inspector to allow editing

//  of the properties of this server)

// *********************************************************************//

 TContextItemCollectionProperties = class(TPersistent)

  private

    FServer:    TContextItemCollection;

    function    GetDefaultInterface: IContextItemCollection;

    constructor Create(AServer: TContextItemCollection);

  protected

    function  Get__NewEnum: IUnknown;

  public

    property DefaultInterface: IContextItemCollection read GetDefaultInterface;

  published

  end;

{$ENDIF}





// *********************************************************************//

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

// *********************************************************************//

  CoContextItem = class

    class function Create: IContextItem;

    class function CreateRemote(const MachineName: string): IContextItem;

  end;





// *********************************************************************//

// OLE Server Proxy class declaration

// Server Object    : TContextItem

// Help String      : Vergence ContextItem

// Default Interface: IContextItem

// Def. Intf. DISP? : No

// Event   Interface: 

// TypeFlags        : (2) CanCreate

// *********************************************************************//

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  TContextItemProperties= class;

{$ENDIF}

  TContextItem = class(TOleServer)

  private

    FIntf:        IContextItem;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    FProps:       TContextItemProperties;

    function      GetServerProperties: TContextItemProperties;

{$ENDIF}

    function      GetDefaultInterface: IContextItem;

  protected

    procedure InitServerData; override;

    function  Get_Subject: WideString;

    procedure Set_Subject(const pVal: WideString);

    function  Get_Role: WideString;

    procedure Set_Role(const pVal: WideString);

    function  Get_Prefix: WideString;

    procedure Set_Prefix(const pVal: WideString);

    function  Get_Suffix: WideString;

    procedure Set_Suffix(const pVal: WideString);

    function  Get_Name: WideString;

    procedure Set_Name(const pVal: WideString);

    function  Get_Value: WideString;

    procedure Set_Value(const pVal: WideString);

  public

    constructor Create(AOwner: TComponent); override;

    destructor  Destroy; override;

    procedure Connect; override;

    procedure ConnectTo(svrIntf: IContextItem);

    procedure Disconnect; override;

    function  Clone: IContextItem;

    property  DefaultInterface: IContextItem read GetDefaultInterface;

    property Subject: WideString read Get_Subject write Set_Subject;

    property Role: WideString read Get_Role write Set_Role;

    property Prefix: WideString read Get_Prefix write Set_Prefix;

    property Suffix: WideString read Get_Suffix write Set_Suffix;

    property Name: WideString read Get_Name write Set_Name;

    property Value: WideString read Get_Value write Set_Value;

  published

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    property Server: TContextItemProperties read GetServerProperties;

{$ENDIF}

  end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

// *********************************************************************//

// OLE Server Properties Proxy Class

// Server Object    : TContextItem

// (This object is used by the IDE's Property Inspector to allow editing

//  of the properties of this server)

// *********************************************************************//

 TContextItemProperties = class(TPersistent)

  private

    FServer:    TContextItem;

    function    GetDefaultInterface: IContextItem;

    constructor Create(AServer: TContextItem);

  protected

    function  Get_Subject: WideString;

    procedure Set_Subject(const pVal: WideString);

    function  Get_Role: WideString;

    procedure Set_Role(const pVal: WideString);

    function  Get_Prefix: WideString;

    procedure Set_Prefix(const pVal: WideString);

    function  Get_Suffix: WideString;

    procedure Set_Suffix(const pVal: WideString);

    function  Get_Name: WideString;

    procedure Set_Name(const pVal: WideString);

    function  Get_Value: WideString;

    procedure Set_Value(const pVal: WideString);

  public

    property DefaultInterface: IContextItem read GetDefaultInterface;

  published

    property Subject: WideString read Get_Subject write Set_Subject;

    property Role: WideString read Get_Role write Set_Role;

    property Prefix: WideString read Get_Prefix write Set_Prefix;

    property Suffix: WideString read Get_Suffix write Set_Suffix;

    property Name: WideString read Get_Name write Set_Name;

    property Value: WideString read Get_Value write Set_Value;

  end;

{$ENDIF}





// *********************************************************************//

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

// *********************************************************************//

  CoResponseDialog = class

    class function Create: IResponseDialog;

    class function CreateRemote(const MachineName: string): IResponseDialog;

  end;





// *********************************************************************//

// OLE Server Proxy class declaration

// Server Object    : TResponseDialog

// Help String      : Vergence ResponseDialog

// Default Interface: IResponseDialog

// Def. Intf. DISP? : No

// Event   Interface: 

// TypeFlags        : (2) CanCreate

// *********************************************************************//

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  TResponseDialogProperties= class;

{$ENDIF}

  TResponseDialog = class(TOleServer)

  private

    FIntf:        IResponseDialog;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    FProps:       TResponseDialogProperties;

    function      GetServerProperties: TResponseDialogProperties;

{$ENDIF}

    function      GetDefaultInterface: IResponseDialog;

  protected

    procedure InitServerData; override;

  public

    constructor Create(AOwner: TComponent); override;

    destructor  Destroy; override;

    procedure Connect; override;

    procedure ConnectTo(svrIntf: IResponseDialog);

    procedure Disconnect; override;

    function  ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse;

    property  DefaultInterface: IResponseDialog read GetDefaultInterface;

  published

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    property Server: TResponseDialogProperties read GetServerProperties;

{$ENDIF}

  end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

// *********************************************************************//

// OLE Server Properties Proxy Class

// Server Object    : TResponseDialog

// (This object is used by the IDE's Property Inspector to allow editing

//  of the properties of this server)

// *********************************************************************//

 TResponseDialogProperties = class(TPersistent)

  private

    FServer:    TResponseDialog;

    function    GetDefaultInterface: IResponseDialog;

    constructor Create(AServer: TResponseDialog);

  protected

  public

    property DefaultInterface: IResponseDialog read GetDefaultInterface;

  published

  end;

{$ENDIF}





// *********************************************************************//

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

// *********************************************************************//

  CoContextorParticipant = class

    class function Create: IContextParticipant;

    class function CreateRemote(const MachineName: string): IContextParticipant;

  end;





// *********************************************************************//

// OLE Server Proxy class declaration

// Server Object    : TContextorParticipant

// Help String      : ContextorParticipant Class

// Default Interface: IContextParticipant

// Def. Intf. DISP? : No

// Event   Interface: 

// TypeFlags        : (2) CanCreate

// *********************************************************************//

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  TContextorParticipantProperties= class;

{$ENDIF}

  TContextorParticipant = class(TOleServer)

  private

    FIntf:        IContextParticipant;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    FProps:       TContextorParticipantProperties;

    function      GetServerProperties: TContextorParticipantProperties;

{$ENDIF}

    function      GetDefaultInterface: IContextParticipant;

  protected

    procedure InitServerData; override;

  public

    constructor Create(AOwner: TComponent); override;

    destructor  Destroy; override;

    procedure Connect; override;

    procedure ConnectTo(svrIntf: IContextParticipant);

    procedure Disconnect; override;

    function  ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString;

    procedure ContextChangesAccepted(contextCoupon: Integer);

    procedure ContextChangesCanceled(contextCoupon: Integer);

    procedure CommonContextTerminated;

    procedure Ping;

    property  DefaultInterface: IContextParticipant read GetDefaultInterface;

  published

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

    property Server: TContextorParticipantProperties read GetServerProperties;

{$ENDIF}

  end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

// *********************************************************************//

// OLE Server Properties Proxy Class

// Server Object    : TContextorParticipant

// (This object is used by the IDE's Property Inspector to allow editing

//  of the properties of this server)

// *********************************************************************//

 TContextorParticipantProperties = class(TPersistent)

  private

    FServer:    TContextorParticipant;

    function    GetDefaultInterface: IContextParticipant;

    constructor Create(AServer: TContextorParticipant);

  protected

  public

    property DefaultInterface: IContextParticipant read GetDefaultInterface;

  published

  end;

{$ENDIF}



{

procedure Register;

}

implementation



uses ComObj;



class function CoContextor.Create: IContextor;

begin

  Result := CreateComObject(CLASS_Contextor) as IContextor;

end;



class function CoContextor.CreateRemote(const MachineName: string): IContextor;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_Contextor) as IContextor;

end;



procedure TContextor.InitServerData;

const

  CServerData: TServerData = (

    ClassID:   '{D5C9CC98-5FDB-11D3-8727-0060B0B5E137}';

    IntfIID:   '{8D879F5D-5FE6-11D3-8727-0060B0B5E137}';

    EventIID:  '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';

    LicenseKey: nil;

    Version: 500);

begin

  ServerData := @CServerData;

end;



procedure TContextor.Connect;

var

  punk: IUnknown;

begin

  if FIntf = nil then

  begin

    punk := GetServer;

    ConnectEvents(punk);

    Fintf:= punk as IContextor;

  end;

end;



procedure TContextor.ConnectTo(svrIntf: IContextor);

begin

  Disconnect;

  FIntf := svrIntf;

  ConnectEvents(FIntf);

end;



procedure TContextor.DisConnect;

begin

  if Fintf <> nil then

  begin

    DisconnectEvents(FIntf);

    FIntf := nil;

  end;

end;



function TContextor.GetDefaultInterface: IContextor;

begin

  if FIntf = nil then

    Connect;

  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');

  Result := FIntf;

end;



constructor TContextor.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps := TContextorProperties.Create(Self);

{$ENDIF}

end;



destructor TContextor.Destroy;

begin

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps.Free;

{$ENDIF}

  inherited Destroy;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

function TContextor.GetServerProperties: TContextorProperties;

begin

  Result := FProps;

end;

{$ENDIF}



procedure TContextor.InvokeEvent(DispID: TDispID; var Params: TVariantArray);

begin

  case DispID of

    -1: Exit;  // DISPID_UNKNOWN

   1: if Assigned(FOnPending) then

            FOnPending(Self, Params[0] {const IDispatch});

   2: if Assigned(FOnCommitted) then

            FOnCommitted(Self);

   3: if Assigned(FOnCanceled) then

            FOnCanceled(Self);

  end; {case DispID}

end;



function  TContextor.Get_State: ContextorState;

begin

  Result := DefaultInterface.Get_State;

end;



function  TContextor.Get_CurrentContext: IContextItemCollection;

begin

  Result := DefaultInterface.Get_CurrentContext;

end;



function  TContextor.Get_NotificationFilter: WideString;

begin

  Result := DefaultInterface.Get_NotificationFilter;

end;



procedure TContextor.Set_NotificationFilter(const filter: WideString);

begin

  DefaultInterface.Set_NotificationFilter(filter);

end;



function  TContextor.Get_Name: WideString;

begin

  Result := DefaultInterface.Get_Name;

end;



procedure TContextor.Run(const applicationLabel: WideString; const passcode: WideString; 

                         survey: WordBool; const initialNotificationFilter: WideString);

begin

  DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter);

end;



procedure TContextor.Suspend;

begin

  DefaultInterface.Suspend;

end;



procedure TContextor.Resume;

begin

  DefaultInterface.Resume;

end;



function  TContextor.GetPrivilege(const subj: WideString): AccessPrivilege;

begin

  Result := DefaultInterface.GetPrivilege(subj);

end;



procedure TContextor.StartContextChange;

begin

  DefaultInterface.StartContextChange;

end;



function  TContextor.EndContextChange(commit: WordBool; 

                                      const aContextItemCollection: IContextItemCollection): UserResponse;

begin

  Result := DefaultInterface.EndContextChange(commit, aContextItemCollection);

end;



procedure TContextor.SetSurveyResponse(const reason: WideString);

begin

  DefaultInterface.SetSurveyResponse(reason);

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

constructor TContextorProperties.Create(AServer: TContextor);

begin

  inherited Create;

  FServer := AServer;

end;



function TContextorProperties.GetDefaultInterface: IContextor;

begin

  Result := FServer.DefaultInterface;

end;



function  TContextorProperties.Get_State: ContextorState;

begin

  Result := DefaultInterface.Get_State;

end;



function  TContextorProperties.Get_CurrentContext: IContextItemCollection;

begin

  Result := DefaultInterface.Get_CurrentContext;

end;



function  TContextorProperties.Get_NotificationFilter: WideString;

begin

  Result := DefaultInterface.Get_NotificationFilter;

end;



procedure TContextorProperties.Set_NotificationFilter(const filter: WideString);

begin

  DefaultInterface.Set_NotificationFilter(filter);

end;



function  TContextorProperties.Get_Name: WideString;

begin

  Result := DefaultInterface.Get_Name;

end;



{$ENDIF}



procedure TContextorControl.InitControlData;

const

  CEventDispIDs: array [0..2] of DWORD = (

    $00000001, $00000002, $00000003);

  CControlData: TControlData2 = (

    ClassID: '{8778ACF7-5CA9-11D3-8727-0060B0B5E137}';

    EventIID: '{6BED8971-B3DD-11D3-8736-0060B0B5E137}';

    EventCount: 3;

    EventDispIDs: @CEventDispIDs;

    LicenseKey: nil (*HR:$80004002*);

    Flags: $00000000;

    Version: 401);

begin

  ControlData := @CControlData;

  TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnPending) - Cardinal(Self);

end;



procedure TContextorControl.CreateControl;



  procedure DoCreate;

  begin

    FIntf := IUnknown(OleObject) as IContextor;

  end;



begin

  if FIntf = nil then DoCreate;

end;



function TContextorControl.GetControlInterface: IContextor;

begin

  CreateControl;

  Result := FIntf;

end;



function  TContextorControl.Get_CurrentContext: IContextItemCollection;

begin

  Result := DefaultInterface.Get_CurrentContext;

end;



procedure TContextorControl.Run(const applicationLabel: WideString; const passcode: WideString; 

                                survey: WordBool; const initialNotificationFilter: WideString);

begin

  DefaultInterface.Run(applicationLabel, passcode, survey, initialNotificationFilter);

end;



procedure TContextorControl.Suspend;

begin

  DefaultInterface.Suspend;

end;



procedure TContextorControl.Resume;

begin

  DefaultInterface.Resume;

end;



function  TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege;

begin

  Result := DefaultInterface.GetPrivilege(subj);

end;



procedure TContextorControl.StartContextChange;

begin

  DefaultInterface.StartContextChange;

end;



function  TContextorControl.EndContextChange(commit: WordBool; 

                                             const aContextItemCollection: IContextItemCollection): UserResponse;

begin

  Result := DefaultInterface.EndContextChange(commit, aContextItemCollection);

end;



procedure TContextorControl.SetSurveyResponse(const reason: WideString);

begin

  DefaultInterface.SetSurveyResponse(reason);

end;



class function CoContextItemCollection.Create: IContextItemCollection;

begin

  Result := CreateComObject(CLASS_ContextItemCollection) as IContextItemCollection;

end;



class function CoContextItemCollection.CreateRemote(const MachineName: string): IContextItemCollection;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_ContextItemCollection) as IContextItemCollection;

end;



procedure TContextItemCollection.InitServerData;

const

  CServerData: TServerData = (

    ClassID:   '{AC4C0272-615A-11D3-84B5-0000861FDD4F}';

    IntfIID:   '{AC4C0271-615A-11D3-84B5-0000861FDD4F}';

    EventIID:  '';

    LicenseKey: nil;

    Version: 500);

begin

  ServerData := @CServerData;

end;



procedure TContextItemCollection.Connect;

var

  punk: IUnknown;

begin

  if FIntf = nil then

  begin

    punk := GetServer;

    Fintf:= punk as IContextItemCollection;

  end;

end;



procedure TContextItemCollection.ConnectTo(svrIntf: IContextItemCollection);

begin

  Disconnect;

  FIntf := svrIntf;

end;



procedure TContextItemCollection.DisConnect;

begin

  if Fintf <> nil then

  begin

    FIntf := nil;

  end;

end;



function TContextItemCollection.GetDefaultInterface: IContextItemCollection;

begin

  if FIntf = nil then

    Connect;

  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');

  Result := FIntf;

end;



constructor TContextItemCollection.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps := TContextItemCollectionProperties.Create(Self);

{$ENDIF}

end;



destructor TContextItemCollection.Destroy;

begin

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps.Free;

{$ENDIF}

  inherited Destroy;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

function TContextItemCollection.GetServerProperties: TContextItemCollectionProperties;

begin

  Result := FProps;

end;

{$ENDIF}



function  TContextItemCollection.Get__NewEnum: IUnknown;

begin

  Result := DefaultInterface.Get__NewEnum;

end;



function  TContextItemCollection.Count: Integer;

begin

  Result := DefaultInterface.Count;

end;



procedure TContextItemCollection.Add(const aContextItem: IContextItem);

begin

  DefaultInterface.Add(aContextItem);

end;



procedure TContextItemCollection.Remove(const contextItemName: WideString);

begin

  DefaultInterface.Remove(contextItemName);

end;



procedure TContextItemCollection.RemoveAll;

begin

  DefaultInterface.RemoveAll;

end;



function  TContextItemCollection.Present(key: OleVariant): IContextItem;

begin

  Result := DefaultInterface.Present(key);

end;



function  TContextItemCollection.Item(key: OleVariant): IContextItem;

begin

  Result := DefaultInterface.Item(key);

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

constructor TContextItemCollectionProperties.Create(AServer: TContextItemCollection);

begin

  inherited Create;

  FServer := AServer;

end;



function TContextItemCollectionProperties.GetDefaultInterface: IContextItemCollection;

begin

  Result := FServer.DefaultInterface;

end;



function  TContextItemCollectionProperties.Get__NewEnum: IUnknown;

begin

  Result := DefaultInterface.Get__NewEnum;

end;



{$ENDIF}



class function CoContextItem.Create: IContextItem;

begin

  Result := CreateComObject(CLASS_ContextItem) as IContextItem;

end;



class function CoContextItem.CreateRemote(const MachineName: string): IContextItem;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_ContextItem) as IContextItem;

end;



procedure TContextItem.InitServerData;

const

  CServerData: TServerData = (

    ClassID:   '{AC4C0274-615A-11D3-84B5-0000861FDD4F}';

    IntfIID:   '{AC4C0273-615A-11D3-84B5-0000861FDD4F}';

    EventIID:  '';

    LicenseKey: nil;

    Version: 500);

begin

  ServerData := @CServerData;

end;



procedure TContextItem.Connect;

var

  punk: IUnknown;

begin

  if FIntf = nil then

  begin

    punk := GetServer;

    Fintf:= punk as IContextItem;

  end;

end;



procedure TContextItem.ConnectTo(svrIntf: IContextItem);

begin

  Disconnect;

  FIntf := svrIntf;

end;



procedure TContextItem.DisConnect;

begin

  if Fintf <> nil then

  begin

    FIntf := nil;

  end;

end;



function TContextItem.GetDefaultInterface: IContextItem;

begin

  if FIntf = nil then

    Connect;

  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');

  Result := FIntf;

end;



constructor TContextItem.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps := TContextItemProperties.Create(Self);

{$ENDIF}

end;



destructor TContextItem.Destroy;

begin

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps.Free;

{$ENDIF}

  inherited Destroy;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

function TContextItem.GetServerProperties: TContextItemProperties;

begin

  Result := FProps;

end;

{$ENDIF}



function  TContextItem.Get_Subject: WideString;

begin

  Result := DefaultInterface.Get_Subject;

end;



procedure TContextItem.Set_Subject(const pVal: WideString);

begin

  DefaultInterface.Set_Subject(pVal);

end;



function  TContextItem.Get_Role: WideString;

begin

  Result := DefaultInterface.Get_Role;

end;



procedure TContextItem.Set_Role(const pVal: WideString);

begin

  DefaultInterface.Set_Role(pVal);

end;



function  TContextItem.Get_Prefix: WideString;

begin

  Result := DefaultInterface.Get_Prefix;

end;



procedure TContextItem.Set_Prefix(const pVal: WideString);

begin

  DefaultInterface.Set_Prefix(pVal);

end;



function  TContextItem.Get_Suffix: WideString;

begin

  Result := DefaultInterface.Get_Suffix;

end;



procedure TContextItem.Set_Suffix(const pVal: WideString);

begin

  DefaultInterface.Set_Suffix(pVal);

end;



function  TContextItem.Get_Name: WideString;

begin

  Result := DefaultInterface.Get_Name;

end;



procedure TContextItem.Set_Name(const pVal: WideString);

begin

  DefaultInterface.Set_Name(pVal);

end;



function  TContextItem.Get_Value: WideString;

begin

  Result := DefaultInterface.Get_Value;

end;



procedure TContextItem.Set_Value(const pVal: WideString);

begin

  DefaultInterface.Set_Value(pVal);

end;



function  TContextItem.Clone: IContextItem;

begin

  Result := DefaultInterface.Clone;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

constructor TContextItemProperties.Create(AServer: TContextItem);

begin

  inherited Create;

  FServer := AServer;

end;



function TContextItemProperties.GetDefaultInterface: IContextItem;

begin

  Result := FServer.DefaultInterface;

end;



function  TContextItemProperties.Get_Subject: WideString;

begin

  Result := DefaultInterface.Get_Subject;

end;



procedure TContextItemProperties.Set_Subject(const pVal: WideString);

begin

  DefaultInterface.Set_Subject(pVal);

end;



function  TContextItemProperties.Get_Role: WideString;

begin

  Result := DefaultInterface.Get_Role;

end;



procedure TContextItemProperties.Set_Role(const pVal: WideString);

begin

  DefaultInterface.Set_Role(pVal);

end;



function  TContextItemProperties.Get_Prefix: WideString;

begin

  Result := DefaultInterface.Get_Prefix;

end;



procedure TContextItemProperties.Set_Prefix(const pVal: WideString);

begin

  DefaultInterface.Set_Prefix(pVal);

end;



function  TContextItemProperties.Get_Suffix: WideString;

begin

  Result := DefaultInterface.Get_Suffix;

end;



procedure TContextItemProperties.Set_Suffix(const pVal: WideString);

begin

  DefaultInterface.Set_Suffix(pVal);

end;



function  TContextItemProperties.Get_Name: WideString;

begin

  Result := DefaultInterface.Get_Name;

end;



procedure TContextItemProperties.Set_Name(const pVal: WideString);

begin

  DefaultInterface.Set_Name(pVal);

end;



function  TContextItemProperties.Get_Value: WideString;

begin

  Result := DefaultInterface.Get_Value;

end;



procedure TContextItemProperties.Set_Value(const pVal: WideString);

begin

  DefaultInterface.Set_Value(pVal);

end;



{$ENDIF}



class function CoResponseDialog.Create: IResponseDialog;

begin

  Result := CreateComObject(CLASS_ResponseDialog) as IResponseDialog;

end;



class function CoResponseDialog.CreateRemote(const MachineName: string): IResponseDialog;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_ResponseDialog) as IResponseDialog;

end;



procedure TResponseDialog.InitServerData;

const

  CServerData: TServerData = (

    ClassID:   '{9D33ECF2-8277-11D3-8525-0000861FDD4F}';

    IntfIID:   '{9D33ECF1-8277-11D3-8525-0000861FDD4F}';

    EventIID:  '';

    LicenseKey: nil;

    Version: 500);

begin

  ServerData := @CServerData;

end;



procedure TResponseDialog.Connect;

var

  punk: IUnknown;

begin

  if FIntf = nil then

  begin

    punk := GetServer;

    Fintf:= punk as IResponseDialog;

  end;

end;



procedure TResponseDialog.ConnectTo(svrIntf: IResponseDialog);

begin

  Disconnect;

  FIntf := svrIntf;

end;



procedure TResponseDialog.DisConnect;

begin

  if Fintf <> nil then

  begin

    FIntf := nil;

  end;

end;



function TResponseDialog.GetDefaultInterface: IResponseDialog;

begin

  if FIntf = nil then

    Connect;

  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');

  Result := FIntf;

end;



constructor TResponseDialog.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps := TResponseDialogProperties.Create(Self);

{$ENDIF}

end;



destructor TResponseDialog.Destroy;

begin

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps.Free;

{$ENDIF}

  inherited Destroy;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

function TResponseDialog.GetServerProperties: TResponseDialogProperties;

begin

  Result := FProps;

end;

{$ENDIF}



function  TResponseDialog.ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse;

begin

  Result := DefaultInterface.ProcessSurveyResults(responses, noContinue);

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

constructor TResponseDialogProperties.Create(AServer: TResponseDialog);

begin

  inherited Create;

  FServer := AServer;

end;



function TResponseDialogProperties.GetDefaultInterface: IResponseDialog;

begin

  Result := FServer.DefaultInterface;

end;



{$ENDIF}



class function CoContextorParticipant.Create: IContextParticipant;

begin

  Result := CreateComObject(CLASS_ContextorParticipant) as IContextParticipant;

end;



class function CoContextorParticipant.CreateRemote(const MachineName: string): IContextParticipant;

begin

  Result := CreateRemoteComObject(MachineName, CLASS_ContextorParticipant) as IContextParticipant;

end;



procedure TContextorParticipant.InitServerData;

const

  CServerData: TServerData = (

    ClassID:   '{4BA034A2-D0FA-11D3-818B-0050049598B2}';

    IntfIID:   '{3E3DD272-998E-11D0-808D-00A0240943E4}';

    EventIID:  '';

    LicenseKey: nil;

    Version: 500);

begin

  ServerData := @CServerData;

end;



procedure TContextorParticipant.Connect;

var

  punk: IUnknown;

begin

  if FIntf = nil then

  begin

    punk := GetServer;

    Fintf:= punk as IContextParticipant;

  end;

end;



procedure TContextorParticipant.ConnectTo(svrIntf: IContextParticipant);

begin

  Disconnect;

  FIntf := svrIntf;

end;



procedure TContextorParticipant.DisConnect;

begin

  if Fintf <> nil then

  begin

    FIntf := nil;

  end;

end;



function TContextorParticipant.GetDefaultInterface: IContextParticipant;

begin

  if FIntf = nil then

    Connect;

  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');

  Result := FIntf;

end;



constructor TContextorParticipant.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps := TContextorParticipantProperties.Create(Self);

{$ENDIF}

end;



destructor TContextorParticipant.Destroy;

begin

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

  FProps.Free;

{$ENDIF}

  inherited Destroy;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

function TContextorParticipant.GetServerProperties: TContextorParticipantProperties;

begin

  Result := FProps;

end;

{$ENDIF}



function  TContextorParticipant.ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString;

begin

  Result := DefaultInterface.ContextChangesPending(contextCoupon, reason);

end;



procedure TContextorParticipant.ContextChangesAccepted(contextCoupon: Integer);

begin

  DefaultInterface.ContextChangesAccepted(contextCoupon);

end;



procedure TContextorParticipant.ContextChangesCanceled(contextCoupon: Integer);

begin

  DefaultInterface.ContextChangesCanceled(contextCoupon);

end;



procedure TContextorParticipant.CommonContextTerminated;

begin

  DefaultInterface.CommonContextTerminated;

end;



procedure TContextorParticipant.Ping;

begin

  DefaultInterface.Ping;

end;



{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}

constructor TContextorParticipantProperties.Create(AServer: TContextorParticipant);

begin

  inherited Create;

  FServer := AServer;

end;



function TContextorParticipantProperties.GetDefaultInterface: IContextParticipant;

begin

  Result := FServer.DefaultInterface;

end;



{$ENDIF}

{

procedure Register;

begin

  RegisterComponents('Kernel',[TContextorControl]);

  RegisterComponents('Kernel',[TContextor, TContextItemCollection, TContextItem, TResponseDialog,

    TContextorParticipant]);

end;

}

end.