CMGetTypeInfo

(Available in 01 TS COM - TS_COM_DelegateIDispatch)

Purpose

Get ITypeInfo interface pointer.

Syntax

// See MSDN doc
oDIObject:CMGetTypeInfo( ... )

Arguments

iTypeInfo	INT
dwLCID	DWORD
poAITypeInfo	TS_AbstractITypeInfo PTR

Description

Get ITypeInfo interface pointer.

MSDN ==== IDispatch::GetTypeInfo Retrieves the type information for an object, which can then be used to get the type information for an interface.

HRESULT GetTypeInfo( unsigned int iTInfo, LCID lcid, ITypeInfo FAR* FAR* ppTInfo );

Parameters iTInfo The type information to return. Pass 0 to retrieve type information for the IDispatch implementation. lcid The locale identifier for the type information. An object may be able to return different type information for different languages. This is important for classes that support localized member names. For classes that do not support localized member names, this parameter can be ignored. ppTInfo Receives a pointer to the requested type information object.

Return Value The return value obtained from the returned HRESULT is one of the following:

Return value Meaning S_OK Success; the type information element exists. DISP_E_BADINDEX Failure; iTInfo argument was not 0.

Returns

LONGINT, hResult

Source

METHOD CMGetTypeInfo( iTypeInfo AS INT, dwLCID AS DWORD, poAITypeInfo AS TS_AbstractITypeInfo  ; ...
...PTR ) AS LONG PASCAL CLASS TS_DelegateIDispatch
LOCAL loRetVal AS LONG
   TSTrace Enter
   IF SELF:FInit
      #IFDEF TS_TRACETIMED_ENABLE
         _TS_TraceTimedEnter( TS_TT_SYM_EXTERNAL, TS_TT_SYM_IDISPATCH, #GetTypeInfo  ; ...
        ... )
      #ENDIF
      loRetVal:=SELF:_AIDispatch:GetTypeInfo( iTypeInfo ; ...
     ... , dwLCID, poAITypeInfo )
      #IFDEF TS_TRACETIMED_ENABLE
         _TS_TraceTimedLeave( TS_TT_SYM_EXTERNAL, TS_TT_SYM_IDISPATCH, #GetTypeInfo  ; ...
        ... )
      #ENDIF
   ELSE
      TSTrace Warning "!SELF:FInit"
      loRetVal:=E_FAIL
   END
   TSTrace Leave
RETURN loRetVal