Problem when sending a file to the client

[frenchie seb via .NET 247]

Hi !

here's the code of the function I use to send a file to the client :
Private Function SendFile(ByVal fich As String, ByVal nom As String) As Boolean

Try

Dim oldCT As String = Response.Conten tType

Response.Clear( )
Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der("Content-Disposition", "attachment ; filename=""" & nom & """")

Dim fi As IO.FileInfo = New IO.FileInfo(Ser ver.MapPath("fi chiers\") & fich)
If Not fi.Exists Then
Return False
Exit Function
End If

Dim fs As IO.FileStream = fi.OpenRead
Dim tab(fs.Length) As Byte
fs.Read(tab, 0, fs.Length)
fs.Close()
Response.Binary Write(tab)

Response.Flush( )
Response.Close( )

Response.Clear( )
Response.Conten tType = oldCT

Return True

Catch ex As Exception

Return False

End Try

End Function
When I call it, the transfer works fine, the file is ok, but the web application stops responding to the client. When the client clicks a link or tries to do something on the page, nothing happens and the status bar indicates "Error on page"

Has someone an idea ?

Thanks in advance
--------------------------------
From: frenchie seb

-----------------------
Posted by a user from .NET 247 (http://www.dotnet247.com/)

<Id>xRjvRvO3c06 p6Q698UYtfA==</Id>

[Martin Marinov]

Why do you have Response.Close( ) method ?
Look what is written about this method in MSDN : Closes the socket
connection to a client.
I think you should remove it from there

Regards
Martin

"frenchie seb via .NET 247" <an*******@dotn et247.com> wrote in message
news:Ok******** *****@tk2msftng p13.phx.gbl...

Hi !

here's the code of the function I use to send a file to the client :
Private Function SendFile(ByVal fich As String, ByVal nom As String) As Boolean
Try

Dim oldCT As String = Response.Conten tType

Response.Clear( )
Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der("Content-Disposition", "attachment ; filename=""" & nom & """")
Dim fi As IO.FileInfo = New IO.FileInfo(Ser ver.MapPath("fi chiers\") & fich) If Not fi.Exists Then
Return False
Exit Function
End If

Dim fs As IO.FileStream = fi.OpenRead
Dim tab(fs.Length) As Byte
fs.Read(tab, 0, fs.Length)
fs.Close()
Response.Binary Write(tab)

Response.Flush( )
Response.Close( )

Response.Clear( )
Response.Conten tType = oldCT

Return True

Catch ex As Exception

Return False

End Try

End Function
When I call it, the transfer works fine, the file is ok, but the web application stops responding to the client. When the client clicks a link or
tries to do something on the page, nothing happens and the status bar
indicates "Error on page"
Has someone an idea ?

Thanks in advance
--------------------------------
From: frenchie seb

-----------------------
Posted by a user from .NET 247 (http://www.dotnet247.com/)

<Id>xRjvRvO3c06 p6Q698UYtfA==</Id>