Class TAutoObjectWithEvents (unit uComEvents)

Inherits from

TAutoObject

IObjectSafety

Constructors



Functions

destructor Destroy;

setup for events if we have events to hook to

procedure Initialize;

if

procedure EventConnect( const Sink: IUnknown; Connecting: Boolean );

TAutoObjectWithEvents

procedure EventSinkChanged( const Events: IUnknown );


function GetInterfaceSafetyOptions( const iid: TGUID; out dwSupportedOptions: DWord; out dwEnabledOptions: DWord ): HResult;

get rid of our connection point container (watch for _Release problems

function ObjQueryInterface( const iid: TGUID; out Obj ): HResult;

answer a request for sinking

function SetInterfaceSafetyOptions( const iid: TGUID; dwOptionSetMask: DWord; dwEnabledOptions: DWord ): HResult;


Properties

property EventFactory : TAutoObjectWithEventsFactory


Events

Variables

FConnectionPoints : TConnectionPoints;


FEventFactory : TAutoObjectWithEventsFactory;

should be private

FEventSink : IUnknown;


FUseDispatchSilencer : Boolean;



Constructors


Functions


destructor Destroy;

setup for events if we have events to hook to


procedure Initialize;

if


procedure EventConnect( const Sink: IUnknown; Connecting: Boolean );

TAutoObjectWithEvents


procedure EventSinkChanged( const Events: IUnknown );


function GetInterfaceSafetyOptions( const iid: TGUID; out dwSupportedOptions: DWord; out dwEnabledOptions: DWord ): HResult;

get rid of our connection point container (watch for _Release problems


function ObjQueryInterface( const iid: TGUID; out Obj ): HResult;

answer a request for sinking


function SetInterfaceSafetyOptions( const iid: TGUID; dwOptionSetMask: DWord; dwEnabledOptions: DWord ): HResult;


Properties


property EventFactory : TAutoObjectWithEventsFactory


Events


Variables


FConnectionPoints : TConnectionPoints;


FEventFactory : TAutoObjectWithEventsFactory;

should be private


FEventSink : IUnknown;


FUseDispatchSilencer : Boolean;