IsValidObject

 (Available in 01 TS COM - TS_COM_ServerInfo)

Source

ACCESS IsValidObject AS LOGIC PASCAL CLASS TS_ServerInfo
LOCAL lIsValidObject AS LOGIC
   TSTrace Enter
   DO CASE
   CASE SELF:_COMGlobalData==NULL_OBJECT
      TSTrace Warning NB Debug "SELF:_COMGlobalData==NULL_OBJECT"
      lIsValidObject:=FALSE
   CASE SELF:_SuperGlobalData==NULL_OBJECT
      TSTrace Warning NB Debug "SELF:_SuperGlobalData==NULL_OBJECT"
      lIsValidObject:=FALSE
   OTHERWISE
      lIsValidObject:=SUPER:IsValidObject
   END
   TSTrace Leave
RETURN lIsValidObject