InvalidateObject
(Available in 01 TS COM - TS_COM_ServerInfo)
Source
METHOD InvalidateObject( ) AS OBJECT PASCAL CLASS TS_ServerInfo
TSTrace Enter
SUPER:InvalidateObject( )
IF SELF:_COMGlobalData<>NULL_OBJECT .AND. SELF:_SuperGlobalData ; ...
... <>NULL_OBJECT
InterlockedDecrement( SELF:_COMGlobalData:_ServerInfoInstanceCount ; ...
... )
END
SELF:_SuperGlobalData:=NULL_OBJECT
SELF:_COMGlobalData:=NULL_OBJECT
TSTrace Leave
RETURN SELF