AITypeLib

 (Available in 01 TS COM - TS_COM_InterfaceSafe)

Purpose

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

Syntax

oAITypeLib:=oInterfaceSafe:AITypeLib

Description

The property uses the 'SELF:AGetInterface()' method to get the requested interface, this access provides easy usage of the 'TS_InterfaceSafe'.

Returns

An instance of 'TS_AbstractITypeLib'

Source

ACCESS AITypeLib AS TS_AbstractITypeLib PASCAL CLASS TS_InterfaceSafe
LOCAL oCOMGlobalData AS _TS_COMGlobalData
LOCAL oAITypeLib AS TS_AbstractITypeLib
   TSTrace Enter
   oCOMGlobalData:=_TS_ModuleGetCOMGlobalData( )
   #IFDEF TS_COMGLOBALDATA_CRITICALSECTION
      EnterCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
   #ENDIF
   OBJECT( @oAITypeLib ):=SELF:AGetInterface( TS_GUID_ITypeLib ; ...
  ... ( ) )
   #IFDEF TS_COMGLOBALDATA_CRITICALSECTION
      LeaveCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
   #ENDIF
   TSTrace Leave
RETURN oAITypeLib