BakgroundWorker und DownloadFileAsync

.Scare · 29. April 2014, 11:29

EDIT: Hier ist die Lösung in dem Spoiler

Hallo Community,

Ich wahr gerade mal das neue Foren System am durchstöbern als ich über ein Tutorial gestolpert bin von dem Backgroundworker.

Nun habe ich dies mal nach geschrieben wie es ungefähr im Tutorial der Fall wahr.
Dies hat auch wunderschön funktioniert.

Da hatte ich die Idee das ich es ja nochmals mit einem DownloadFileAsync versuchen könnte.

Doch hier happert es gerade einwenig.

VB.NET-Quellcode

Public Class Form1
Dim WithEvents BGW As New System.ComponentModel.BackgroundWorker With {.WorkerReportsProgress = True, .WorkerSupportsCancellation = True}
Dim WithEvents wc As New System.Net.WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Zeilen() As String
Zeilen = Split(tb_files.Text, vbCrLf)
Dim lin As Integer = CInt(UBound(Zeilen))
MsgBox(lin)
If Not BGW.IsBusy Then
Label1.Text = "Download wird gestartet"
Button1.Enabled = False
MsgBox(CInt(tb_files.Lines.Length))
ProgressBar_Ges.Maximum = lin
ProgressBar_Ges.Value = 0
For Each line As String In tb_files.Lines
If Not BGW.IsBusy Then
BGW.RunWorkerAsync(line)
End If
Next
End If
End Sub
Private Sub BGW_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
wc.Proxy = Nothing
wc.DownloadFileAsync(New Uri("http://scarecoding.ohost.de/asynctest/" + e.Argument), Application.StartupPath + "/" + e.Argument)
End Sub
Private Sub BGW_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW.ProgressChanged
End Sub
Private Sub BGW_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted
Label1.Text = "Download abgeschlossen"
End Sub
Private Sub wc_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
Invoke(Sub()
ProgressBar_File.Maximum = CInt(e.TotalBytesToReceive)
ProgressBar_File.Value = CInt(e.BytesReceived)
End Sub)
End Sub
End Class

Ich der tb_files steht das hier:

Quellcode

1.txt
2.txt
3.txt
4.txt

Ich möchte eigentlich das es mir eine Datei nach der anderen von meinem Webspace herunterlädt und mit den Gesamt und auch den Momentan Fortschritt anzeigt ein den beiden ProgressBar's.

Die "1.txt" wird heruntergeladen und der Aktuelle Fortschritt wird mir richtig angezeigt. aber die 2 3 & 4.txt werden nicht heruntergeladen, ich weis nicht wie ich das machen muss das der BGW wartet bis die eine Datei fertig geladen wurde und dann die nächste nimmt.

RodFromGermany · 29. April 2014, 11:38

Wenn Du mit

.Scare schrieb:

VB.NET-Quellcode

DownloadFileAsync

Dateien ziehst, brauchst Du keinen BGW, denn das Async sorgt bereits dafür, dass das Downloaden in einem anderen Thread stattfindet.
Falls Du mehrere Dokumente parallel downloaden willst, gugst Du hier.

.Scare · 29. April 2014, 11:45

Danke für deine Rasche AW, ich habe es auch schon versucht ohne BGW, aber wen ich dann mehrere Dateien habe wie in diesem Fall kommt immer ein Fehler das der Downloader bereits was macht. Ich möchte nur eine Datei nach der anderen herunterladen, dies aber mit der Async Methode da ich auf die weise den Fortschritt der einzelnen Dateien ausgeben könnte.

was ja mit dem normalen DownloadFile nicht geht. deshalb dachte ich mit dem BGW könnte es gehen.

mein Vorhaben:

Liste mit Dateien erstellen
überprüfen ob vorhanden
wen nicht ---> Herunterladen
fertig.

es sind in der regel 300-700 Dateien in einer Grössen von ca. 1Mb-50Mb

RodFromGermany · 29. April 2014, 11:50

.Scare schrieb:

mehrere Dateien

musst Du pro Datei einen neuen DownloadFileAsync starten.
Gugst Du nochmal hier, lies das mal bis zum Ende durch.

.Scare · 29. April 2014, 12:10

Hm ich steige nicht ganz durch bei deinem Code was da ganz genau abgeht. und warum das du dies mit Threads machst und immer wider neue Threads erstellst?

Gibt es nicht eine einfachere Lösung? Das ich die Dateien in einer ForEach Schleife abarbeiten kann und so an eine Sub Schicke welche sie dann herunterlädt?
Ich möchte nicht unbedingt zuviel mit Threads machen da ich diese noch nicht sooo gut kenne und weis das man da viele Fehler reinhauen kann und gut aufpassen muss wegen den Zugriffen aus einem Thread heraus.

EDIT: Sowas dachte ich mir <<----Klick

RodFromGermany · 29. April 2014, 12:21

@.Scare
Willst Du die Files nacheinander downloaden
oder
willst Du die Files parallel downloaden?

.Scare · 29. April 2014, 12:24

RodFromGermany schrieb:

