Class

TContextor

Module

VERGENCECONTEXTORLib_TLB

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TOleServer

Declaration


  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;

Class Hierarchy


Class Fields

Name Type Scope Comments
FIntf Private -
FOnCanceled Simple (unknown) Private -
FOnCommitted Simple (unknown) Private -
FOnPending Private -

Properties

Name Type Scope Comments
CurrentContext Public -
DefaultInterface Public -
Name WideString Public -
NotificationFilter WideString Public -
OnCanceled Simple (unknown) Published -
OnCommitted Simple (unknown) Published -
OnPending Published -
State Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Connect procedure Connect; override; Public -
ConnectTo procedure ConnectTo(svrIntf: IContextor); Public -
Disconnect procedure Disconnect; override; Public -
EndContextChange function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; Public -
Get_CurrentContext function Get_CurrentContext: IContextItemCollection; Protected -
Get_Name function Get_Name: WideString; Protected -
Get_NotificationFilter function Get_NotificationFilter: WideString; Protected -
Get_State function Get_State: ContextorState; Protected -
GetDefaultInterface function GetDefaultInterface: IContextor; Private -
GetPrivilege function GetPrivilege(const subj: WideString): AccessPrivilege; Public -
InitServerData procedure InitServerData; override; Protected -
InvokeEvent procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; Protected -
Resume procedure Resume; Public -
Run procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; const initialNotificationFilter: WideString); Public -
Set_NotificationFilter procedure Set_NotificationFilter(const filter: WideString); Protected -
SetSurveyResponse procedure SetSurveyResponse(const reason: WideString); Public -
StartContextChange procedure StartContextChange; Public -
Suspend procedure Suspend; Public -