ISinkIID
(Available in 01 TS COM - TS_COM_ISink)
Purpose
Get the IID of the enclosed interface.
Syntax
? TS_GUID2String( oDelegateIUnknown:IID )
Description
Get the ( main ) IID of the enclosed interface. The IID ( Interface ID ) is used by COM to identify interfaces. The returned IID can be seen as the classname of the interface. See also IIDAdd and IIDDel.
Returns
POINTER, IID as WinGUID
Example
IF TS_IsEqualGUID( oDelegateIUnknown:IID, TS_GUID_IDispatch( ) )
// Use the 'IDispatch' interface of the interface
ELSE
TSTrace Warning "This interface dous not support 'IDispatch'"
END
Source
ACCESS ISinkIID AS _WinGUID PASCAL CLASS TS_ISink
LOCAL oCOMGlobalData AS _TS_COMGlobalData
LOCAL pStruGUID AS _WinGUID
oCOMGlobalData:=_TS_ModuleGetCOMGlobalData( )
#IFDEF TS_COMGLOBALDATA_CRITICALSECTION
EnterCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
#ENDIF
pStruGUID:=SELF:_IID
#IFDEF TS_COMGLOBALDATA_CRITICALSECTION
LeaveCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
#ENDIF
TSTrace Leave
RETURN pStruGUID