Please help me. I still didn't get to play two audio files with StreamProc.
Function STREAMPROC(ByVal handle As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long) As Long
Dim decbuff(decblock * 2) As Byte
Dim tempbuffer() As Byte
ReDim tempbuffer(length) As Byte
Dim a As Long
Dim c As Long
Dim nBufferPos As Long
nBufferPos = 0
c = length
If exlen Then
a = 0
If (c < exlen) Then
a = c
Else
a = exlen
End If
Call CopyMemory(tempbuffer(nBufferPos), excess(0), a)
Call CopyMemory(excess(0), excess(a), exlen)
nBufferPos = nBufferPos + a
c = c - a
End If
Do While (c)
a = BASS_ChannelGetData(m_hStream, decbuff(0), decblock)
If a < 0 Then
Exit Do
End If
If frmMain.started Then
a = 4 * frmMain.ActiveVis1.ModifySamples(VarPtr(decbuff(0)), a / 4, 16, 2, 44100)
End If
If (a > c) Then
Call CopyMemory(tempbuffer(nBufferPos), decbuff(0), c)
exlen = a - c
Call CopyMemory(excess(0), decbuff(c), exlen)
c = 0
Else
Call CopyMemory(tempbuffer(nBufferPos), decbuff(0), a)
nBufferPos = nBufferPos + a
c = c - a
End If
Loop
Call CopyMemory(ByVal buffer, tempbuffer(0), length - c)
STREAMPROC = length - c
End Function