ExecUntilQuit
(Available in 01 TS COM - TS_COM_ServerInfo)
Source
METHOD ExecUntilQuit( oDispatch AS OBJECT ) AS TS_ServerInfo PASCAL CLASS TS_ServerInfo
LOCAL lUnRegisterIClassFactoryPointers AS LOGIC
LOCAL aIClassFactoryPointers AS ARRAY
LOCAL aServerInfoCoClasses AS ARRAY
LOCAL lWindow AS LOGIC
LOCAL hResult AS LONG
TSTrace Enter
IF SELF:IsValidObject
InterlockedIncrement( SELF:_COMGlobalData:_ServerInfoInMessageLoop ; ...
... )
IF SELF:_COMGlobalData:_Window==NULL_PTR
lWindow:=TRUE
_TS_ServerInfoWindowCreate( SELF:_COMGlobalData )
ELSE
lWindow:=FALSE
END
lUnRegisterIClassFactoryPointers:=FALSE
IF !SELF:_COMGlobalData:_ServerInfoCoClassesSet
TSTrace ToDo "This is entry code that is not un-done or re-done on re-entry" ; ...
... +"!"
SELF:_COMGlobalData:_ServerInfoCoClassesSet ; ...
... :=TRUE
aServerInfoCoClasses:=SELF:_COMGlobalData:_ServerInfoCoClassesArray
IF LOGIC( _CAST, ALen( aServerInfoCoClasses