AIThis

(Available in 01 TS COM - TS_COM_InterfaceSafe)

Purpose

Get ( if availabe ) the 'AbstractISelf'-interface of the contained object

Syntax

oAIUnknown:=oInterfaceSafe:AIThis

Description

The property exports the encloses interface and enshures proper ref-counting.

Returns

An instance of 'TS_AbstractIUnknown'

Source

ACCESS AIThis AS TS_AbstractIUnknown PASCAL CLASS TS_InterfaceSafe
LOCAL oAIThis AS TS_AbstractIUnknown
   TSTrace Enter
   IF SELF:FInit
      oAIThis:=SELF:_AIUnknown
      IF oAIThis<>NULL_OBJECT
         oAIThis:AddRef( )
      ELSE
         TSTrace Warning "oAIThis==NULL_OBJECT"
      END
   ELSE
      TSTrace Warning "!SELF:FInit"
      oAIThis:=NULL_OBJECT
   END
   TSTrace Leave
RETURN oAIThis