next »

[lagarto]

 Hello RevG. The new code source no this more one executing Plugin DSP Adapt-x 3.5. This near the code source two ActiveX, the previous and the new. The previous works Plugin DSP Adapt-x 3.5.  I tried in several ways to play the two audio, but I didn't get. I am putting a link of my code source for you to help me. I have many other ideas that I should put here soon. Help me please.  

http://www.lagartobega.kit.net/lagartodsprevg.zip

[lagarto]

You can send me for the email: largatobega@ig.com.br

[RevG]

ok I will have to look into why the adapt-x plugin isn't working and fix that up. I can't download your source code to try and help you out. The link just times out. Anyway I will be working on the dsp plugin to solve some of these issues.

Cheers,
Greg

[lagarto]

I am not getting to execute two audio files. I only get to execute an audio file. When I execute two audio files, the audio is bad. I don't get to understand, how to play two audio files at the same time.  
 
A Great Hug: You are very helpful and efficient.

[lagarto]

Revg, não sei o motivo, mas o ADAPT-X voltou a funcionar. Estou aguardando a ajuda em relação a execução de dois arquivos de audio. Quando executo somente um, funciona perfeito, mas quando executo dois audios, começa a aparecer uns defeitos. Mas uma vez, muito obrigado.

[lagarto]

"EXCUSE" didn't translate for English.

Revg, don't know the reason, but the ADAPT-X worked again. I am awaiting the help in relation to execution of two audio files. When I only execute a, it works perfect, but when I execute two audio, he/she begins to appear some defects. But once, thank you very much.

[lagarto]

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