ActiveComponents

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

ACCESS ActiveComponents AS LONGINT PASCAL CLASS TS_ServerInfo
LOCAL liCurActiveComponents AS LONGINT
   TSTrace Enter
   IF SELF:IsValidObject
      liCurActiveComponents:=LONGINT( SELF:_COMGlobalData:_ServerInfoActiveComponents  ; ...
     ... )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      liCurActiveComponents:=0L
   END
   TSTrace Leave
RETURN liCurActiveComponents