0
0

S.O.S. HELP ME!!!!!

stream = FSOUND_Stream_Open(CommonDialog1.filename, FSOUND_HW2D, 0, 0)
Play = FSOUND_Stream_PlayEx(0, stream, 0, True)
fx = FSOUND_FX_Enable(0, FSOUND_FX_ECHO)

fx return -1

stream = FSOUND_Stream_Open(CommonDialog1.filename, FSOUND_ENABLEFX, 0, 0)
Play = FSOUND_Stream_PlayEx(0, stream, 0, True)
fx = FSOUND_FX_Enable(0, FSOUND_FX_ECHO)

fx return -1

Why?

Thanks

Orma674 ๐Ÿ˜•

  • You must to post comments
0
0

init = fsound_init(48000,255,FSOUND_INIT_ENABLESYSTEMCHANNELFX)

init = 0

why?

  • You must to post comments
0
0

the source code of program is:

Dim stream, Play, Pausa, StopBrano, fx As Integer

Private Sub Cmd_Apri_Click()

CommonDialog1.ShowOpen
stream = FSOUND_Stream_Open(CommonDialog1.FileName, FSOUND_ENABLEFX, 0, length)
Cmd_Apri.Caption = stream

End Sub

Private Sub Cmd_FX_Click()

fx = FSOUND_FX_Enable(fsound_freesound, FSOUND_FX_ECHO)

FXID.Caption = fx

End Sub

Private Sub Cmd_Pausa_Off_Click()

Pausa = FSOUND_SetPaused(1, False)
Cmd_Pausa_Off.Caption = Pausa

End Sub

Private Sub Cmd_Pausa_ON_Click()

Pausa = FSOUND_SetPaused(1, True)
Cmd_Pausa_ON.Caption = Pausa

End Sub

Private Sub Cmd_Play_Click()

Play = FSOUND_Stream_PlayEx(1, stream, 0, True)
Cmd_Play.Caption = Play

End Sub

Private Sub FeedBack_Scroll()

echo = FSOUND_FX_SetEcho(fx, 30, FeedBack.Value, 30, 30, true)

End Sub

Private Sub Form_Load()

init = FSOUND_Init(44100, 32, FSOUND_INIT_ENABLESYSTEMCHANNELFX)

Form1.Caption = init

End Sub

Private Sub Form_Unload(Cancel As Integer)
FSOUND_Close

End Sub

where is the error? why don’t play my song ๐Ÿ˜•

thanks.

  • You must to post comments
0
0

ok!

i have enable fx for stream, but is it possible enable fx for multichannel in software mode?

thanks.

  • You must to post comments
Showing 3 results
Your Answer

Please first to submit.