Function Name: ResponseFile
Function: the client downloads an object from the server.
Return Value: True indicates that the server response is successful. False indicates that the server response fails.
Parameters:
PageResponse responds to the client's Response object and uses Page. Response to reference
DownloadFileName the file name downloaded from the client
LocalFilePath path of the file to be downloaded on the server
The buffer size of the DownloadBuffer server for reading files, measured in KB.
Public Function ResponseFile (ByRef PageResponse As HttpResponse, ByVal DownloadFileName As String, ByVal LocalFilePath As String, ByVal DownloadBuffer As Long) As Boolean
Dim Reader As System. IO. FileStream
Dim Buffer () As Byte
Dim FileLength As Long
Dim FileBuffer As Long = 1024 * DownloadBuffer
Dim ReadCount As Long
ReadCount = FileBuffer
ReDim Buffer (ReadCount-1)
Try
Reader = System. IO. File. OpenRead (LocalFilePath)
FileLength = Reader. Length
Try
PageResponse. Buffer = False
PageResponse. AddHeader ("Connection", "Keep-Alive ")
PageResponse. ContentType = "application/octet-stream"
PageResponse. AddHeader ("Content-Disposition", "attachment; filename =" + DownloadFileName)
PageResponse. AddHeader ("Content-Length", FileLength. ToString)
While ReadCount = FileBuffer
ReadCount = Reader. Read (Buffer, 0, FileBuffer)
ReDim Preserve Buffer (ReadCount-1)
PageResponse. BinaryWrite (Buffer)
End While
Response. End ()
Catch ex As Exception
Return False
Finally
Reader. Close ()
End Try
Catch ex As Exception
Return False
End Try
Return True
End Function