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)"