"Fossies" - the Fresh Open Source Software Archive

Member "FreeBASIC-1.09.0-win64/inc/win/amaudio.bi" (1 Jan 2022, 2499 Bytes) of package /windows/misc/FreeBASIC-1.09.0-win64.zip:

As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Visual Basic source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. 
    1 '' FreeBASIC binding for mingw-w64-v4.0.4
    2 ''
    3 '' based on the C header files:
    4 ''   Copyright (C) 2010 Maarten Lankhorst for CodeWeavers
    5 ''
    6 ''   This library is free software; you can redistribute it and/or
    7 ''   modify it under the terms of the GNU Lesser General Public
    8 ''   License as published by the Free Software Foundation; either
    9 ''   version 2.1 of the License, or (at your option) any later version.
   10 ''
   11 ''   This library is distributed in the hope that it will be useful,
   12 ''   but WITHOUT ANY WARRANTY; without even the implied warranty of
   13 ''   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   14 ''   Lesser General Public License for more details.
   15 ''
   16 ''   You should have received a copy of the GNU Lesser General Public
   17 ''   License along with this library; if not, write to the Free Software
   18 ''   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
   19 ''
   20 '' translated to FreeBASIC by:
   21 ''   Copyright © 2015 FreeBASIC development team
   22 
   23 #pragma once
   24 
   25 #include once "mmsystem.bi"
   26 #include once "dsound.bi"
   27 
   28 extern "Windows"
   29 
   30 #define __AMAUDIO__
   31 type IAMDirectSoundVtbl as IAMDirectSoundVtbl_
   32 
   33 type IAMDirectSound
   34     lpVtbl as IAMDirectSoundVtbl ptr
   35 end type
   36 
   37 type IAMDirectSoundVtbl_
   38     QueryInterface as function(byval This as IAMDirectSound ptr, byval riid as const IID const ptr, byval ppvObject as any ptr ptr) as HRESULT
   39     AddRef as function(byval This as IAMDirectSound ptr) as ULONG
   40     Release as function(byval This as IAMDirectSound ptr) as ULONG
   41     GetDirectSoundInterface as function(byval This as IAMDirectSound ptr, byval ds as IDirectSound ptr ptr) as HRESULT
   42     GetPrimaryBufferInterface as function(byval This as IAMDirectSound ptr, byval buf as IDirectSoundBuffer ptr ptr) as HRESULT
   43     GetSecondaryBufferInterface as function(byval This as IAMDirectSound ptr, byval buf as IDirectSoundBuffer ptr ptr) as HRESULT
   44     ReleaseDirectSoundInterface as function(byval This as IAMDirectSound ptr, byval ds as IDirectSound ptr) as HRESULT
   45     ReleasePrimaryBufferInterface as function(byval This as IAMDirectSound ptr, byval buf as IDirectSoundBuffer ptr) as HRESULT
   46     ReleaseSecondaryBufferInterface as function(byval This as IAMDirectSound ptr, byval buf as IDirectSoundBuffer ptr) as HRESULT
   47     SetFocusWindow as function(byval This as IAMDirectSound ptr, byval hwnd as HWND, byval bgaudible as WINBOOL) as HRESULT
   48     GetFocusWindow as function(byval This as IAMDirectSound ptr, byval hwnd as HWND ptr, byval bgaudible as WINBOOL ptr) as HRESULT
   49 end type
   50 
   51 end extern