AITypeLib

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

ACCESS AITypeLib AS TS_AbstractITypeLib PASCAL CLASS TS_ServerInfo
LOCAL oAITypeLib AS TS_AbstractITypeLib
   TSTrace Enter
   IF SELF:IsValidObject
      oAITypeLib:=SELF:_SuperGlobalData:_AITypeLib
      IF oAITypeLib<>NULL_OBJECT
         #IFDEF TS_TRACETIMED_ENABLE
            _TS_TraceTimedEnter( TS_TT_SYM_EXTERNAL, TS_TT_SYM_ITYPELIB, #AddRef  ; ...
           ... )
         #ENDIF
         oAITypeLib:AddRef( )
         #IFDEF TS_TRACETIMED_ENABLE
            _TS_TraceTimedLeave( TS_TT_SYM_EXTERNAL, TS_TT_SYM_ITYPELIB, #AddRef  ; ...
           ... )
         #ENDIF
      ELSE
         TSTrace Warning "oAITypeLib==NULL_OBJECT"
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      oAITypeLib:=NULL_OBJECT
   END
   TSTrace Leave
RETURN oAITypeLib