AddCoClass

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

METHOD AddCoClass( usymcCoClass AS USUAL, pstruCoClass AS _WinGUID ) AS TS_ServerInfo  ; ...
...PASCAL CLASS TS_ServerInfo
LOCAL aServerInfoCoClasses AS ARRAY
   TSTrace Enter
   IF SELF:IsValidObject
      IF SELF:_COMGlobalData:_ServerInfoCoClassesSet
         TSTrace Warning "SELF:_COMGlobalData:_ServerInfoCoClassesSet"
         SELF:InvalidateObject( )
      ELSE
         aServerInfoCoClasses:=SELF:_COMGlobalData:_ServerInfoCoClassesArray
         DO CASE
         CASE Empty( usymcCoClass ) .OR. pstruCoClass==NULL_PTR
            TSTrace Warning "Empty(usymcCoClass) .OR. pstruCoClass==NULL_PTR"
            SELF:InvalidateObject( )
         CASE IsSymbol( usymcCoClass )
            AAdd( aServerInfoCoClasses, { usymcCoClass, pstruCoClass } )
         CASE IsString( usymcCoClass )
            AAdd( aServerInfoCoClasses, { usymcCoClass, pstruCoClass } )
         OTHERWISE
            TSTrace Warning "!IsSymbol(usymcCoClass) .AND. !IsString(usymcCoClass)"
            SELF:InvalidateObject( )
         END
         aServerInfoCoClasses:=NULL_ARRAY
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
   END
   TSTrace Leave
RETURN SELF