Programm Hängt sich auf bei Download von großen Files

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Programm Hängt sich auf bei Download von großen Files

    Ok Problem ist das sich mein Programm bei dem Download bei größeren Dateien (100mb+)
    sich Aufhängt es Lädt zwar runter doch Die Form wird grau und Reagiert solange nicht mehr bis es Fertig ist

    Habe dieses hier verwendet:
    vbarchiv.net/tipps/tipp_1113.html
    Mit Verbindung eines Progressbars der mir auch nicht viel bringt wenn es sich hängt

    Hat jemand eine Lösung ?

    Backgroundworker.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Mit einem Backgroundworker kann ich nicht auf Forms zugreifen wenn ich mich Irre verbesser mich
    dann müssten sich mit Backgroundworker auch keine DLG's erstellen lassen also hier nochma der Source

    Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDownload.Click
    2. 'Download
    3. Dim dlg As New FolderBrowserDialog
    4. Dim strFile As String
    5. Dim strFolder As String
    7. ' falls keine URL angegeben, Vorgang abbrechen
    8. If Me.txtDownload.Text.Length = 0 Then Exit Sub
    10. Dim strPathParts() As String = Me.txtURL.Text.Split("/")
    11. strFile = txtmovname.Text & txtFinal.Text & ".wmv"
    12. ' Ordner-Auswahldialog anzeigen
    13. If dlg.ShowDialog Then
    14. strFolder = dlg.SelectedPath
    15. Else
    16. Exit Sub
    17. End If
    19. ' Download starten
    20. cmdDownload.Enabled = False
    21. Me.Size = New Size(268, 377)
    22. Call DownloadItem(txtDownload.Text, strFile, strFolder)
    23. Me.Size = New Size(268, 351)
    24. MsgBox("Download beendet")
    25. cmdDownload.Enabled = True



    Quellcode

    1. 'Downloader Modul
    2. Private Sub DownloadItem(ByVal sURL As String, _
    3. ByVal strFile As String, ByVal strFolder As String)
    5. Dim webreq As HttpWebRequest
    6. Dim webresp As HttpWebResponse
    7. Dim bReader As BinaryReader
    8. Dim bWriter As BinaryWriter
    9. Dim stream As FileStream
    10. Dim buffer() As Byte = New Byte(1024) {}
    11. Dim bytesRead As Integer
    13. ' Fortschritt zunächst auf 0% setzen
    14. Me.ProgressBar1.Value = 0
    16. Try
    17. ' Datei-Download via HTTP "anfordern"
    18. webreq = HttpWebRequest.Create(sURL)
    19. webresp = webreq.GetResponse
    21. ' Download-Größe
    22. Me.ProgressBar1.Maximum = webresp.ContentLength
    24. ' lokale Datei öffnen
    25. stream = New FileStream(strFolder & "\" & strFile, FileMode.Create)
    26. bReader = New BinaryReader(webresp.GetResponseStream)
    27. bWriter = New BinaryWriter(stream)
    29. ' Datei blockweise downloaden und lokal speichern
    30. Do
    31. bytesRead = bReader.Read(buffer, 0, 1024)
    32. bWriter.Write(buffer, 0, bytesRead)
    33. ProgressBar1.Value += bytesRead
    34. ProgressBar1.Update()
    35. Loop Until bytesRead = 0
    37. ' alle Dateien schließen
    38. bWriter.Close()
    39. bReader.Close()
    40. stream.Close()
    42. Catch ex As Exception
    43. ' Bei Fehler...
    44. MessageBox.Show("Fehler: " & vbCrLf & ex.Message, _
    45. "Fehler", MessageBoxButtons.OK, _
    46. MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
    47. End Try
    48. End Sub

Facebook