User2095086431 posted
So I have been trying to figure an issue for a while and I am running out of ideas. So here is the scenario, I have a mobile friendly website that allows users to stream MP3 files. It works perfectly fine on desktop browsers. However, when I test out on
my iPhone (iOS5 on iPhone 4) it is hit or miss. At times the file will stream fine at times I get the following error: "The operation could not be completed". Not sure why it happens. But only thing I have noticed it happens on files larger than 5MB. I
have tried making sure that the executionTimeout and maxRequestLength values are very high in the web.config file. I have been testing one large file of about 7MB and sometimes it will stream, sometimes it will not stream. Very inconsistent. Cannot
for the life of me figure out why. Anyone encounter this issue? What would be the best workaround? The following is my streaming code(note it is copying the files from a local remote server). Thanks in advance!
'Create a stream for the file
Dim stream As Stream = Nothing
'This controls how many bytes to read at a time and send to the client
Dim bytesToRead As Integer = 10000
' Buffer to read bytes in chunk size specified above
Dim buffer As Byte() = New [Byte](bytesToRead - 1) {}
' The number of bytes read
Try
'Create a WebRequest to get the file
Dim fileReq As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://127.0.0.1/mp3s/file.mp3"), HttpWebRequest)
'Create a response for this request
Dim fileResp As HttpWebResponse = DirectCast(fileReq.GetResponse(), HttpWebResponse)
If fileReq.ContentLength > 0 Then
fileResp.ContentLength = fileReq.ContentLength
End If
'Get the Stream returned from the response
stream = fileResp.GetResponseStream()
' prepare the response to the client. resp is the client Response
Dim resp = HttpContext.Current.Response
'Indicate the type of data being sent
resp.ContentType = "audio/mpeg3"
'Name the file
resp.AddHeader("Content-Disposition", "attachment; filename=""" & filename & """")
resp.AddHeader("Content-Length", fileResp.ContentLength.ToString())
Dim length As Integer
Do
' Verify that the client is connected.
If resp.IsClientConnected Then
' Read data into the buffer.
length = stream.Read(buffer, 0, bytesToRead)
' and write it out to the response's output stream
resp.OutputStream.Write(buffer, 0, length)
' Flush the data
resp.Flush()
'Clear the buffer
buffer = New [Byte](bytesToRead - 1) {}
Else
' cancel the download if client has disconnected
length = -1
End If
'Repeat until no data is read
Loop While length > 0
Finally
If stream IsNot Nothing Then
'Close the input stream
stream.Close()
End If
End Try
