IDirect3DVertexShader9 Interface

' ****************************************************************************************
' IDirect3DVertexShader9 interface
' $IID_IDirect3DVertexShader9 = GUID$("{EFC5557E-6265-4613-8A94-43857889EB36}")
' ****************************************************************************************

' ****************************************************************************************
' Applications use the methods of the IDirect3DVertexShader9 interface to encapsulate the
' functionality of a vertex shader.
' Interface Information
'    Stock Implementation   d3d9.dll
'    Custom Implementation  No
'    Inherits from  IUnknown
'    Header     d3d9.h
'    Import library     d3d9.lib
'    Minimum operating systems  Windows 98
' ****************************************************************************************

' ****************************************************************************************
'DECLARE_INTERFACE_(IDirect3DVertexShader9, IUnknown)
'{
'    /*** IUnknown methods ***/
'  0.  STDMETHOD(QueryInterface)(THIS_ REFIID riid, void** ppvObj) PURE;
'  1.  STDMETHOD_(ULONG,AddRef)(THIS) PURE;
'  2.  STDMETHOD_(ULONG,Release)(THIS) PURE;

'    /*** IDirect3DVertexShader9 methods ***/
'  3.  STDMETHOD(GetDevice)(THIS_ IDirect3DDevice9** ppDevice) PURE;
'  4.  STDMETHOD(GetFunction)(THIS_ void*,UINT* pSizeOfData) PURE;
'};
' ****************************************************************************************

' ****************************************************************************************
' GetDevice method
' Gets the current device.
' Note  Calling this method will increase the internal reference count on the
' IDirect3DDevice9 interface. Be sure to call IUnknown::Release when you are done using
' this IDirect3DDevice9 interface or you will have a memory leak.
' HRESULT GetDevice(
'   IDirect3DDevice9 ** ppDevice
' );
' ****************************************************************************************
FUNCTION IDirect3DVertexShader9_GetDevice ALIAS "IDirect3DVertexShader9_GetDevice" ( _
    BYVAL pthis AS DWORD PTR, BYREF ppDevice AS DWORD) EXPORT AS LONG

    LOCAL HRESULT AS LONG
    IF pthis = %NULL THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[3] USING IDirect3DVertexShader9_GetDevice(pthis, ppDevice) TO HRESULT
    FUNCTION = HRESULT

END FUNCTION
' ****************************************************************************************

' ****************************************************************************************
' GetFunction method
' Gets a pointer to the shader data.
' HRESULT GetFunction(
'   void* pData,
'   UINT* pSizeOfData
' );
' ****************************************************************************************
FUNCTION IDirect3DVertexShader9_GetFunction ALIAS "IDirect3DVertexShader9_GetFunction" ( _
    BYVAL pthis AS DWORD PTR, BYVAL pData AS DWORD, BYREF pSizeOfData AS DWORD) EXPORT AS LONG

    LOCAL HRESULT AS LONG
    IF pthis = %NULL THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[4] USING IDirect3DVertexShader9_GetFunction(pthis, pData, pSizeOfData) TO HRESULT
    FUNCTION = HRESULT

END FUNCTION
' ****************************************************************************************