Existing

(Available in 01 TS COM - TS_COM_ServerInfoGuard)

Source

METHOD Existing( ) AS TS_ServerInfo PASCAL CLASS TS_ServerInfoGuard
LOCAL oCOMGlobalData AS _TS_COMGlobalData
LOCAL oServerInfo AS TS_ServerInfo
   TSTrace Enter
   oCOMGlobalData:=_TS_ModuleGetCOMGlobalData( )
   #IFDEF TS_COMGLOBALDATA_CRITICALSECTION
      EnterCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
   #ENDIF
   oServerInfo:=oCOMGlobalData:_ServerInfoServerInfoObject
   IF !LOGIC( _CAST, LONGINT( oCOMGlobalData:_ServerInfoUseCounter ) )
      #IFDEF TS_COMGLOBALDATA_CRITICALSECTION
         EnterCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection  ; ...
        ... )
      #ENDIF
   END
   InterlockedIncrement( oCOMGlobalData:_ServerInfoUseCounter )
   #IFDEF TS_COMGLOBALDATA_CRITICALSECTION
      LeaveCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
   #ENDIF
   TSTrace Leave
RETURN oServerInfo