Multi Download

  • VB.NET

    Multi Download

    Hi Leute, da ich in meinem Programm Multi Download einbringen möchte hab ich es eben versucht. Es klappt auch, es lädt beide Zips runter, aber...

    Die Main Form "Form1" freezed ein. Aber warum? Ich benutze dazu eine BackgroundWorker, der für sich selber einen eigene Thread erstellt, und somit die Form1 nicht freezen dürfte. Wenn der Download von dem 2.Zip dann fertig ist, entfreezed die Form1 wieder und es wird im Downloader erst jetzt der Eintrag hinzugefügt.

    Ich weiß das ich irgendwas mit dem MutliThreading/BackgroundWorker flasch mache, aber was?

    Code :

    Download

    VB.NET-Quellcode

    1. Public Function beginDownload(ByVal lvi As ListViewItem)
    2. link = lvi.SubItems(3).Text
    3. destination = lvi.SubItems(1).Text & "\" & lvi.Text & ".zip"
    4. Dim doDownload As New System.ComponentModel.BackgroundWorker()
    5. doDownload.RunWorkerAsync(downloading(link, destination))
    7. Return Nothing
    8. End Function
    10. Public Function downloading(ByVal link As String, ByVal desti As String)
    11. stopper = New Stopwatch
    13. 'Stream zur Datei im Internet erstellen und Lokal
    14. Dim request As HttpWebRequest = HttpWebRequest.Create(link)
    15. Dim response As HttpWebResponse = request.GetResponse
    17. breader = New BinaryReader(response.GetResponseStream)
    18. fstream = New FileStream(destination, FileMode.Create, FileAccess.ReadWrite, FileShare.ReadWrite)
    20. tBytes = response.ContentLength
    22. stopper.Start() 'Mit dem Timer messen wir, wieviele Bytes in der letzten Sekunde heruntergeladen wurden
    23. While (True)
    24. rBytes = breader.Read(buffering, 0, buffering.Length) 'Aus dem Download Stream lesen
    25. If rBytes = 0 Then
    27. Exit While 'Download ist abgeschlossen
    28. End If
    30. fstream.Write(buffering, 0, rBytes) 'Geladene Bytes lokal Speichern
    32. nowBytes += rBytes 'Anzahl gesammt gelesener Bytes erhöhen
    33. loaded_bytes += rBytes 'Anzahl der Bytes erhöhen die in der Letzten Sekunde geladen wurden
    35. If stopper.ElapsedMilliseconds >= 1000 Then 'Wenn eine Sekunde vergangen ist
    36. down_speed = 0
    37. down_speed = FormatNumber(loaded_bytes / 1024, 2) 'Geschwindigkeit berechnen
    38. loaded_bytes = 0 'und zähler zurücksetzen
    39. stopper.Reset() 'den Timer neustarten
    40. stopper.Start()
    41. End If
    42. 'Die Anzeige im Formular-Thread aktualisieren
    43. If down_speed < 1000 Then
    44. fortschritt_label.Text = down_speed & "KB"
    45. Else
    46. fortschritt_label.Text = down_speed & "MB"
    47. End If
    49. If Me.IsHandleCreated = True Then
    50. fortschritt_label.Invoke(New refreshGUIDel(AddressOf refreshGUI), New Object() {})
    51. End If
    52. End While
    54. 'Ressourcen Freigeben
    55. stopper.Stop()
    56. fstream.Close()
    57. breader.Close()
    59. Return Nothing
    60. End Function

    Aufruf in Form1

    VB.NET-Quellcode

    1. Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
    2. If e.Url.AbsoluteUri.Contains(".zip") Then
    3. e.Cancel = True
    5. Dim splitter() As String = Split(e.Url.AbsoluteUri, "/")
    6. Dim bit As String = splitter(splitter.Count - 2)
    7. Dim rn As String = bit.Replace("%20", " ")
    9. Dim lvi As New ListViewItem(rn)
    10. lvi.SubItems.Add(Application.StartupPath & "\Downloads")
    11. lvi.SubItems.Add("wird gedownloadet...")
    12. lvi.SubItems.Add(e.Url.AbsoluteUri)
    13. dowloader.downloads.Items.Add(lvi)
    14. dowloader.beginDownload(lvi)
    15. dowloader.Show()
    16. End If
    17. End Sub


    mfg

Facebook
Telefonspende