[导入]一段显示下载进度条的下载文件代码

VB.NET

Public Shared Sub DownFile(ByVal URL As String, ByVal Filename As String, ByVal Prog As ProgressBar) Dim Myrq As HttpWebRequest = HttpWebRequest.Create(URL) Dim myrp As HttpWebResponse = Myrq.GetResponse Dim totalBytes As Long = myrp.ContentLength Prog.Maximum = totalBytes Dim st As Stream = myrp.GetResponseStream Dim so As Stream = New FileStream(Filename, FileMode.Create) Dim totalDownloadedByte As Long = 0 Dim by(1024) As Byte Dim osize As Integer = st.Read(by, 0, by.Length) While osize > 0 totalDownloadedByte = osize + totalDownloadedByte Application.DoEvents() so.Write(by, 0, osize) Prog.Value = totalDownloadedByte osize = st.Read(by, 0, by.LongLength) End While so.Close() st.Close() End Sub

C#

public static void DownFile( string URL, string Filename, ProgressBar Prog ) { System.Net.HttpWebRequest Myrq = (System.Net.HttpWebRequest)System.Net.HttpWebRequest.Create(URL); System.Net.HttpWebResponse myrp = (System.Net.HttpWebResponse)Myrq.GetResponse(); long totalBytes = myrp.ContentLength; Prog.Maximum = (int)totalBytes; System.IO.Stream st = myrp.GetResponseStream(); System.IO.Stream so = new System.IO.FileStream(Filename, System.IO.FileMode.Create); long totalDownloadedByte = 0; byte[] by = new byte[1024]; int osize = st.Read(by, 0, (int)by.Length); while (osize > 0) { totalDownloadedByte = osize + totalDownloadedByte; Application.DoEvents(); so.Write(by, 0, osize); Prog.Value = (int)totalDownloadedByte; osize = st.Read(by, 0, (int)by.Length); } so.Close(); st.Close(); }
文章来源: http://dotnet.aspx.cc/article/7107b5f4-ff3a-4890-8414-5eb17d50eabf/read.aspx

转载于:https://www.cnblogs.com/fansino/archive/2007/11/14/959334.html