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