IDirect3DVertexBuffer9 Interface

' ****************************************************************************************
' IDirect3DVertexBuffer9 interface
' $IID_IDirect3DVertexBuffer9 = GUID$("{B64BB1B5-FD70-4df6-BF91-19D0A12455E3}")
' ****************************************************************************************

' ****************************************************************************************
' The IDirect3DVertexBuffer9 interface is obtained by calling the IDirect3DDevice9::CreateVertexBuffer method.
' This interface inherits additional functionality from the IDirect3DResource9 interface.
' Interface Information
'    Stock Implementation   d3d9.dll
'    Custom Implementation  No
'    Inherits from  IDirect3DResource9
'    Header     d3d9.h
'    Import library     d3d9.lib
'    Minimum operating systems  Windows 98
' ****************************************************************************************

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

'    /*** IDirect3DResource9 methods ***/
'  3.  STDMETHOD(GetDevice)(THIS_ IDirect3DDevice9** ppDevice) PURE;
'  4.  STDMETHOD(SetPrivateData)(THIS_ REFGUID refguid,CONST void* pData,DWORD SizeOfData,DWORD Flags) PURE;
'  5.  STDMETHOD(GetPrivateData)(THIS_ REFGUID refguid,void* pData,DWORD* pSizeOfData) PURE;
'  6.  STDMETHOD(FreePrivateData)(THIS_ REFGUID refguid) PURE;
'  7.  STDMETHOD_(DWORD, SetPriority)(THIS_ DWORD PriorityNew) PURE;
'  8.  STDMETHOD_(DWORD, GetPriority)(THIS) PURE;
'  9.  STDMETHOD_(void, PreLoad)(THIS) PURE;
' 10.  STDMETHOD_(D3DRESOURCETYPE, GetType)(THIS) PURE;

'    /*** IDirect3DVertexBuffer9 methods ***/
' 11.  STDMETHOD(Lock)(THIS_ UINT OffsetToLock,UINT SizeToLock,void** ppbData,DWORD Flags) PURE;
' 12.  STDMETHOD(Unlock)(THIS) PURE;
' 13.  STDMETHOD(GetDesc)(THIS_ D3DVERTEXBUFFER_DESC *pDesc) PURE;
'};
' ****************************************************************************************

' ****************************************************************************************
' Lock method
' Locks a range of vertex data and obtains a pointer to the vertex buffer memory.
' HRESULT Lock(
'   UINT OffsetToLock,
'   UINT SizeToLock,
'   VOID ** ppbData,
'   DWORD Flags
' );
' ****************************************************************************************
FUNCTION IDirect3DVertexBuffer9_Lock ALIAS "IDirect3DVertexBuffer9_Lock" ( _
    BYVAL pthis AS DWORD PTR, BYVAL OffsetToLock AS DWORD, BYVAL SizeToLock AS DWORD, _
    BYREF ppbData AS DWORD, BYVAL Flags AS DWORD) EXPORT AS LONG

    LOCAL HRESULT AS LONG
    IF pthis = %NULL THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[11] USING IDirect3DVertexBuffer9_Lock(pthis, OffsetToLock, SizeToLock, ppbData, Flags) TO HRESULT
    FUNCTION = HRESULT

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

' ****************************************************************************************
' Unlock method
' Unlocks vertex data.
' HRESULT Unlock();
' ****************************************************************************************
FUNCTION IDirect3DVertexBuffer9_Unlock ALIAS "IDirect3DVertexBuffer9_Unlock" (BYVAL pthis AS DWORD PTR) EXPORT AS LONG

    LOCAL HRESULT AS LONG
    IF pthis = %NULL THEN FUNCTION = %E_POINTER : EXIT FUNCTION
    CALL DWORD @@pthis[12] USING IDirect3DVertexBuffer9_Unlock(pthis) TO HRESULT
    FUNCTION = HRESULT

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

' ****************************************************************************************
' GetDesc method
' Retrieves a description of the vertex buffer resource.
' HRESULT GetDesc(
'   D3DVERTEXBUFFER_DESC * pDesc
' );
' ****************************************************************************************
FUNCTION IDirect3DVertexBuffer9_GetDesc ALIAS "IDirect3DVertexBuffer9_GetDesc" ( _
    BYVAL pthis AS DWORD PTR, BYREF pDesc AS D3DINDEXBUFFER_DESC) EXPORT AS LONG

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

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