LoadTypeLib
(Available in 01 TS COM - TS_COM_ServerInfo)
Source
METHOD LoadTypeLib( pstruTypeLibGUID AS _WinGUID ) AS LOGIC PASCAL CLASS TS_ServerInfo
LOCAL oServerInfoGuard AS TS_ServerInfoGuard
LOCAL oOldAITypeLib AS TS_AbstractITypeLib
LOCAL poAITypeLib AS TS_AbstractITypeLib PTR
LOCAL oServerInfo AS TS_ServerInfo
LOCAL oAITypeLib AS TS_AbstractITypeLib
LOCAL lRetVal AS LOGIC
LOCAL hResult AS LONG
TSTrace Enter
IF SELF:IsValidObject
TSTrace ToDo "Check for 'TypeLib' resource in EXE or DLL first!"
oServerInfoGuard:=TS_ServerInfoGuard{ }
oServerInfo:=oServerInfoGuard:Get( )
DO CASE
CASE pstruTypeLibGUID==NULL_PTR
TSTrace Warning "pstruTypeLibGUID==NULL_PTR"
lRetVal:=FALSE
CASE IsBadReadPtr( pstruTypeLibGUID, _SIZEOF( _WinGUID ) )
TSTrace Warning "IsBadReadPtr(pstruTypeLibGUID,_SizeOf(_WinGUID))"
lRetVal:=FALSE
OTHERWISE
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedEnter( TS_TT_SYM_EXTERNAL, TS_TT_SYM_DLL_OLE32,