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:
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) |
|
| |
(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) |
|
| |
(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) |
|
| |
(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) |
|
| |
(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!
| |
