AIThis

 (Available in 01 TS COM - TS_COM_IUnknown)

Purpose

Get the 'SELF'

Description

Get the 'SELF' of the object, as an abstract 'IUnknown' interface

Source

ACCESS AIThis CLASS TS_IUnknown
LOCAL oAIThis AS TS_AbstractIUnknown
   TSTrace Enter
   IF SELF:IsValidObject
      oAIThis:=SELF
      oAIThis:AddRef( )
   ELSE
      oAIThis:=NULL_OBJECT
   END
   TSTrace Leave
RETURN oAIThis