Hi

I have a file upload/download web app - it uploads great, but my
download function doesn't work for SWF files. If I type the complete
path to them into the browser, and run from there, it works perfect -
but I don't want to let people see the URL - so instead, I have the
download call this function:

                Dim FileToDownload As String = "test.swf"
                Dim iStream As System.IO.Stream
                ' Buffer to read 10K bytes in chunk:
                Dim buffer(10000) As Byte
                ' Length of the file:
                Dim length As Integer
                ' Total bytes to read:
                Dim dataToRead As Long
                ' Identify the file to download including its path.
                Dim filepath As String = "c:\" & FileToDownload
                ' Identify the file name.
                Dim filename As String =
System.IO.Path.GetFileName(filepath)
                Try
                    ' 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
                    Response.ContentType = "application/octet-stream"
                    Response.AddHeader("Content-Disposition",
"attachment; filename=" & filename)
                    ' 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
                            'prevent infinite loop if user disconnects
                            dataToRead = -1
                        End If
                    End While

                Catch ex As Exception
                    ' Trap the error, if any.
                    'Response.Write("Error : " & ex.Message)
                Finally
                    If IsNothing(iStream) = False Then
                        ' Close the file.
                        iStream.Close()
                    End If
                End Try

But when using this, the SWF file doesn't play.

I think it's something to do with the buffer - perhaps sending too many
bytes to the download, which then somehow corrupts the file - but I'd be
grateful if anyone could help me sort it.

Thank you,

Mark


*** Sent via Developersdex http://www.developersdex.com ***

Using Connection Class VS Connection Module
External exe call from asp.met
master page
Dynamic template for a delete button in gridview
Problem using Create User Wizard control