• 您的位置我爱Aspx >> VB.Net >> 一段显示下载进度条的下载文件代码

    • 一段显示下载进度条的下载文件代码

  • 作者:aspxer  来源:internet  日期:2007-4-25 20:55:35  关键字:

  • 一段显示下载进度条的下载文件代码 作者：孟宪会 出自：【孟宪会之精彩世界】 发布日期：2007年1月26日 15点27分25秒

    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(); }

    【我对这篇文章有话说?】
  • 广告位招租，广告代号：content_468_15
  • 上一篇：遍历驱动器
    下一篇：没有了!
  • 相关文章