NoMethod

 (Available in 01 TS COM - TS_COM_DelegateIDispatchAuto)

Source

METHOD NoMethod( ) CLASS TS_DelegateIDispatchAuto
LOCAL symMethod AS USUAL
LOCAL dwPCount AS DWORD
LOCAL uRetVal AS USUAL
LOCAL aArgs AS ARRAY
LOCAL X AS DWORD
   TSTrace Enter
   IF SELF:_DelegateIDispatch<>NULL_OBJECT .AND. SELF:_DelegateIDispatch:FInit
      symMethod:=NoMethod( )
      dwPCount:=PCOUNT( )
      IF dwPCount>0U
         aArgs:=ArrayCreate( dwPCount )
         FOR X:=1U UPTO dwPCount
            aArgs[ X ]:=USUAL( _CAST, _GETMPARAM( X ) )
         NEXT
         uRetVal:=SELF:_DelegateIDispatch:_Send( NULL_SYMBOL ; ...
        ... , symMethod, aArgs, dwPCount )
      ELSE
         uRetVal:=SELF:_DelegateIDispatch:_Send( NULL_SYMBOL ; ...
        ... , symMethod, NULL_ARRAY, 0U )
      END
      IF TS_IsInstanceOf( uRetVal, #TS_DelegateIDispatch )
         uRetVal:=TS_DelegateIDispatchAuto{ NIL, uRetVal, NIL }
      END
   ELSE
      TSTrace Warning "!(SELF:_DelegateIDispatch<>NULL_OBJECT .AND. SELF:_DelegateIDispatch" ; ...
     ... +":FInit)"
      uRetVal:=NIL
   END
   TStrace Leave
RETURN uRetVal