IComponent

(Available in 01 TS COM - TS_COM_IUnknown)

Purpose

Gives the 'Component' object

Syntax

oComponent:=oIObject:Component

Description

The component object ( also refered to as CLS-object ) is defined as the object that is the owner of all objects in a given owber/owneds tree. For COM client-side development this access serves a convinience only, for COM server-side development this access should refere to the CLS-object.

Returns

Instance of 'TS_IUnknown'

Example

oComponent:=oIObject:Component

Source

ACCESS IComponent CLASS TS_IUnknown
LOCAL oIComponent AS TS_IUnknown
   TSTrace Enter
   IF SELF:IsValidObject
      IF SELF:_IOwner<>NULL_OBJECT
         oIComponent:=SELF:_IOwner:IComponent
      ELSE
         oIComponent:=SELF
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      oIComponent:=NULL_OBJECT
   END
   TSTrace Leave
RETURN oIComponent