0
0

Whats the wrong with below code. Exe not working and gives microsoft error in xp when i use “callback.Method.MethodHandle.GetFunctionPointer()”

Public Delegate Function EchoCallbackDelegate(ByVal newbuffer As Integer, ByVal origbuffer As Integer, ByVal Length As Integer, ByVal param As Integer) As Integer
Public Sub Init()
Dim callback As EchoCallbackDelegate = AddressOf EchoCallback
Stream = FSOUND_Stream_Open(VB6.GetPath & “\test.mp3”, modFMOD.FSOUND_MODES.FSOUND_16BITS + modFMOD.FSOUND_MODES.FSOUND_STEREO, 0, 0)
EchoOffset = 0
EchoBuff = GlobalAlloc(&H40S Or &H0S, LShift(MaxEchoLen, 2))
EchoUnit = FSOUND_DSP_Create(callback.Method.MethodHandle.GetFunctionPointer(), modFMOD.FSOUND_DSP_PRIORITIES.FSOUND_DSP_DEFAULTPRIORITY_USER, 0)
Channel = FSOUND_Stream_Play(modFMOD.FSOUND_CHANNELSAMPLEMODE.FSOUND_FREE, Stream)
Call FSOUND_DSP_SetActive(EchoUnit, 1)
End Sub

  • You must to post comments
Showing 0 results
Your Answer

Please first to submit.