AIDispatch
(Available in 01 TS COM - TS_COM_InterfaceSafe)
Purpose
Get ( if availabe ) the 'AbstractIDispatch'-interface of the contained object
Syntax
oAIDispatch:=oInterfaceSafe:AIDispatch
Description
The property uses the 'SELF:AGetInterface()' method to get the requested interface, this access provides easy usage of the 'TS_InterfaceSafe'.
Returns
An instance of 'TS_AbstractIDispatch'
Source
ACCESS AIDispatch AS TS_AbstractIDispatch PASCAL CLASS TS_InterfaceSafe
LOCAL oCOMGlobalData AS _TS_COMGlobalData
LOCAL oAIDispatch AS TS_AbstractIDispatch
TSTrace Enter
oCOMGlobalData:=_TS_ModuleGetCOMGlobalData( )
#IFDEF TS_COMGLOBALDATA_CRITICALSECTION
EnterCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
#ENDIF
OBJECT( @oAIDispatch ):=SELF:AGetInterface( TS_GUID_IDispatch ; ...
... ( ) )
#IFDEF TS_COMGLOBALDATA_CRITICALSECTION
LeaveCriticalSection( oCOMGlobalData:_COMGGeneralPurposeSection )
#ENDIF
TSTrace Leave
RETURN oAIDispatch