show download progress

[Loane Sharp]

Hi there

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

Best regards
Loane

[Herfried K. Wagner [MVP]]

"Loane Sharp" <lo********@hot mail.com> schrieb:

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

<URL:http://groups.google.d e/groups?q=dotnet +download+file+ progress>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Loane Sharp]

Hi Herfried

Thanks very much.

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

<URL:http://groups.google.d e/groups?q=dotnet +download+file+ progress>

[Loane Sharp]

Hi H

Thank you for pointing me in the right direction. I have one small question
.... Why do I get the following error message from the JIT debugger? "An
exception 'System.IO.IOEx ception' has occurred in synchronize.exe ".

My code (a bit abbreviated) is as follows ...

Imports System
Imports System.Drawing
Imports System.Windows. Forms
Imports System.IO
Imports System.Net

Public Class synchronize

Inherits System.Windows. Forms.Form

Shared frmSync As Form
Shared WithEvents btn As Button
Shared lblInfo As Label
Shared pbrSync As ProgressBar
Shared res_App, res_Dat, res_Cht, cdr_Fisheye, cdr_FisheyeTemp ,
emp_FisheyeTemp As Integer
Shared len_App, len_Dat, len_Cht As Double
Shared datBuffer() As Byte
Const pktSize As Integer = 65536
Shared m_resp As HttpWebResponse
Shared m_fs As FileStream

Shared Sub Main()
Application.Run (New synchronize())
End Sub

Public Sub New()
frmSync = New Form()

[some other code skipped]

m_fs = New FileStream("C:\ Fisheye\temp\ap pupdate.zip",
FileMode.Create )
m_resp.GetRespo nseStream().Beg inRead(datBuffe r, 0, pktSize, New
AsyncCallback(A ddressOf On_datRead), frmSync)

[some more code skipped]

End Sub

Shared Sub On_datRead(ByVa l res As IAsyncResult)
Dim pktBytes As Integer = m_resp.GetRespo nseStream().End Read(res)
m_fs.Write(datB uffer, 0, pktBytes)
pbrSync.Value = pbrSync.Value + pktBytes
Application.DoE vents()
If pktBytes > 0 Then
m_resp.GetRespo nseStream().Beg inRead(datBuffe r, 0, pktSize,
New AsyncCallback(A ddressOf On_datRead), frmSync)
Else:
m_fs.Close()
m_fs = Nothing
End If
End Sub

End Class

"Loane Sharp" <lo********@hot mail.com> wrote in message
news:eF******** ******@tk2msftn gp13.phx.gbl...

Hi there

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

Best regards
Loane

[Cor Ligthert]

Herfried,

I had the idea that it was impossible to use the progressbar with the
webclient.downl oadfile

However you gave a link, I did not check all 1000 other links inside that.

Can you give the exact link where that is written because I am very curious
about that.

Cor

[Loane Sharp]

Hi H

The CLR debugger gives the following additional information on the
IOException ...

"Additional information: The process cannot access the file "appupdate. zip"
because it is being used by another process."

Hopefully this helps

Best regards
Loane

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** *******@TK2MSFT NGP10.phx.gbl.. .

"Loane Sharp" <lo********@hot mail.com> schrieb:

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

<URL:http://groups.google.d e/groups?q=dotnet +download+file+ progress>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Ken Tucker [MVP]]

Hi,

Here is a quick example. Add these import statements.

Imports System.Net

Imports System.IO

Sample code

Dim request As WebRequest

Dim response As WebResponse

Dim reader As Stream

Dim writer As Stream

Dim data(1023) As Byte

Dim count As Integer

Dim total As Integer

Me.Show()

Me.Text = "Downloadin g file ....."

Application.DoE vents()

request =
WebRequest.Crea te("http://www.onteorasoft ware.com/downloads/multigrids.zip" )

response = request.GetResp onse()

reader = response.GetRes ponseStream()

ProgressBar1.Ma ximum = CInt(response.C ontentLength)

ProgressBar1.Va lue = 0

total = 0

writer = File.Create("my localdata.zip")

While True

count = reader.Read(dat a, 0, 1024)

If count <= 0 Then

Exit While

End If

writer.Write(da ta, 0, count)

total += 1024

If total < ProgressBar1.Ma ximum Then ProgressBar1.Va lue = total

Application.DoE vents()

End While

reader.Close()

writer.Close()

Ken

--------------------------
"Loane Sharp" <lo********@hot mail.com> wrote in message
news:eF******** ******@tk2msftn gp13.phx.gbl...
Hi there

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

Best regards
Loane

[Loane Sharp]

Hi Ken
Thanks your code worked perfectly.
Best regards
Loane
"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:OO******** ******@TK2MSFTN GP14.phx.gbl...

Hi,

Here is a quick example. Add these import statements.

Imports System.Net

Imports System.IO

Sample code

Dim request As WebRequest

Dim response As WebResponse

Dim reader As Stream

Dim writer As Stream

Dim data(1023) As Byte

Dim count As Integer

Dim total As Integer

Me.Show()

Me.Text = "Downloadin g file ....."

Application.DoE vents()

request =
WebRequest.Crea te("http://www.onteorasoft ware.com/downloads/multigrids.zip" )

response = request.GetResp onse()

reader = response.GetRes ponseStream()

ProgressBar1.Ma ximum = CInt(response.C ontentLength)

ProgressBar1.Va lue = 0

total = 0

writer = File.Create("my localdata.zip")

While True

count = reader.Read(dat a, 0, 1024)

If count <= 0 Then

Exit While

End If

writer.Write(da ta, 0, count)

total += 1024

If total < ProgressBar1.Ma ximum Then ProgressBar1.Va lue = total

Application.DoE vents()

End While

reader.Close()

writer.Close()

Ken

--------------------------
"Loane Sharp" <lo********@hot mail.com> wrote in message
news:eF******** ******@tk2msftn gp13.phx.gbl...
Hi there

I'm currently using WebClient.Downl oadFile to download a file from the
server to my local disk. Is there a way to show the progress of the file
download?

Best regards
Loane