If File.Exists(File.DirInternal,fName)=True Then
inFile = File.OpenInput(File.DirInternal, fName)
If lstBuffer.IsInitialized Then
lstBuffer.clear
Else
lstBuffer.Initialize
End If
Do While inFile.BytesAvailable > 0
Dim buffer(bufferSize) As Byte
Dim bytesRead As Int
bytesRead = inFile.ReadBytes(buffer, 0, bufferSize)
If bytesRead < bufferSize Then
Dim actualBuffer(bytesRead) As Byte
bc.ArrayCopy(buffer, 0, actualBuffer, 0, bytesRead)
lstBuffer.Add(actualBuffer)
Else
lstBuffer.Add(buffer)
End If
If bytesRead = 0 Then Exit
Loop
inFile.Close
x=lstBuffer.Size
Log(" PlayStreamer lstBuffer.Size " & x & " yesPlay " & yesPlay & " yesSoundRec " & yesSoundRec )
If x>0 And yesPlay=False And yesSoundRec=False Then
yesPlay=True
Try
streamer.StartPlaying
[B] For Each b() As Byte In lstBuffer ' 189 line[/B]
streamer.Write(b)
Next
streamer.Write(Null) 'when this "message" will be processed, the player will stop.
' streamer.StopPlaying
CallSub(General,"btnStop_Click")
Catch
' streamer.StopPlaying