@.Scare
Willst Du die Files nacheinander downloaden
oder
willst Du die Files parallel downloaden?

eines nach dem anderen, aber mit Fortschritts Anzeige für das ladende File und für den Gesamtzustand.

ich überprüfe die Datei in einer schleife, wen OK weiter. wen nicht oke --> Download.. DL fertig weiter prüfen.

Sorry das ich es nicht so ganz verständlich rüber gebracht habe.

.Scare · 30. April 2014, 21:04

wüsste hier jemand eine Lösung zu meinem Problem?

Nochmals eine kleine schilderung:

Ich versuche es mehrere Dateien zu Downloaden, eine Datei nach der anderen und dies mit DownloadFileAsync
weil ich mit 2 Progressbars Arbeiten möchte(Aktueller Fortschritt, Gesamtfortschritt)

Das Problem ist das ich nicht drauf komme wie das ich dem Downloader sagen kann das er warten soll mit der nächsten Datei solange noch die Vorige am herunterladen ist.

ErfinderDesRades · 30. April 2014, 21:16

wie soll das überhaupt gehen, mit der PB für den Gesamtfortschritt?
Dafür müsstest du doch die Gesamtlänge aller zu ladenden Dateien kennen.

.Scare · 30. April 2014, 21:44

dies ist auch bekannt. alle Dateien stehen in einer liste. durch das kann ich einen ladebalken für den gesammt Fortschritt machen.Mein Problem bezieht sich aber auf das mit dem DownloadFileAsync mit DownloadFile geht es, aber da kann ich den Aktuellen Fortschritt nicht an eine PB geben.

deswegen möchte ich es mit DownloadFileAsync realisieren.

ErfinderDesRades · 30. April 2014, 21:52

ja, gut, da musste halt eine Ereigniskette programmieren.
Es gibt ja das DownlaodCompleted -Event, und darin musste halt den nächsten Download starten.

Was jdfs. nicht geht ist, Backgroundworker und DownloadAsync gleichzeitig einzusetzen.

.Scare · 30. April 2014, 22:00

ErfinderDesRades schrieb:

ja, gut, da musste halt eine Ereigniskette programmieren.
Es gibt ja das DownlaodCompleted -Event, und darin musste halt den nächsten Download starten.

hm da liegt ja grad mein Problem, ich arbeite die liste mit einer For Each Schleife ab. Wie kann ich dem dann eine solche ereignisskete geben? dies geht mir nicht so ganz in die "Birne"

VB.NET-Quellcode

For Each line As String In tb_files.Lines
Downloader(line)
Next

ErfinderDesRades schrieb:

Was jdfs. nicht geht ist, Backgroundworker und DownloadAsync gleichzeitig einzusetzen.

Dies Dachte ich mir auch schon fast. hatte die Hoffnung das ich dies beim BGW realisieren könnte, das er wartet bis der DL fertig ist und dann den nächsten DL startet.

__________________________________________________________________________________________________________________________

Mein Bisheriger Code ist so:

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Dim WithEvents wc As New System.Net.WebClient
Public link As String = ("http://scarecoding.ohost.de/asynctest/")
Public loc_path As String = Application.StartupPath + "/"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Anzahl Zeilen
Dim Zeilen() As String
Zeilen = Split(tb_files.Text, vbCrLf)
Dim Anzahl_Linien As Integer = CInt(UBound(Zeilen))
'##################################################
Label1.Text = "Download wird gestartet"
Button1.Enabled = False
ProgressBar_Ges.Maximum = Anzahl_Linien
ProgressBar_Ges.Value = 0
For Each line As String In tb_files.Lines
Downloader(New Uri(link & line), loc_path + line)
Next
End Sub
Private Sub Downloader(ByVal link As Uri, ByVal loc_path As String)
wc.Proxy = Nothing
wc.DownloadFileAsync(link, loc_path)
End Sub
Private Sub wc_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
ProgressBar_Ges.Value += 1
End Sub
Private Sub wc_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
Invoke(Sub()
ProgressBar_File.Maximum = CInt(e.TotalBytesToReceive)
ProgressBar_File.Value = CInt(e.BytesReceived)
End Sub)
End Sub
End Class

Aber genau hier ist das Problem das die Schleife schneller ist als der WebClient Nun müsste ich irgend wie sagen können das der Nächste Download erst beginnt wen der Vorige fertig ist... nur wie?

RoulettePilot · 30. April 2014, 23:29

