AISource

(Available in 01 TS COM - TS_COM_ISink)

Purpose

Get the source interface object

Syntax

oAISource:=oSomeISink:AISource

Description

Get the source interface object. The source object for the 'ISink' interface is the object that is generating the events handled by the 'ISink' interface.

Returns

oAISource = TS_AbstractIUnknown

Example

LOCAL oAISource AS TS_AbstractIUnknown
oAISource:=oSomeISink:AISource
IF oAISource<>NULL_OBJECT
// Start using the 'oAISource' interface
oAISource:Release( )
END

Source

ACCESS AISource AS TS_AbstractIUnknown PASCAL CLASS TS_ISink
LOCAL oAISource AS TS_AbstractIUnknown
   TSTrace Enter
   IF SELF:_AISource<>NULL_OBJECT
      oAISource:=SELF:_AISource
      #IFDEF TS_TRACETIMED_ENABLE
         _TS_TraceTimedEnter( TS_TT_SYM_EXTERNAL, TS_TT_SYM_IUNKNOWN, #AddRef )
      #ENDIF
      oAISource:AddRef( )
      #IFDEF TS_TRACETIMED_ENABLE
         _TS_TraceTimedLeave( TS_TT_SYM_EXTERNAL, TS_TT_SYM_IUNKNOWN, #AddRef )
      #ENDIF
   ELSE
      TStrace Warning "SELF:_AISource==NULL_OBJECT"
      oAISource:=NULL_OBJECT
   END
   TSTrace Leave
RETURN oAISource