0
0

[quote:ss2reso6] ReDim mems(3061536)

GetData mems(0), 0, 3 'load mp3 file into memory

pStream = FSOUND_Stream_Open2(mems(0), FSOUND_16BITS Or FSOUND_LOADMEMORY Or FSOUND_MPEGACCURATE Or FSOUND_STEREO, 0, 3061537)
Text1.Text = Text1.Text & pStream & vbCrLf
Text1.Text = Text1.Text & "An error occured playing the stream!" & vbCrLf & _
        FSOUND_GetErrorString(FSOUND_GetError) & vbCrLf
streamChannel = FSOUND_Stream_PlayEx(FSOUND_FREE, pStream, 0, False)
'streamChannel = FSOUND_Stream_Play(FSOUND_FREE, pStream)
Text1.Text = Text1.Text & streamChannel & vbCrLf
Text1.Text = Text1.Text & "An error occured playing the stream!" & vbCrLf & _
        FSOUND_GetErrorString(FSOUND_GetError) & vbCrLf
Text1.Text = Text1.Text & pStream & vbCrLf

[/quote:ss2reso6]
i got
[quote:ss2reso6]3844232
An error occured playing the stream!
No errors
-1
An error occured playing the stream!
An invalid parameter was passed to this function
3844232[/quote:ss2reso6]

if i use this instead:
[quote:ss2reso6] ‘pStream = FSOUND_Stream_Open(“t1.mp3”, FSOUND_NORMAL, 0, 0)[/quote:ss2reso6]
it works!

:( why……………………………………….T_T

  • You must to post comments
Showing 0 results
Your Answer

Please first to submit.