KiMoGiGi 技术文集

      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 = "DownloadFileName"

      ' 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

	System.IO.Stream iStream = null;

	// Buffer to read 10K bytes in chunk:
	byte[] buffer = new Byte[10000];

	// Length of the file:
	int length;

	// Total bytes to read:
	long dataToRead;

	// Identify the file to download including its path.
	string filepath  = "DownloadFileName";

	// Identify the file name.
	string  filename  = System.IO.Path.GetFileName(filepath);

	try
	{
		// Open the file.
		iStream = new System.IO.FileStream(filepath, System.IO.FileMode.Open, 
					System.IO.FileAccess.Read,System.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) 
			{
				// 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();

				buffer= new Byte[10000];
				dataToRead = dataToRead - length;
			}
			else
			{
				//prevent infinite loop if user disconnects
				dataToRead = -1;
			}
		}
	}
	catch (Exception ex) 
	{
		// Trap the error, if any.
		Response.Write("Error : " + ex.Message);
	}
	finally
	{
		if (iStream != null) 
		{
			//Close the file.
			iStream.Close();
		}
	}