Class

TContextorParticipant

Module

VERGENCECONTEXTORLib_TLB

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TOleServer

Declaration


  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;

Class Hierarchy


Class Fields

Name Type Scope Comments
FIntf Private -

Properties

Name Type Scope Comments
DefaultInterface 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
CommonContextTerminated procedure CommonContextTerminated; Public -
Connect procedure Connect; override; Public -
ConnectTo procedure ConnectTo(svrIntf: IContextParticipant); Public -
ContextChangesAccepted procedure ContextChangesAccepted(contextCoupon: Integer); Public -
ContextChangesCanceled procedure ContextChangesCanceled(contextCoupon: Integer); Public -
ContextChangesPending function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; Public -
Disconnect procedure Disconnect; override; Public -
GetDefaultInterface function GetDefaultInterface: IContextParticipant; Private -
InitServerData procedure InitServerData; override; Protected -
Ping procedure Ping; Public -