hmm.. habe ich richtig verstanden...
du willst.. sagen wir 5 Dateien herunter laden.
und eine "Downloadanzeige" haben die z.b. anzeigt wieviele der 5 Files fertig sind.
(also nicht die Länge der File sondern einfach die Anzahl?

warum dann fileasync?
mache einen BGW und lasse dort deine schleife mit den 5 files abarbeiten. und nach jeder fertigen Datei,
(er kommt ja erst zurück wenn er fertig ist), dann die Dateianzeige eins rauf.
ferddich..

oder wie EDR schon sagte.. auf das complete-Event warten.

.Scare · 30. April 2014, 23:32

Hallo,

Nein ich möchte 2 Ladebalken haben.. einen für das Gesamte also anzahl Files und einen für den Momentanen Fortschritt des gerade ladenden Files

RoulettePilot schrieb:

oder wie EDR schon sagte.. auf das complete-Event warten.

ja, nur genau DAS ist genau das was ich suche aber nicht finde.. wie kann ich WARTEN? ich möchte unbedingt den Async benutzen.

Hier nochmals der Code:

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Dim WithEvents wc As New System.Net.WebClient
Public link As String = ("http://scarecoding.ohost.de/asynctest/")
Public loc_path As String = Application.StartupPath + "/"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Anzahl Zeilen
Dim Zeilen() As String
Zeilen = Split(tb_files.Text, vbCrLf)
Dim Anzahl_Linien As Integer = CInt(UBound(Zeilen))
'##################################################
Label1.Text = "Download wird gestartet"
Button1.Enabled = False
ProgressBar_Ges.Maximum = Anzahl_Linien
ProgressBar_Ges.Value = 0
For Each line As String In tb_files.Lines
Downloader(New Uri(link & line), loc_path + line)
Next
End Sub
Private Sub Downloader(ByVal link As Uri, ByVal loc_path As String)
wc.Proxy = Nothing
wc.DownloadFileAsync(link, loc_path)
End Sub
Private Sub wc_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
ProgressBar_Ges.Value += 1
End Sub
Private Sub wc_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
Invoke(Sub()
ProgressBar_File.Maximum = CInt(e.TotalBytesToReceive)
ProgressBar_File.Value = CInt(e.BytesReceived)
End Sub)
End Sub
End Class

nun sollte ich ja in der For Each schleife warten können oder im Downloader SUB.. und genau dies macht mir schwirigkeiten.. WIER kann ich auf das DownloadFileCompleted event warten?

RoulettePilot · 30. April 2014, 23:43

Du hast doch oben Stehen...
dim WithEvents WC....

nun wähle einfach oben links in der Combobox WC aus , und schau in der Rechten nach, was du alles für tolle Events hast, die abgefeuert werden.

oder habe ich jetzt total was falsch verstanden?

.Scare · 30. April 2014, 23:48

Schau mal den Code an den ich gepostet habe im Spoiler

Ich habe das wc_DownloadProgressChanged && wc_DownloadFileCompleted ja in gebrauch.... =)

Mein Problem ist, das der WebClient eine datei anfängt runter zu laden und dan gleich die nächste runterladen möchte.

ICH möchte aber das er wartet bis die erste fertig ist und erst dan mit der nächsten datei weiter macht.

RoulettePilot · 30. April 2014, 23:52

dann pfeiff doch auf deine Schleife, sondern fange die nächste Datei erst dann an, wenn "completed" ist.
also nicht nur die Progressbar +1 ,
sondern hier auch den nächsten Load anstoßen.
Also im Prinzip so wie du es auch sagst: Wenn fertig (Event completed) dann erst nächste Datei....

.Scare · 30. April 2014, 23:53

RoulettePilot schrieb:

Also im Prinzip so wie du es auch sagst: Wenn fertig (Event completed) dann erst nächste Datei...

hehe.. und genau das ist mein Problem.. wie soll ich dies angehen?

EDIT:

Zudem kann ich auf die schleife ja nicht verzichten.. ich habe ja mehrere dateien in einer Liste stehen die es herunterladen soll...

Ohne schleiffe kann ich dies ja nicht machen

RoulettePilot · 1. Mai 2014, 00:00

wie? tippen?

mach doch eine Liste mit deinen Files..
Setze den Zeiger auf das 1. file..
nun downlaod starten..

im CompleteEvent entweder Zeiger+1 und nächstes downloaden,
oder ein Flag setzen "juuhuuuIchBinFertig" = True.. die du dann ausserhalb abfragst.
Sobald dieses Flag True setzt du es wieder auf False und lädst die nächste Datei...
es sei denn das Ende der Liste ist erreicht... dann machst du halt nix mehr.

*verwirrtgugg*

.Scare · 1. Mai 2014, 00:03

RoulettePilot schrieb:

mach doch eine Liste mit deinen Files..

meinst du eine List of?

RoulettePilot schrieb:

Setze den Zeiger auf das 1. file..

Wie setze ich den Zeiger auf das erste File? =) Heute ist wirklich grad etwas verwirrungs Tag =))))

Danke für deine Hilfsbereitschaaft =)

EDIT:

Ich glaube ich habe durch deine Inspiration eine Idee was und wie du es meinst. mal testen =)

BakgroundWorker und DownloadFileAsync

BakgroundWorker und DownloadFileAsync

VB.NET-Quellcode

Quellcode

.Scare schrieb:

VB.NET-Quellcode

.Scare schrieb:

RodFromGermany schrieb:

ErfinderDesRades schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

RoulettePilot schrieb:

VB.NET-Quellcode

RoulettePilot schrieb:

RoulettePilot schrieb:

RoulettePilot schrieb:

Ähnliche Themen

6 Benutzer haben hier geschrieben