Class bass

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 561 fois - Téléchargée 19 fois

Contenu du snippet

J'archive une de mes class vb6 que j'ai tenté de mettre à jour pour le .NET. Son utilisation semble obsolète à cause du pInvoke qui est incapable de s'auto-appliquer.

Source / Exemple :


Class BASS_DLL
    ' BASS 2.4 Visual Basic .Net class
    ' Copyright (c) 1999-2011 Un4seen Developments Ltd.
    ' Release by Duke49 from VBFrance
    '
    ' See the BASS.CHM file for more detailed documentation

    Public Const BASSVERSION = &H204    'API version
    Public Const BASSVERSIONTEXT = "2.4"

    Private Const BASSDLL As String = "bass.dll"

#Region "    DECLARATION BASS.DLL "

    <DllImport(BASSDLL)>
    Public Shared Function BASS_SetConfig(ByVal opt As Long, ByVal value As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetConfig(ByVal opt As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SetConfigPtr(ByVal opt As Long, ByVal value As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetConfigPtr(ByVal opt As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetVersion() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ErrorGetCode() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetDeviceInfo(ByVal device As Long, ByRef info As BASS_DEVICEINFO) As Long
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_Init(ByVal device As Integer, ByVal freq As UInteger, ByVal flag As UInteger, ByVal hParent As IntPtr, ByVal GUID As UInteger) As Boolean
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SetDevice(ByVal device As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetDevice() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Free() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetDSoundObject(ByVal objet As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetInfo(ByRef info As BASS_INFO) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Update(ByVal length As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetCPU() As Single
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Start() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Stop() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Pause() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SetVolume(ByVal volume As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetVolume() As Single
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_PluginLoad(ByVal filename As String, ByVal flags As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_PluginFree(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_PluginGetInfo_Alias(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Set3DFactors(ByVal distf As Single, ByVal rollf As Single, ByVal doppf As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Get3DFactors(ByRef distf As Single, ByRef rollf As Single, ByRef doppf As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Set3DPosition(ByRef pos As Long, ByRef vel As Long, ByRef front As Long, ByRef top As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Get3DPosition(ByRef pos As Long, ByRef vel As Long, ByRef front As Long, ByRef top As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_Apply3D() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SetEAXParameters(ByVal env As Long, ByVal vol As Single, ByVal decay As Single, ByVal damp As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_GetEAXParameters(ByRef env As Long, ByRef vol As Single, ByRef decay As Single, ByRef damp As Single) As Long
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_MusicLoad64_Alias(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal offsethigh As Long, ByVal length As Long, ByVal flags As Long, ByVal freq As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_MusicLoad(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal offsethigh As Long, ByVal length As Long, ByVal flags As Long, ByVal freq As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_MusicFree(ByVal handle As Long) As Long
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleLoad64_Alias(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal offsethigh As Long, ByVal length As Long, ByVal max As Long, ByVal flags As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleLoad(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal offsethigh As Long, ByVal length As Long, ByVal max As Long, ByVal flags As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleCreate(ByVal length As Long, ByVal freq As Long, ByVal chans As Long, ByVal max As Long, ByVal flags As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleFree(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleSetData(ByVal handle As Long, ByRef buffer As String) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleGetData(ByVal handle As Long, ByRef buffer As String) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleGetInfo(ByVal handle As Long, ByRef info As BASS_SAMPLE) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleSetInfo(ByVal handle As Long, ByRef info As BASS_SAMPLE) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleGetChannel(ByVal handle As Long, ByVal onlynew As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleGetChannels(ByVal handle As Long, ByRef CHANNELS As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_SampleStop(ByVal handle As Long) As Long
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamCreate(ByVal freq As Long, ByVal chans As Long, ByVal flags As Long, ByVal proc As Long, ByVal user As Long) As Long
    End Function
    <DllImport(BASSDLL)> _
    Public Shared Function BASS_StreamCreateFile(ByVal mem As Boolean, ByVal file As String, ByVal offset As UInteger, ByVal length As UInteger, ByVal flags As UInteger) As Long
    End Function
    '<DllImport(BASSDLL)>
    'Public Shared Function BASS_StreamCreateFile(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal offsethigh As Long, ByVal length As Long, ByVal lengthhigh As Long, ByVal flags As Long) As Long
    'End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamCreateFile64_Alias(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal offsethigh As Long, ByVal length As Long, ByVal lengthhigh As Long, ByVal flags As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamCreateURL(ByVal url As String, ByVal offset As Long, ByVal flags As Long, ByVal proc As Long, ByVal user As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamCreateFileUser(ByVal system As Long, ByVal flags As Long, ByVal procs As Long, ByVal user As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamFree(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamGetFilePosition(ByVal handle As Long, ByVal mode As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamPutData(ByVal handle As Long, ByRef buffer As String, ByVal length As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_StreamPutFileData(ByVal handle As Long, ByRef buffer As String, ByVal length As Long) As Long
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordGetDeviceInfo(ByVal device As Long, ByRef info As BASS_DEVICEINFO) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordInit(ByVal device As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordSetDevice(ByVal device As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordGetDevice() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordFree() As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordGetInfo(ByRef info As BASS_RECORDINFO) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordGetInputName(ByVal inputn As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordSetInput(ByVal inputn As Long, ByVal flags As Long, ByVal volume As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordGetInput(ByVal inputn As Long, ByRef volume As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_RecordStart(ByVal freq As Long, ByVal chans As Long, ByVal flags As Long, ByVal proc As Long, ByVal user As Long) As Long
    End Function

    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelBytes2Seconds(ByVal handle As Long, ByVal pos As Long, ByVal poshigh As Long) As Double
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelBytes2Seconds64_Alias(ByVal handle As Long, ByVal pos As Long, ByVal poshigh As Long) As Double
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSeconds2Bytes(ByVal handle As Long, ByVal pos As Double) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetDevice(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetDevice(ByVal handle As Long, ByVal device As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelIsActive(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetInfo(ByVal handle As Long, ByRef info As BASS_CHANNELINFO) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetTags(ByVal handle As Long, ByVal tags As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelFlags(ByVal handle As Long, ByVal flags As Long, ByVal mask As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelUpdate(ByVal handle As Long, ByVal length As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelLock(ByVal handle As Long, ByVal lock_ As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelPlay(ByVal handle As Long, ByVal restart As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelStop(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelPause(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetAttribute(ByVal handle As Long, ByVal attrib As Long, ByVal value As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetAttribute(ByVal handle As Long, ByVal attrib As Long, ByRef value As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSlideAttribute(ByVal handle As Long, ByVal attrib As Long, ByVal value As Single, ByVal time As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelIsSliding(ByVal handle As Long, ByVal attrib As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSet3DAttributes(ByVal handle As Long, ByVal mode As Long, ByVal min As Single, ByVal max As Single, ByVal iangle As Long, ByVal oangle As Long, ByVal outvol As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGet3DAttributes(ByVal handle As Long, ByRef mode As Long, ByRef min As Single, ByRef max As Single, ByRef iangle As Long, ByRef oangle As Long, ByRef outvol As Single) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSet3DPosition(ByVal handle As Long, ByRef pos As Long, ByRef orient As Long, ByRef vel As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGet3DPosition(ByVal handle As Long, ByRef pos As Long, ByRef orient As Long, ByRef vel As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetLength(ByVal handle As Long, ByVal mode As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetPosition(ByVal handle As Long, ByVal pos As Long, ByVal poshigh As Long, ByVal mode As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetPosition64_Alias(ByVal handle As Long, ByVal pos As Long, ByVal poshigh As Long, ByVal mode As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetPosition(ByVal handle As Long, ByVal mode As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetLevel(ByVal handle As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelGetData(ByVal handle As Long, ByRef buffer As String, ByVal length As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetSync(ByVal handle As Long, ByVal type_ As Long, ByVal param As Long, ByVal paramhigh As Long, ByVal proc As Long, ByVal user As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetSync64_Alias(ByVal handle As Long, ByVal type_ As Long, ByVal param As Long, ByVal paramhigh As Long, ByVal proc As Long, ByVal user As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelRemoveSync(ByVal handle As Long, ByVal sync As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetDSP(ByVal handle As Long, ByVal proc As Long, ByVal user As Long, ByVal priority As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelRemoveDSP(ByVal handle As Long, ByVal dsp As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetLink(ByVal handle As Long, ByVal chan As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelRemoveLink(ByVal handle As Long, ByVal chan As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelSetFX(ByVal handle As Long, ByVal type_ As Long, ByVal priority As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_ChannelRemoveFX(ByVal handle As Long, ByVal fx As Long) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_FXSetParameters(ByVal handle As Long, ByRef par As String) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_FXGetParameters(ByVal handle As Long, ByRef par As String) As Long
    End Function
    <DllImport(BASSDLL)>
    Public Shared Function BASS_FXReset(ByVal handle As Long) As Long
    End Function
#End Region

#Region " 32-bit wrappers for 64-bit BASS functions"
    Public Function BASS_MusicLoad64(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal length As Long, ByVal flags As Long, ByVal freq As Long) As Long
        Return BASS_MusicLoad64_Alias(mem, file, offset, 0, length, flags Or BASS_UNICODE, freq)
    End Function

    Public Function BASS_SampleLoad64(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal length As Long, ByVal max As Long, ByVal flags As Long) As Long
        Return BASS_SampleLoad64_Alias(mem, file, offset, 0, length, max, flags Or BASS_UNICODE)
    End Function

    Public Function BASS_StreamCreateFile64(ByVal mem As Long, ByVal file As String, ByVal offset As Long, ByVal length As Long, ByVal flags As Long) As Long
        Return BASS_StreamCreateFile64_Alias(mem, file, offset, 0, length, 0, flags Or BASS_UNICODE)
    End Function

    Public Function BASS_ChannelBytes2Seconds64(ByVal handle As Long, ByVal pos As Long) As Double
        Return BASS_ChannelBytes2Seconds64_Alias(handle, pos, 0)
    End Function

    Public Function BASS_ChannelSetPosition64(ByVal handle As Long, ByVal pos As Long, ByVal mode As Long) As Long
        Return BASS_ChannelSetPosition64_Alias(handle, pos, 0, mode)
    End Function

    Public Function BASS_ChannelSetSync64(ByVal handle As Long, ByVal type_ As Long, ByVal param As Long, ByVal proc As Long, ByVal user As Long) As Long
        Return BASS_ChannelSetSync64_Alias(handle, type_, param, 0, proc, user)
    End Function
#End Region

#Region " Error codes returned by BASS_ErrorGetCode "
    Public Const BASS_OK = 0               'all is OK
    Public Const BASS_ERROR_MEM = 1        'memory error
    Public Const BASS_ERROR_FILEOPEN = 2   'can't open the file
    Public Const BASS_ERROR_DRIVER = 3     'can't find a free sound driver
    Public Const BASS_ERROR_BUFLOST = 4    'the sample buffer was lost
    Public Const BASS_ERROR_HANDLE = 5     'invalid handle
    Public Const BASS_ERROR_FORMAT = 6     'unsupported sample format
    Public Const BASS_ERROR_POSITION = 7   'invalid position
    Public Const BASS_ERROR_INIT = 8       'BASS_Init has not been successfully called
    Public Const BASS_ERROR_START = 9      'BASS_Start has not been successfully called
    Public Const BASS_ERROR_ALREADY = 14   'already initialized/paused/whatever
    Public Const BASS_ERROR_NOCHAN = 18    'can't get a free channel
    Public Const BASS_ERROR_ILLStructure = 19   'an illegal Structure was specified
    Public Const BASS_ERROR_ILLPARAM = 20  'an illegal parameter was specified
    Public Const BASS_ERROR_NO3D = 21      'no 3D support
    Public Const BASS_ERROR_NOEAX = 22     'no EAX support
    Public Const BASS_ERROR_DEVICE = 23    'illegal device number
    Public Const BASS_ERROR_NOPLAY = 24    'not playing
    Public Const BASS_ERROR_FREQ = 25      'illegal sample rate
    Public Const BASS_ERROR_NOTFILE = 27   'the stream is not a file stream
    Public Const BASS_ERROR_NOHW = 29      'no hardware voices available
    Public Const BASS_ERROR_EMPTY = 31     'the MOD music has no sequence data
    Public Const BASS_ERROR_NONET = 32     'no internet connection could be opened
    Public Const BASS_ERROR_CREATE = 33    'couldn't create the file
    Public Const BASS_ERROR_NOFX = 34      'effects are not available
    Public Const BASS_ERROR_NOTAVAIL = 37  'requested data is not available
    Public Const BASS_ERROR_DECODE = 38    'the channel is a "decoding channel"
    Public Const BASS_ERROR_DX = 39        'a sufficient DirectX version is not installed
    Public Const BASS_ERROR_TIMEOUT = 40   'connection timedout
    Public Const BASS_ERROR_FILEFORM = 41  'unsupported file format
    Public Const BASS_ERROR_SPEAKER = 42   'unavailable speaker
    Public Const BASS_ERROR_VERSION = 43   'invalid BASS version (used by add-ons)
    Public Const BASS_ERROR_CODEC = 44     'codec is not available/supported
    Public Const BASS_ERROR_ENDED = 45     'the channel/file has ended
    Public Const BASS_ERROR_BUSY = 46      'the device is busy
    Public Const BASS_ERROR_UNKNOWN = -1   'some other mystery problem
#End Region

#Region " BASS_SetConfig options"
    Public Const BASS_CONFIG_BUFFER = 0
    Public Const BASS_CONFIG_UPDATEPERIOD = 1
    Public Const BASS_CONFIG_GVOL_SAMPLE = 4
    Public Const BASS_CONFIG_GVOL_STREAM = 5
    Public Const BASS_CONFIG_GVOL_MUSIC = 6
    Public Const BASS_CONFIG_CURVE_VOL = 7
    Public Const BASS_CONFIG_CURVE_PAN = 8
    Public Const BASS_CONFIG_FLOATDSP = 9
    Public Const BASS_CONFIG_3DALGORITHM = 10
    Public Const BASS_CONFIG_NET_TIMEOUT = 11
    Public Const BASS_CONFIG_NET_BUFFER = 12
    Public Const BASS_CONFIG_PAUSE_NOPLAY = 13
    Public Const BASS_CONFIG_NET_PREBUF = 15
    Public Const BASS_CONFIG_NET_PASSIVE = 18
    Public Const BASS_CONFIG_REC_BUFFER = 19
    Public Const BASS_CONFIG_NET_PLAYLIST = 21
    Public Const BASS_CONFIG_MUSIC_VIRTUAL = 22
    Public Const BASS_CONFIG_VERIFY = 23
    Public Const BASS_CONFIG_UPDATETHREADS = 24
    Public Const BASS_CONFIG_DEV_BUFFER = 27
    Public Const BASS_CONFIG_DEV_DEFAULT = 36
    Public Const BASS_CONFIG_NET_READTIMEOUT = 37
#End Region

#Region " BASS_SetConfigPtr options "
    Public Const BASS_CONFIG_NET_AGENT = 16
    Public Const BASS_CONFIG_NET_PROXY = 17
#End Region

#Region " BASS_ASIO_Init flags "
    Public Const BASS_DEVICE_8BITS = 1     'use 8 bit resolution, else 16 bit
    Public Const BASS_DEVICE_MONO = 2      'use mono, else stereo
    Public Const BASS_DEVICE_3D = 4        'enable 3D functionality
    Public Const BASS_DEVICE_LATENCY = 256 'calculate device latency (BASS_INFO struct)
    Public Const BASS_DEVICE_CPSPEAKERS = 1024 'detect speakers via Windows control panel
    Public Const BASS_DEVICE_SPEAKERS = 2048 'force enabling of speaker assignment
    Public Const BASS_DEVICE_NOSPEAKER = 4096 'ignore speaker arrangement
#End Region

#Region " DirectSound interfaces (for use with BASS_GetDSoundObject) "
    Public Const BASS_OBJECT_DS = 1                     ' DirectSound
    Public Const BASS_OBJECT_DS3DL = 2                  'IDirectSound3DListener
#End Region

#Region " Device info structure "
    Public Structure BASS_DEVICEINFO
        Dim name As Long          ' description
        Dim driver As Long        ' driver
        Dim flags As Long
    End Structure
#End Region

#Region " BASS_DEVICEINFO flags "
    Public Const BASS_DEVICE_ENABLED = 1
    Public Const BASS_DEVICE_DEFAULT = 2
    Public Const BASS_DEVICE_INIT = 4

    Public Structure BASS_INFO
        Dim flags As Long         ' device capabilities (DSCAPS_xxx flags)
        Dim hwsize As Long        ' size of total device hardware memory
        Dim hwfree As Long        ' size of free device hardware memory
        Dim freesam As Long       ' number of free sample slots in the hardware
        Dim free3d As Long        ' number of free 3D sample slots in the hardware
        Dim minrate As Long       ' min sample rate supported by the hardware
        Dim maxrate As Long       ' max sample rate supported by the hardware
        Dim eax As Long           ' device supports EAX? (always BASSFALSE if BASS_DEVICE_3D was not used)
        Dim minbuf As Long        ' recommended minimum buffer length in ms (requires BASS_DEVICE_LATENCY)
        Dim dsver As Long         ' DirectSound version
        Dim latency As Long       ' delay (in ms) before start of playback (requires BASS_DEVICE_LATENCY)
        Dim initflags As Long     ' BASS_Init "flags" parameter
        Dim speakers As Long      ' number of speakers available
        Dim freq As Long          ' current output rate (OSX only)
    End Structure
#End Region

#Region " BASS_INFO flags (from DSOUND.H) "
    Public Const DSCAPS_CONTINUOUSRATE = 16    ' supports all sample rates between min/maxrate
    Public Const DSCAPS_EMULDRIVER = 32        ' device does NOT have hardware DirectSound support
    Public Const DSCAPS_CERTIFIED = 64         ' device driver has been certified by Microsoft
    Public Const DSCAPS_SECONDARYMONO = 256    ' mono
    Public Const DSCAPS_SECONDARYSTEREO = 512  ' stereo
    Public Const DSCAPS_SECONDARY8BIT = 1024   ' 8 bit
    Public Const DSCAPS_SECONDARY16BIT = 2048  ' 16 bit
#End Region

#Region " Recording device info structure "
    Public Structure BASS_RECORDINFO
        Dim flags As Long         ' device capabilities (DSCCAPS_xxx flags)
        Dim formats As Long       ' supported standard formats (WAVE_FORMAT_xxx flags)
        Dim inputs As Long        ' number of inputs
        Dim singlein As Long      ' BASSTRUE = only 1 input can be set at a time
        Dim freq As Long          ' current input rate (Vista/OSX only)
    End Structure
#End Region

#Region " BASS_RECORDINFO flags (from DSOUND.H) "
    Public Const DSCCAPS_EMULDRIVER = DSCAPS_EMULDRIVER ' device does NOT have hardware DirectSound recording support
    Public Const DSCCAPS_CERTIFIED = DSCAPS_CERTIFIED   ' device driver has been certified by Microsoft
#End Region

#Region " Defines for formats field of BASS_RECORDINFO (from MMSYSTEM.H) "
    Public Const WAVE_FORMAT_1M08 = &H1          ' 11.025 kHz, Mono,   8-bit
    Public Const WAVE_FORMAT_1S08 = &H2          ' 11.025 kHz, Stereo, 8-bit
    Public Const WAVE_FORMAT_1M16 = &H4          ' 11.025 kHz, Mono,   16-bit
    Public Const WAVE_FORMAT_1S16 = &H8          ' 11.025 kHz, Stereo, 16-bit
    Public Const WAVE_FORMAT_2M08 = &H10         ' 22.05  kHz, Mono,   8-bit
    Public Const WAVE_FORMAT_2S08 = &H20         ' 22.05  kHz, Stereo, 8-bit
    Public Const WAVE_FORMAT_2M16 = &H40         ' 22.05  kHz, Mono,   16-bit
    Public Const WAVE_FORMAT_2S16 = &H80         ' 22.05  kHz, Stereo, 16-bit
    Public Const WAVE_FORMAT_4M08 = &H100        ' 44.1   kHz, Mono,   8-bit
    Public Const WAVE_FORMAT_4S08 = &H200        ' 44.1   kHz, Stereo, 8-bit
    Public Const WAVE_FORMAT_4M16 = &H400        ' 44.1   kHz, Mono,   16-bit
    Public Const WAVE_FORMAT_4S16 = &H800        ' 44.1   kHz, Stereo, 16-bit
#End Region

#Region " Sample info structure "
    Public Structure BASS_SAMPLE
        Dim freq As Long          ' default playback rate
        Dim volume As Single      ' default volume (0-100)
        Dim pan As Single         ' default pan (-100=left, 0=middle, 100=right)
        Dim flags As Long         ' BASS_SAMPLE_xxx flags
        Dim length As Long        ' length (in samples, not bytes)
        Dim max As Long           ' maximum simultaneous playbacks
        Dim origres As Long       ' original resolution
        Dim chans As Long         ' number of channels
        Dim mingap As Long        ' minimum gap (ms) between creating channels
        Dim mode3d As Long        ' BASS_3DMODE_xxx mode
        Dim mindist As Single     ' minimum distance
        Dim MAXDIST As Single     ' maximum distance
        Dim iangle As Long        ' angle of inside projection cone
        Dim oangle As Long        ' angle of outside projection cone
        Dim outvol As Single      ' delta-volume outside the projection cone
        Dim vam As Long           ' voice allocation/management flags (BASS_VAM_xxx)
        Dim priority As Long      ' priority (0=lowest, &Hffffffff=highest)
    End Structure

    Public Const BASS_SAMPLE_8BITS = 1          ' 8 bit
    Public Const BASS_SAMPLE_FLOAT = 256        ' 32-bit floating-point
    Public Const BASS_SAMPLE_MONO = 2           ' mono
    Public Const BASS_SAMPLE_LOOP = 4           ' looped
    Public Const BASS_SAMPLE_3D = 8             ' 3D functionality
    Public Const BASS_SAMPLE_SOFTWARE = 16      ' not using hardware mixing
    Public Const BASS_SAMPLE_MUTEMAX = 32       ' mute at max distance (3D only)
    Public Const BASS_SAMPLE_VAM = 64           ' DX7 voice allocation & management
    Public Const BASS_SAMPLE_FX = 128           ' old implementation of DX8 effects
    Public Const BASS_SAMPLE_OVER_VOL = &H10000 ' override lowest volume
    Public Const BASS_SAMPLE_OVER_POS = &H20000 ' override longest playing
    Public Const BASS_SAMPLE_OVER_DIST = &H30000 ' override furthest from listener (3D only)

    Public Const BASS_STREAM_PRESCAN = &H20000   ' enable pin-point seeking/length (MP3/MP2/MP1)
    Public Const BASS_MP3_SETPOS = BASS_STREAM_PRESCAN
    Public Const BASS_STREAM_AUTOFREE = &H40000 ' automatically free the stream when it stop/ends
    Public Const BASS_STREAM_RESTRATE = &H80000 ' restrict the download rate of internet file streams
    Public Const BASS_STREAM_BLOCK = &H100000   ' download/play internet file stream in small blocks
    Public Const BASS_STREAM_DECODE = &H200000  ' don't play the stream, only decode (BASS_ChannelGetData)
    Public Const BASS_STREAM_STATUS = &H800000  ' give server status info (HTTP/ICY tags) in DOWNLOADPROC

    Public Const BASS_MUSIC_FLOAT = BASS_SAMPLE_FLOAT
    Public Const BASS_MUSIC_MONO = BASS_SAMPLE_MONO
    Public Const BASS_MUSIC_LOOP = BASS_SAMPLE_LOOP
    Public Const BASS_MUSIC_3D = BASS_SAMPLE_3D
    Public Const BASS_MUSIC_FX = BASS_SAMPLE_FX
    Public Const BASS_MUSIC_AUTOFREE = BASS_STREAM_AUTOFREE
    Public Const BASS_MUSIC_DECODE = BASS_STREAM_DECODE
    Public Const BASS_MUSIC_PRESCAN = BASS_STREAM_PRESCAN ' calculate playback length
    Public Const BASS_MUSIC_CALCLEN = BASS_MUSIC_PRESCAN
    Public Const BASS_MUSIC_RAMP = &H200        ' normal ramping
    Public Const BASS_MUSIC_RAMPS = &H400       ' sensitive ramping
    Public Const BASS_MUSIC_SURROUND = &H800    ' surround sound
    Public Const BASS_MUSIC_SURROUND2 = &H1000  ' surround sound (mode 2)
    Public Const BASS_MUSIC_FT2MOD = &H2000     ' play .MOD as FastTracker 2 does
    Public Const BASS_MUSIC_PT1MOD = &H4000     ' play .MOD as ProTracker 1 does
    Public Const BASS_MUSIC_NONINTER = &H10000  ' non-interpolated sample mixing
    Public Const BASS_MUSIC_SINCINTER = &H800000 ' sinc interpolated sample mixing
    Public Const BASS_MUSIC_POSRESET = 32768  ' stop all notes when moving position
    Public Const BASS_MUSIC_POSRESETEX = &H400000 ' stop all notes and reset bmp/etc when moving position
    Public Const BASS_MUSIC_STOPBACK = &H80000  ' stop the music on a backwards jump effect
    Public Const BASS_MUSIC_NOSAMPLE = &H100000 ' don't load the samples
#End Region

#Region " Speaker assignment flags "
    Public Const BASS_SPEAKER_FRONT = &H1000000 ' front speakers
    Public Const BASS_SPEAKER_REAR = &H2000000  ' rear/side speakers
    Public Const BASS_SPEAKER_CENLFE = &H3000000 ' center & LFE speakers (5.1)
    Public Const BASS_SPEAKER_REAR2 = &H4000000 ' rear center speakers (7.1)
    Public Const BASS_SPEAKER_LEFT = &H10000000 ' modifier: left
    Public Const BASS_SPEAKER_RIGHT = &H20000000 ' modifier: right
    Public Const BASS_SPEAKER_FRONTLEFT = BASS_SPEAKER_FRONT Or BASS_SPEAKER_LEFT
    Public Const BASS_SPEAKER_FRONTRIGHT = BASS_SPEAKER_FRONT Or BASS_SPEAKER_RIGHT
    Public Const BASS_SPEAKER_REARLEFT = BASS_SPEAKER_REAR Or BASS_SPEAKER_LEFT
    Public Const BASS_SPEAKER_REARRIGHT = BASS_SPEAKER_REAR Or BASS_SPEAKER_RIGHT
    Public Const BASS_SPEAKER_CENTER = BASS_SPEAKER_CENLFE Or BASS_SPEAKER_LEFT
    Public Const BASS_SPEAKER_LFE = BASS_SPEAKER_CENLFE Or BASS_SPEAKER_RIGHT
    Public Const BASS_SPEAKER_REAR2LEFT = BASS_SPEAKER_REAR2 Or BASS_SPEAKER_LEFT
    Public Const BASS_SPEAKER_REAR2RIGHT = BASS_SPEAKER_REAR2 Or BASS_SPEAKER_RIGHT
    Public Const BASS_UNICODE = &H80000000
    Public Const BASS_RECORD_PAUSE = 32768 ' start recording paused
#End Region

#Region " DX7 voice allocation flags "
    Public Const BASS_VAM_HARDWARE = 1
    Public Const BASS_VAM_SOFTWARE = 2
    Public Const BASS_VAM_TERM_TIME = 4
    Public Const BASS_VAM_TERM_DIST = 8
    Public Const BASS_VAM_TERM_PRIO = 16
#End Region

#Region " Channel info structure "
    Public Structure BASS_CHANNELINFO
        Dim freq As Long          ' default playback rate
        Dim chans As Long         ' channels
        Dim flags As Long         ' BASS_SAMPLE/STREAM/MUSIC/SPEAKER flags
        Dim cStructure As Long         ' Structure of channel
        Dim origres As Long       ' original resolution
        Dim plugin As Long        ' plugin
        Dim sample As Long        ' sample
        Dim filename As Long      ' filename
    End Structure
#End Region

#Region " BASS_CHANNELINFO types "
    Public Const BASS_CTYPE_SAMPLE = 1
    Public Const BASS_CTYPE_RECORD = 2
    Public Const BASS_CTYPE_STREAM = &H10000
    Public Const BASS_CTYPE_STREAM_OGG = &H10002
    Public Const BASS_CTYPE_STREAM_MP1 = &H10003
    Public Const BASS_CTYPE_STREAM_MP2 = &H10004
    Public Const BASS_CTYPE_STREAM_MP3 = &H10005
    Public Const BASS_CTYPE_STREAM_AIFF = &H10006
    Public Const BASS_CTYPE_STREAM_WAV = &H40000 ' WAVE flag, LOWORD=codec
    Public Const BASS_CTYPE_STREAM_WAV_PCM = &H50001
    Public Const BASS_CTYPE_STREAM_WAV_FLOAT = &H50003
    Public Const BASS_CTYPE_MUSIC_MOD = &H20000
    Public Const BASS_CTYPE_MUSIC_MTM = &H20001
    Public Const BASS_CTYPE_MUSIC_S3M = &H20002
    Public Const BASS_CTYPE_MUSIC_XM = &H20003
    Public Const BASS_CTYPE_MUSIC_IT = &H20004
    Public Const BASS_CTYPE_MUSIC_MO3 = &H100    ' MO3 flag

    Public Structure BASS_PLUGINFORM
        Dim cStructure As Long         ' channel type
        Dim name As Long          ' format description
        Dim exts As Long          ' file extension filter (*.ext1;*.ext2;etc...)
    End Structure

    Public Structure BASS_PLUGININFO
        Dim Version As Long       ' version (same form as BASS_GetVersion)
        Dim formatc As Long       ' number of formats
        Dim formats As Long       ' the array of formats
    End Structure
#End Region

#Region " 3D vector (for 3D positions/velocities/orientations) "
    Public Structure BASS_3DVECTOR
        Dim X As Single           ' +=right, -=left
        Dim Y As Single           ' +=up, -=down
        Dim z As Single           ' +=front, -=behind
    End Structure
#End Region

#Region " 3D channel modes "
    Public Const BASS_3DMODE_NORMAL = 0     ' normal 3D processing
    Public Const BASS_3DMODE_RELATIVE = 1   ' position is relative to the listener
    Public Const BASS_3DMODE_OFF = 2        ' no 3D processing
#End Region

#Region " Software 3D mixing algorithms (used with BASS_CONFIG_3DALGORITHM) "
    Public Const BASS_3DALG_DEFAULT = 0
    Public Const BASS_3DALG_OFF = 1
    Public Const BASS_3DALG_FULL = 2
    Public Const BASS_3DALG_LIGHT = 3
#End Region

#Region " EAX environments, use with BASS_SetEAXParameters "
    Public Const EAX_ENVIRONMENT_GENERIC = 0
    Public Const EAX_ENVIRONMENT_PADDEDCELL = 1
    Public Const EAX_ENVIRONMENT_ROOM = 2
    Public Const EAX_ENVIRONMENT_BATHROOM = 3
    Public Const EAX_ENVIRONMENT_LIVINGROOM = 4
    Public Const EAX_ENVIRONMENT_STONEROOM = 5
    Public Const EAX_ENVIRONMENT_AUDITORIUM = 6
    Public Const EAX_ENVIRONMENT_CONCERTHALL = 7
    Public Const EAX_ENVIRONMENT_CAVE = 8
    Public Const EAX_ENVIRONMENT_ARENA = 9
    Public Const EAX_ENVIRONMENT_HANGAR = 10
    Public Const EAX_ENVIRONMENT_CARPETEDHALLWAY = 11
    Public Const EAX_ENVIRONMENT_HALLWAY = 12
    Public Const EAX_ENVIRONMENT_STONECORRIDOR = 13
    Public Const EAX_ENVIRONMENT_ALLEY = 14
    Public Const EAX_ENVIRONMENT_FOREST = 15
    Public Const EAX_ENVIRONMENT_CITY = 16
    Public Const EAX_ENVIRONMENT_MOUNTAINS = 17
    Public Const EAX_ENVIRONMENT_QUARRY = 18
    Public Const EAX_ENVIRONMENT_PLAIN = 19
    Public Const EAX_ENVIRONMENT_PARKINGLOT = 20
    Public Const EAX_ENVIRONMENT_SEWERPIPE = 21
    Public Const EAX_ENVIRONMENT_UNDERWATER = 22
    Public Const EAX_ENVIRONMENT_DRUGGED = 23
    Public Const EAX_ENVIRONMENT_DIZZY = 24
    Public Const EAX_ENVIRONMENT_PSYCHOTIC = 25
    Public Const EAX_ENVIRONMENT_COUNT = 26 ' total number of environments
    Public Const BASS_STREAMPROC_END = &H80000000 ' end of user stream flag
#End Region

#Region " Special STREAMPROCs "
    Public Const STREAMPROC_DUMMY = 0 ' "dummy" stream
    Public Const STREAMPROC_PUSH = -1 ' push stream
#End Region

#Region " BASS_StreamCreateFileUser file systems "
    Public Const STREAMFILE_NOBUFFER = 0
    Public Const STREAMFILE_BUFFER = 1
    Public Const STREAMFILE_BUFFERPUSH = 2

    Public Structure BASS_FILEPROCS
        Dim close As Long
        Dim length As Long
        Dim read As Long
        Dim seek As Long
    End Structure
#End Region

#Region " BASS_StreamPutFileData options "
    Public Const BASS_FILEDATA_END = 0 ' end & close the file
#End Region

#Region " BASS_StreamGetFilePosition modes "
    Public Const BASS_FILEPOS_CURRENT = 0
    Public Const BASS_FILEPOS_DECODE = BASS_FILEPOS_CURRENT
    Public Const BASS_FILEPOS_DOWNLOAD = 1
    Public Const BASS_FILEPOS_END = 2
    Public Const BASS_FILEPOS_START = 3
    Public Const BASS_FILEPOS_CONNECTED = 4
    Public Const BASS_FILEPOS_BUFFER = 5
#End Region

#Region " BASS_ChannelSetSync types "
    Public Const BASS_SYNC_POS = 0
    Public Const BASS_SYNC_END = 2
    Public Const BASS_SYNC_META = 4
    Public Const BASS_SYNC_SLIDE = 5
    Public Const BASS_SYNC_STALL = 6
    Public Const BASS_SYNC_DOWNLOAD = 7
    Public Const BASS_SYNC_FREE = 8
    Public Const BASS_SYNC_SETPOS = 11
    Public Const BASS_SYNC_MUSICPOS = 10
    Public Const BASS_SYNC_MUSICINST = 1
    Public Const BASS_SYNC_MUSICFX = 3
    Public Const BASS_SYNC_OGG_CHANGE = 12
    Public Const BASS_SYNC_MIXTIME = &H40000000 ' FLAG: sync at mixtime, else at playtime
    Public Const BASS_SYNC_ONETIME = &H80000000 ' FLAG: sync only once, else continuously
#End Region

#Region " BASS_ChannelIsActive return values "
    Public Const BASS_ACTIVE_STOPPED = 0
    Public Const BASS_ACTIVE_PLAYING = 1
    Public Const BASS_ACTIVE_STALLED = 2
    Public Const BASS_ACTIVE_PAUSED = 3
#End Region

#Region " Channel attributes "
    Public Const BASS_ATTRIB_FREQ = 1
    Public Const BASS_ATTRIB_VOL = 2
    Public Const BASS_ATTRIB_PAN = 3
    Public Const BASS_ATTRIB_EAXMIX = 4
    Public Const BASS_ATTRIB_NOBUFFER = 5
    Public Const BASS_ATTRIB_CPU = 7
    Public Const BASS_ATTRIB_MUSIC_AMPLIFY = &H100
    Public Const BASS_ATTRIB_MUSIC_PANSEP = &H101
    Public Const BASS_ATTRIB_MUSIC_PSCALER = &H102
    Public Const BASS_ATTRIB_MUSIC_BPM = &H103
    Public Const BASS_ATTRIB_MUSIC_SPEED = &H104
    Public Const BASS_ATTRIB_MUSIC_VOL_Public = &H105
    Public Const BASS_ATTRIB_MUSIC_VOL_CHAN = &H200 ' + channel #
    Public Const BASS_ATTRIB_MUSIC_VOL_INST = &H300 ' + instrument #
#End Region

#Region " BASS_ChannelGetData flags "
    Public Const BASS_DATA_AVAILABLE = 0         ' query how much data is buffered
    Public Const BASS_DATA_FLOAT = &H40000000    ' flag: return floating-point sample data
    Public Const BASS_DATA_FFT256 = &H80000000   ' 256 sample FFT
    Public Const BASS_DATA_FFT512 = &H80000001   ' 512 FFT
    Public Const BASS_DATA_FFT1024 = &H80000002  ' 1024 FFT
    Public Const BASS_DATA_FFT2048 = &H80000003  ' 2048 FFT
    Public Const BASS_DATA_FFT4096 = &H80000004  ' 4096 FFT
    Public Const BASS_DATA_FFT8192 = &H80000005  ' 8192 FFT
    Public Const BASS_DATA_FFT16384 = &H80000006 ' 16384 FFT
    Public Const BASS_DATA_FFT_INDIVIDUAL = &H10 ' FFT flag: FFT for each channel, else all combined
    Public Const BASS_DATA_FFT_NOWINDOW = &H20   ' FFT flag: no Hanning window
    Public Const BASS_DATA_FFT_REMOVEDC = &H40   ' FFT flag: pre-remove DC bias
#End Region

#Region " BASS_ChannelGetTags types : ID3, APE, BEXT "
    Public Const BASS_TAG_ID3 = 0                ' ID3v1 tags : TAG_ID3 structure
    Public Const BASS_TAG_ID3V2 = 1              ' ID3v2 tags : variable length block
    Public Const BASS_TAG_OGG = 2                ' OGG comments : series of null-terminated UTF-8 strings
    Public Const BASS_TAG_HTTP = 3               ' HTTP headers : series of null-terminated ANSI strings
    Public Const BASS_TAG_ICY = 4                ' ICY headers : series of null-terminated ANSI strings
    Public Const BASS_TAG_META = 5               ' ICY metadata : ANSI string
    Public Const BASS_TAG_APE = 6                ' APEv2 tags : series of null-terminated UTF-8 strings
    Public Const BASS_TAG_MP4 = 7                ' MP4/iTunes metadata : series of null-terminated UTF-8 strings
    Public Const BASS_TAG_VENDOR = 9             ' OGG encoder : UTF-8 string
    Public Const BASS_TAG_LYRICS3 = 10           ' Lyric3v2 tag : ASCII string
    Public Const BASS_TAG_CA_CODEC = 11          ' CoreAudio codec info : TAG_CA_CODEC structure
    Public Const BASS_TAG_MF = 13                ' Media Foundation tags : series of null-terminated UTF-8 strings
    Public Const BASS_TAG_WAVEFORMAT = 14        ' WAVE format : WAVEFORMATEEX structure
    Public Const BASS_TAG_RIFF_INFO = &H100      ' RIFF "INFO" tags : series of null-terminated ANSI strings
    Public Const BASS_TAG_RIFF_BEXT = &H101      ' RIFF/BWF "bext" tags : TAG_BEXT structure
    Public Const BASS_TAG_RIFF_CART = &H102      ' RIFF/BWF "cart" tags : TAG_CART structure
    Public Const BASS_TAG_RIFF_DISP = &H103      ' RIFF "DISP" text tag : ANSI string
    Public Const BASS_TAG_APE_BINARY = &H1000    ' + index #, binary APEv2 tag : TAG_APE_BINARY structure
    Public Const BASS_TAG_MUSIC_NAME = &H10000   ' MOD music name : ANSI string
    Public Const BASS_TAG_MUSIC_ORDERS = &H10002 ' MOD order list : BYTE array of pattern numbers
    Public Const BASS_TAG_MUSIC_MESSAGE = &H10001 ' MOD message : ANSI string
    Public Const BASS_TAG_MUSIC_INST = &H10100   ' + instrument #, MOD instrument name : ANSI string
    Public Const BASS_TAG_MUSIC_SAMPLE = &H10300 ' + sample #, MOD sample name : ANSI string

    ' ID3v1 tag structure
    Public Structure TAG_ID3
        <VBFixedString(3)> Dim id As String
        <VBFixedString(30)> Dim title As String
        <VBFixedString(30)> Dim artist As String
        <VBFixedString(30)> Dim album As String
        <VBFixedString(4)> Dim year As String
        <VBFixedString(30)> Dim comment As String
        Dim genre As Byte
    End Structure

    ' Binary APEv2 tag structure
    Public Structure TAG_APE_BINARY
        Dim key As Long
        Dim data As Long
        Dim length As Long
    End Structure

    ' BWF "bext" tag structure
    Public Structure TAG_BEXT
        <VBFixedString(256)> Dim Description As String         ' description
        <VBFixedString(32)> Dim Originator As String            ' name of the originator
        <VBFixedString(32)> Dim OriginatorReference As String  ' reference of the originator
        <VBFixedString(10)> Dim OriginationDate As String       ' date of creation (yyyy-mm-dd)
        <VBFixedString(8)> Dim OriginationTime As String       ' time of creation (hh-mm-ss)
        Dim TimeReferenceLo As Long             ' low 32 bits of first sample count since midnight (little-endian)
        Dim TimeReferenceHi As Long             ' high 32 bits of first sample count since midnight (little-endian)
        Dim Version As Integer                  ' BWF version (little-endian)
        <VBFixedString(63)> Dim UMID() As Byte               ' SMPTE UMID
        <VBFixedString(189)> Dim Reserved() As Byte
        Dim CodingHistory() As String           ' history
    End Structure
#End Region

#Region " BASS_ChannelGetLength/GetPosition/SetPosition modes "
    Public Const BASS_POS_BYTE = 0          ' byte position
    Public Const BASS_POS_MUSIC_ORDER = 1   ' order.row position, MAKELONG(order,row)
    Public Const BASS_POS_DECODE = &H10000000 ' flag: get the decoding (not playing) position
    Public Const BASS_POS_DECODETO = &H20000000 ' flag: decode to the position instead of seeking
#End Region

#Region " BASS_RecordSetInput flags "
    Public Const BASS_INPUT_OFF = &H10000
    Public Const BASS_INPUT_ON = &H20000

    Public Const BASS_INPUT_TYPE_MASK = &HFF000000
    Public Const BASS_INPUT_TYPE_UNDEF = &H0
    Public Const BASS_INPUT_TYPE_DIGITAL = &H1000000
    Public Const BASS_INPUT_TYPE_LINE = &H2000000
    Public Const BASS_INPUT_TYPE_MIC = &H3000000
    Public Const BASS_INPUT_TYPE_SYNTH = &H4000000
    Public Const BASS_INPUT_TYPE_CD = &H5000000
    Public Const BASS_INPUT_TYPE_PHONE = &H6000000
    Public Const BASS_INPUT_TYPE_SPEAKER = &H7000000
    Public Const BASS_INPUT_TYPE_WAVE = &H8000000
    Public Const BASS_INPUT_TYPE_AUX = &H9000000
    Public Const BASS_INPUT_TYPE_ANALOG = &HA000000
#End Region

#Region " DX8 effect types, use with BASS_ChannelSetFX "
    Public Const BASS_FX_DX8_CHORUS = 0
    Public Const BASS_FX_DX8_COMPRESSOR = 1
    Public Const BASS_FX_DX8_DISTORTION = 2
    Public Const BASS_FX_DX8_ECHO = 3
    Public Const BASS_FX_DX8_FLANGER = 4
    Public Const BASS_FX_DX8_GARGLE = 5
    Public Const BASS_FX_DX8_I3DL2REVERB = 6
    Public Const BASS_FX_DX8_PARAMEQ = 7
    Public Const BASS_FX_DX8_REVERB = 8

    Public Structure BASS_DX8_CHORUS
        Dim fWetDryMix As Single
        Dim fDepth As Single
        Dim fFeedback As Single
        Dim fFrequency As Single
        Dim lWaveform As Long   ' 0=triangle, 1=sine
        Dim fDelay As Single
        Dim lPhase As Long              ' BASS_DX8_PHASE_xxx
    End Structure

    Public Structure BASS_DX8_COMPRESSOR
        Dim fGain As Single
        Dim fAttack As Single
        Dim fRelease As Single
        Dim fThreshold As Single
        Dim fRatio As Single
        Dim fPredelay As Single
    End Structure

    Public Structure BASS_DX8_DISTORTION
        Dim fGain As Single
        Dim fEdge As Single
        Dim fPostEQCenterFrequency As Single
        Dim fPostEQBandwidth As Single
        Dim fPreLowpassCutoff As Single
    End Structure

    Public Structure BASS_DX8_ECHO
        Dim fWetDryMix As Single
        Dim fFeedback As Single
        Dim fLeftDelay As Single
        Dim fRightDelay As Single
        Dim lPanDelay As Long
    End Structure

    Public Structure BASS_DX8_FLANGER
        Dim fWetDryMix As Single
        Dim fDepth As Single
        Dim fFeedback As Single
        Dim fFrequency As Single
        Dim lWaveform As Long   ' 0=triangle, 1=sine
        Dim fDelay As Single
        Dim lPhase As Long              ' BASS_DX8_PHASE_xxx
    End Structure

    Public Structure BASS_DX8_GARGLE
        Dim dwRateHz As Long               ' Rate of modulation in hz
        Dim dwWaveShape As Long            ' 0=triangle, 1=square
    End Structure

    Public Structure BASS_DX8_I3DL2REVERB
        Dim lRoom As Long                    ' [-10000, 0]      default: -1000 mB
        Dim lRoomHF As Long                  ' [-10000, 0]      default: 0 mB
        Dim flRoomRolloffFactor As Single    ' [0.0, 10.0]      default: 0.0
        Dim flDecayTime As Single            ' [0.1, 20.0]      default: 1.49s
        Dim flDecayHFRatio As Single         ' [0.1, 2.0]       default: 0.83
        Dim lReflections As Long             ' [-10000, 1000]   default: -2602 mB
        Dim flReflectionsDelay As Single     ' [0.0, 0.3]       default: 0.007 s
        Dim lReverb As Long                  ' [-10000, 2000]   default: 200 mB
        Dim flReverbDelay As Single          ' [0.0, 0.1]       default: 0.011 s
        Dim flDiffusion As Single            ' [0.0, 100.0]     default: 100.0 %
        Dim flDensity As Single              ' [0.0, 100.0]     default: 100.0 %
        Dim flHFReference As Single          ' [20.0, 20000.0]  default: 5000.0 Hz
    End Structure

    Public Structure BASS_DX8_PARAMEQ
        Dim fCenter As Single
        Dim fBandwidth As Single
        Dim fGain As Single
    End Structure

    Public Structure BASS_DX8_REVERB
        Dim fInGain As Single                ' [-96.0,0.0]            default: 0.0 dB
        Dim fReverbMix As Single             ' [-96.0,0.0]            default: 0.0 db
        Dim fReverbTime As Single            ' [0.001,3000.0]         default: 1000.0 ms
        Dim fHighFreqRTRatio As Single       ' [0.001,0.999]          default: 0.001
    End Structure

    Public Const BASS_DX8_PHASE_NEG_180 = 0
    Public Const BASS_DX8_PHASE_NEG_90 = 1
    Public Const BASS_DX8_PHASE_ZERO = 2
    Public Const BASS_DX8_PHASE_90 = 3
    Public Const BASS_DX8_PHASE_180 = 4
#End Region

#Region " Used with BASS_Init - use VarPtr(guid) in clsid parameter "
    Public Structure GUID
        Dim Data1 As Long
        Dim Data2 As Integer
        Dim Data3 As Integer
        <VBFixedString(7)> Dim Data4() As Byte
    End Structure
#End Region

#Region " WIN 32 "
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Long, ByRef Source As Long, ByVal length As Long)
    Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long

    Public Shared Function BASS_SPEAKER_N(ByVal n As Long) As Long
        Return n * (2 ^ 24)
    End Function
#End Region

#Region " BASS_PluginGetInfo wrappers "
    Private Sub CopyMemoryEx(ByVal Destination As Object, ByVal Source As Long)
        Dim newp = Marshal.AllocHGlobal(Marshal.SizeOf(Destination))
        Call CopyMemory(newp, Source, Marshal.SizeOf(Destination))
        Marshal.PtrToStructure(newp, Destination)
        Marshal.FreeHGlobal(newp)
    End Sub
    Private Function LenB(ByVal Source As Object) As Long
        Return Marshal.SizeOf(Source)
    End Function
    Private Function BASS_PluginGetInfo(ByVal handle As Long) As BASS_PLUGININFO
        Dim pinfo As BASS_PLUGININFO, plug As Long
        plug = BASS_PluginGetInfo_Alias(handle)
        If plug Then
            'Call CopyMemory(pinfo, ByVal plug, LenB(pinfo))
            Call CopyMemoryEx(pinfo, plug)
        End If
        Return pinfo
    End Function
    Private Function BASS_PluginGetInfoFormat(ByVal handle As Long, ByVal index As Long) As BASS_PLUGINFORM
        Dim pform As BASS_PLUGINFORM, plug As Long
        plug = BASS_PluginGetInfo(handle).formats
        If plug Then
            plug = plug + (index * LenB(pform))
            'Call CopyMemory(pform, ByVal plug, LenB(pform))
            Call CopyMemoryEx(pform, plug)
        End If
        Return pform
    End Function

    ' callback functions
    Function STREAMPROC(ByVal handle As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long) As Long

        'CALLBACK FUNCTION !!!

        ' User stream callback function
        ' NOTE: A stream function should obviously be as quick
        ' as possible, other streams (and MOD musics) can't be mixed until it's finished.
        ' handle : The stream that needs writing
        ' buffer : Buffer to write the samples in
        ' length : Number of bytes to write
        ' user   : The 'user' parameter value given when calling BASS_StreamCreate
        ' RETURN : Number of bytes written. Set the BASS_STREAMPROC_END flag to end
        '          the stream.
        Return 0
    End Function

    Sub DOWNLOADPROC(ByVal buffer As Long, ByVal length As Long, ByVal user As Long)

        'CALLBACK FUNCTION !!!

        ' Internet stream download callback function.
        ' buffer : Buffer containing the downloaded data... NULL=end of download
        ' length : Number of bytes in the buffer
        ' user   : The 'user' parameter given when calling BASS_StreamCreateURL

    End Sub

    Sub SYNCPROC(ByVal handle As Long, ByVal channel As Long, ByVal data As Long, ByVal user As Long)

        'CALLBACK FUNCTION !!!

        'Similarly in here, write what to do when sync function
        'is called, i.e screen flash etc.

        ' NOTE: a sync callback function should be very quick as other
        ' syncs cannot be processed until it has finished.
        ' handle : The sync that has occured
        ' channel: Channel that the sync occured in
        ' data   : Additional data associated with the sync's occurance
        ' user   : The 'user' parameter given when calling BASS_ChannelSetSync */

    End Sub

    Sub DSPPROC(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)

        'CALLBACK FUNCTION !!!

        ' VB doesn't support pointers, so you should copy the buffer into an array,
        ' process it, and then copy it back into the buffer.

        ' DSP callback function. NOTE: A DSP function should obviously be as quick as
        ' possible... other DSP functions, streams and MOD musics can not be processed
        ' until it's finished.
        ' handle : The DSP handle
        ' channel: Channel that the DSP is being applied to
        ' buffer : Buffer to apply the DSP to
        ' length : Number of bytes in the buffer
        ' user   : The 'user' parameter given when calling BASS_ChannelSetDSP

    End Sub

    Function RECORDPROC(ByVal handle As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long) As Long

        'CALLBACK FUNCTION !!!

        ' Recording callback function.
        ' handle : The recording handle
        ' buffer : Buffer containing the recorded samples
        ' length : Number of bytes
        ' user   : The 'user' parameter value given when calling BASS_RecordStart
        ' RETURN : BASSTRUE = continue recording, BASSFALSE = stop
        Return 0
    End Function

    ' User file stream callback functions (BASS_FILEPROCS)
    Sub FILECLOSEPROC(ByVal user As Long)

    End Sub

    Function FILELENPROC(ByVal user As Long) As Double ' ???
        Return 0
    End Function

    Function FILEREADPROC(ByVal buffer As Long, ByVal length As Long, ByVal user As Long) As Long
        Return 0
    End Function

    Function FILESEEKPROC(ByVal offset As Long, ByVal offsethigh As Long, ByVal user As Long) As Long
        Return 0
    End Function

    Function BASS_SetEAXPreset(ByVal preset) As Long
        ' This function is a workaround, because VB doesn't support multiple comma seperated
        ' paramaters for each Public Const, simply pass the EAX_ENVIRONMENT_xxx value to this function
        ' instead of BASS_SetEAXParameters as you would do in C/C++
        Dim rt As Long = -1
        Select Case preset
            Case EAX_ENVIRONMENT_GENERIC
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_GENERIC, 0.5, 1.493, 0.5)
            Case EAX_ENVIRONMENT_PADDEDCELL
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_PADDEDCELL, 0.25, 0.1, 0)
            Case EAX_ENVIRONMENT_ROOM
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_ROOM, 0.417, 0.4, 0.666)
            Case EAX_ENVIRONMENT_BATHROOM
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_BATHROOM, 0.653, 1.499, 0.166)
            Case EAX_ENVIRONMENT_LIVINGROOM
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_LIVINGROOM, 0.208, 0.478, 0)
            Case EAX_ENVIRONMENT_STONEROOM
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_STONEROOM, 0.5, 2.309, 0.888)
            Case EAX_ENVIRONMENT_AUDITORIUM
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_AUDITORIUM, 0.403, 4.279, 0.5)
            Case EAX_ENVIRONMENT_CONCERTHALL
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_CONCERTHALL, 0.5, 3.961, 0.5)
            Case EAX_ENVIRONMENT_CAVE
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_CAVE, 0.5, 2.886, 1.304)
            Case EAX_ENVIRONMENT_ARENA
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_ARENA, 0.361, 7.284, 0.332)
            Case EAX_ENVIRONMENT_HANGAR
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_HANGAR, 0.5, 10, 0.3)
            Case EAX_ENVIRONMENT_CARPETEDHALLWAY
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_CARPETEDHALLWAY, 0.153, 0.259, 2)
            Case EAX_ENVIRONMENT_HALLWAY
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_HALLWAY, 0.361, 1.493, 0)
            Case EAX_ENVIRONMENT_STONECORRIDOR
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_STONECORRIDOR, 0.444, 2.697, 0.638)
            Case EAX_ENVIRONMENT_ALLEY
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_ALLEY, 0.25, 1.752, 0.776)
            Case EAX_ENVIRONMENT_FOREST
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_FOREST, 0.111, 3.145, 0.472)
            Case EAX_ENVIRONMENT_CITY
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_CITY, 0.111, 2.767, 0.224)
            Case EAX_ENVIRONMENT_MOUNTAINS
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_MOUNTAINS, 0.194, 7.841, 0.472)
            Case EAX_ENVIRONMENT_QUARRY
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_QUARRY, 1, 1.499, 0.5)
            Case EAX_ENVIRONMENT_PLAIN
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_PLAIN, 0.097, 2.767, 0.224)
            Case EAX_ENVIRONMENT_PARKINGLOT
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_PARKINGLOT, 0.208, 1.652, 1.5)
            Case EAX_ENVIRONMENT_SEWERPIPE
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_SEWERPIPE, 0.652, 2.886, 0.25)
            Case EAX_ENVIRONMENT_UNDERWATER
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_UNDERWATER, 1, 1.499, 0)
            Case EAX_ENVIRONMENT_DRUGGED
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_DRUGGED, 0.875, 8.392, 1.388)
            Case EAX_ENVIRONMENT_DIZZY
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_DIZZY, 0.139, 17.234, 0.666)
            Case EAX_ENVIRONMENT_PSYCHOTIC
                rt = BASS_SetEAXParameters(EAX_ENVIRONMENT_PSYCHOTIC, 0.486, 7.563, 0.806)
        End Select
        Return rt
    End Function

    Function LoByte(ByVal lparam As Long) As Long
        LoByte = lparam And &HFF&
    End Function
    Function HiByte(ByVal lparam As Long) As Long
        HiByte = (lparam And &HFF00&) / &H100&
    End Function
    Function LoWord(ByVal lparam As Long) As Long
        LoWord = lparam And &HFFFF&
    End Function
    Function HiWord(ByVal lparam As Long) As Long
        If lparam < 0 Then
            HiWord = (lparam \ &H10000 - 1) And &HFFFF&
        Else
            HiWord = lparam \ &H10000
        End If
    End Function
    Function MakeWord(ByVal LoByte As Long, ByVal HiByte As Long) As Long
        MakeWord = (LoByte And &HFF&) Or ((HiByte And &HFF&) * &H100&)
    End Function
    Function MakeLong(ByVal LoWord As Long, ByVal HiWord As Long) As Long
        MakeLong = LoWord And &HFFFF&
        HiWord = HiWord And &HFFFF&
        If HiWord And &H8000& Then
            MakeLong = MakeLong Or (((HiWord And &H7FFF&) * &H10000) Or &H80000000)
        Else
            MakeLong = MakeLong Or (HiWord * &H10000)
        End If
    End Function
#End Region

#Region " STRPTR .NET "
    Structure VBStrFromAnsiPtr
        Private hGC As GCHandle
        Private szString As IntPtr

        Public Sub New(ByVal s As String)
            hGC = GCHandle.Alloc(s, GCHandleType.Pinned)
            Me.szString = s
        End Sub

        Public Overrides Function ToString() As String
            Return Marshal.PtrToStringUni(Me.szString)
        End Function

        Public Sub Free()
            szString = Nothing
            hGC.Free()
        End Sub
    End Structure
#End Region

End Class

Conclusion :


Rien ne fonctionne à cause de code non managé.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
68
Salut
C'est quoi, ce code ?
Une source ou un problème à résoudre.
Dans le premier cas, il conviendrait d'expliquer à quoi il sert.
Dans le second, il n'a pas sa place ici; voir le forum

Sans infos, sera désactivé en fin de journée
Messages postés
373
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
17 juin 2013

Plutôt que de mettre tout le script de ta class comme cela, n'aurais-tu pas plutôt intérêt d'expliquer en clair à quoi elle sert vraiment et de mettre un exemple d'utilisation qui est plus parlant pour tous. Merci tout de même de vouloir partager ton savoir...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.