InstanceCount

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

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