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