bool DownloadFile(string sURL, ProgressBar pProgress, string Filename)（文件下载，进度条）

http://www.vbcity.com/forums/topic.asp?tid=41354

Hi all

I want to know how can I get the size of the file being downloaded and the progress status so I can put it in a progress bar.


Code:

       Dim web As New System.Net.WebClient()
        web.DownloadFile("http://www.somethig.com", CurDir() & "\file.exe")
 

If someone knows I would be very thankfull

Thx in advanced..


Edited by - useless on 9/25/2003 1:04:22 PM

9/23/2003 2:20:01 AM

#1 Re: Download status(webclient)

Reply

w/Quote

B'mark-It!

Edit

Del

useless

(Addicted Member)

 

posts: 106
since: Aug 31, 2003
from: Iceland

This reply is rated 1 point.

Well after hrs of search I found the answer and here it is for you all..


Code:

Function DownloadChunks(ByVal sURL As String, ByVal pProgress As ProgressBar, ByVal Filename As String)
        Dim wRemote As System.Net.WebRequest
        Dim URLReq As HttpWebRequest
        Dim URLRes As HttpWebResponse
        Dim FileStreamer As New FileStream(Filename, FileMode.Create)
        Dim bBuffer(999) As Byte
        Dim iBytesRead As Integer

        Try
            URLReq = WebRequest.Create(sURL)
            URLRes = URLReq.GetResponse
            Dim sChunks As Stream = URLReq.GetResponse.GetResponseStream
            pProgress.Maximum = URLRes.ContentLength

            Do
                iBytesRead = sChunks.Read(bBuffer, 0, 1000)
                FileStreamer.Write(bBuffer, 0, iBytesRead)
                If pProgress.Value + iBytesRead <= pProgress.Maximum Then
                    pProgress.Value += iBytesRead
                Else
                    pProgress.Value = pProgress.Maximum
                End If
            Loop Until iBytesRead = 0
            pProgress.Value = pProgress.Maximum
            sChunks.Close()
            FileStreamer.Close()
            Return sResponseData
        Catch
            MsgBox(Err.Description)
        End Try
    End Function

 

7/13/2004 12:23:21 PM

#2 Re: Download status(webclient)

Reply

w/Quote

B'mark-It!

Edit

Del

VBGOD

(New Member)

   

posts: 2
since: Jul 13, 2004
from: USA

This reply is rated 3 points.

Quote:

Posted by useless on 9/23/2003 2:20:01 AM (PST):

Well after hrs of search I found the answer and here it is for you all..


Code:

Function DownloadChunks(ByVal sURL As String, ByVal pProgress As ProgressBar, ByVal Filename As String)
        Dim wRemote As System.Net.WebRequest
        Dim URLReq As HttpWebRequest
        Dim URLRes As HttpWebResponse
        Dim FileStreamer As New FileStream(Filename, FileMode.Create)
        Dim bBuffer(999) As Byte
        Dim iBytesRead As Integer

        Try
            URLReq = WebRequest.Create(sURL)
            URLRes = URLReq.GetResponse
            Dim sChunks As Stream = URLReq.GetResponse.GetResponseStream
            pProgress.Maximum = URLRes.ContentLength

            Do
                iBytesRead = sChunks.Read(bBuffer, 0, 1000)
                FileStreamer.Write(bBuffer, 0, iBytesRead)
                If pProgress.Value + iBytesRead <= pProgress.Maximum Then
                    pProgress.Value += iBytesRead
                Else
                    pProgress.Value = pProgress.Maximum
                End If
            Loop Until iBytesRead = 0
            pProgress.Value = pProgress.Maximum
            sChunks.Close()
            FileStreamer.Close()
            Return sResponseData
        Catch
            MsgBox(Err.Description)
        End Try
    End Function

 

Your VB.NET code is pure genius

It's the only one that seems to work, but... do you also know anything about C#?

I was trying to convert that VB code to C#, but I've ran into one problem.
 :-/

Herb

7/13/2004 11:39:54 PM

#3 Re: [Resolved]Download status(webclient)

Reply

w/Quote

B'mark-It!

Edit

Del

VBGOD

(New Member)

   

posts: 2
since: Jul 13, 2004
from: USA

This reply is rated 3 points.

It's a lot different in C#


Code:

        private bool DownloadFile(string sURL, ProgressBar pProgress, string Filename)
        {
            System.Net.HttpWebRequest URLReq;
            System.Net.HttpWebResponse URLRes;
            System.IO.FileStream FileStreamer;
            byte[] bBuffer = new byte[999];
            int iBytesRead = 0;

            try
            {
                FileStreamer = new FileStream(Filename, System.IO.FileMode.Create);
                URLReq = (HttpWebRequest)System.Net.WebRequest.Create(sURL);
                URLRes = (HttpWebResponse)URLReq.GetResponse();
                Stream sChunks = URLReq.GetResponse().GetResponseStream();
                pProgress.Maximum = Convert.ToInt32(URLRes.ContentLength);
                pProgress.Visible = false;

                do
                {
                    iBytesRead = sChunks.Read(bBuffer, 0, 1000);
                    FileStreamer.Write(bBuffer, 0, iBytesRead);

                    if (pProgress.Value + iBytesRead <= pProgress.Maximum)
                    {
                        pProgress.Value += iBytesRead;
                    }
                    else
                    {
                        pProgress.Value = pProgress.Maximum;
                    }
                }
                while (iBytesRead != 0);

            pProgress.Value = pProgress.Maximum;
            sChunks.Close();
            FileStreamer.Close();
            return true;
            }
            catch (Exception ee)
            {
                MessageBox.Show(ee.Message);
                return false;
            }
        }

3/23/2005 3:49:31 AM

#4 Re: [Resolved]Download status(webclient)

Reply

w/Quote

B'mark-It!

Edit

Del

riico

(New Member)

 

posts: 1
since: Mar 23, 2005

This reply is rated 3 points.

Hi all,
i have noticed that the script doesn't work with small files. It works only with files with a lot of megabytes.

Somebody can help me to modify the code for run it also on small file? I work on c#

Thanks a lot!