Download Fehler

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von hi1lol.

    Download Fehler

    Ich habe folgendes Problem wenn ich einen download starte geht der bis 129mb danach sagt er Download erfolgreich abgeschlossen. obwohl die datei 300mb groß ist.
    (hab dies mit mehreren datein versucht die über 129mb groß sind)
    Code zum dl start:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. lblProgress.Text = "0 KB"
    2. ProgressBar1.Value = 0
    3. ProgressBar1.Maximum = 100
    5. ' Neue Instanz der WebClient-Klasse erstellen
    6. httpClient = New WebClient
    8. ' EpicEvo download
    9. If ComboBox1.SelectedItem = "EpicEVO" Then
    11. Dim sURL As String = "http://mc.epiccraftec.de/Modpack/EpicEvo.zip"
    13. ' Ziel-Datei (lokal)
    14. Dim sLocalFile As String = My.Settings.minecraftdir & "\EpicEvo.zip"
    16. download.Enabled = False
    17. launch.Enabled = False
    18. mpextract.Enabled = False
    19. sphaxdl.Enabled = False
    20. savedir.Enabled = False
    21. Try
    22. ' Download asynchros starten, damit wir den Fortschritt
    23. ' anzeigen können
    24. httpClient.DownloadFileAsync(New Uri(sURL), sLocalFile)
    25. lblProgress.Visible = True
    26. ProgressBar1.Visible = True
    28. Catch ex As Exception
    29. MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
    30. download.Enabled = True
    31. launch.Enabled = True
    32. mpextract.Enabled = True
    33. sphaxdl.Enabled = True
    34. savedir.Enabled = True
    35. End Try
    36. End If​


    Zum beenden
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. Private Sub httpClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles httpClient.DownloadFileCompleted
    3. MsgBox("Download erfolgreich durchgeführt", MsgBoxStyle.Information)
    4. lblProgress.Visible = False
    5. download.Enabled = True
    6. launch.Enabled = True
    7. mpextract.Enabled = True
    8. sphaxdl.Enabled = True
    9. savedir.Enabled = True
    10. End Sub​


    Wegen status anzeige
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Private Sub httpClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpClient.DownloadProgressChanged
    3. With ProgressBar1
    4. ' prozentuale Anzeige des Fortschritts in der ProgressBar
    5. .Value = e.ProgressPercentage
    7. ' KB-Fortschrittanzeige im Label
    8. Dim TotalBytes As Long = e.TotalBytesToReceive / 1024
    9. Dim Bytes As Long = e.BytesReceived / 1024
    10. If TotalBytes < 1 Then TotalBytes = 1
    11. If Bytes < 1 Then Bytes = 1
    13. lblProgress.Text = Bytes.ToString & " KB von " & TotalBytes.ToString & " KB"
    14. End With
    15. End Sub


    Hoffe ihr könnt mir helfen ;)

Facebook
Telefonspende