ActiveComponentsIncrement

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

METHOD ActiveComponentsIncrement( ) AS LONGINT PASCAL CLASS TS_ServerInfo
LOCAL liCurActiveComponents AS LONGINT
   TSTrace Enter
   IF SELF:IsValidObject
      InterlockedIncrement( SELF:_COMGlobalData:_ServerInfoActiveComponents  ; ...
     ... )
//    TS_ShowActiveComponents()
      IF LOGIC( _CAST, SELF:_COMGlobalData:_ShowActiveComponents  ; ...
     ... )
         TSTrace Shw ExecName( FALSE ), LONGINT( SELF:_COMGlobalData:_ServerInfoActiveComponents  ; ...
        ... )
      END
      liCurActiveComponents:=LONGINT( SELF:_COMGlobalData:_ServerInfoActiveComponents  ; ...
     ... )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      liCurActiveComponents:=0L
   END
   TSTrace Leave
RETURN liCurActiveComponents