至顶网›软件频道 ›基础软件›一段显示下载进度条的下载文件代码

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

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

作者：孟宪会来源：中国IT实验室 2008年6月11日

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

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

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

业界热点: