HELP! - Problem Streaming swfs via ADODB.Stream

Question

We are streaming flash swfs from a secure folder using an ASP
script. All has been working well for some time, but now fails with
Flash Player 10.
Following is a portion of the ASP code in the script that
streams a swf. Can anyone see why this might not work with Player
10? -- Thanks....
Set objFSO =
Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFullPathofFile)
Response.AddHeader "Content-Disposition", "attachment;
filename=" & objFile.Name
Response.AddHeader "Content-Length", objFile.Size
Response.ContentType = application/x-shockwave-flash
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFullPathofFile
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
regards,
Geofff

Answer 1

We have the same problem as well and it has broken our site
completely. VB.NET code below. Any help/insight would be greatly
appreciated. One thing I have noticed is that it does not seem to
be a problem with .flv files, only .swf. The strange thing about
this is that when playing the movie in CS3 it loads and plays fine
on my local machine getting the streamed content from the remote
server which leads me to believe that this is a security issue.
Crossdomain.xml file is set to allow all domains and resides in the
root of the web server.
' Open the file.
iStream = New System.IO.FileStream(filePath,
System.IO.FileMode.Open, _
IO.FileAccess.Read, IO.FileShare.Read)
' Total bytes to read:
dataToRead = iStream.Length
totalFileSize = iStream.Length
Response.ContentType = "application/octet-stream"
Response.AddHeader("Content-Disposition", "attachment;
filename=" & filename)
Response.AddHeader("Content-Length", totalFileSize.ToString)
' Read the bytes.
While dataToRead > 0
' Verify that the client is connected.
If Response.IsClientConnected Then
' Read the data in buffer
length = iStream.Read(buffer, 0, 10000)
' Write the data to the current output stream.
Response.OutputStream.Write(buffer, 0, length)
' Flush the data to the HTML output.
Response.Flush()
ReDim buffer(10000) ' Clear the buffer
dataToRead = dataToRead - length
Else
isPartialFile = True
'record the data read in the database HERE (partial file)
totalDelivered = totalFileSize - dataToRead
'prevent infinite loop if user disconnects
dataToRead = -1
End If
End While