Progressbar zu einem Download

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von SeriTools.

    Progressbar zu einem Download

    Hallo alle zusammen :thumbup:

    Kann mir wer nenn tipp geben, wie ich es schaffe eine Progress bar zu programmieren, von der ich nenn Downloadfortschritt ablesen kann? :wacko:
    Ich habe mir nämlich eine YouTube Konverter programmiert, weiß aber nicht wann das Video fertig runter geladen haben.

    :!: Danke schon mal wenn mir wer antwortet :thumbdown:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sebi0007“ ()

    Was könnte ich dort rin schreiben ______ ? ?(

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    5. Public Class Form1
    6. Dim WithEvents Http_Download As New WebClient
    7. Dim start_Dl_Url As String
    9. Private Sub cmdDownload_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDownload.Click
    12. Try
    15. Dim qualy As String
    16. Dim eingabe As String
    17. Dim such As String
    18. Dim position As Integer
    19. Dim anzeige As String
    21. eingabe = txtLink.Text
    22. such = "&fm="
    23. position = eingabe.IndexOf(such)
    26. If position = -1 Then
    27. If optGering.Checked = True Then
    28. qualy = ""
    29. ElseIf optHoch.Checked = True Then
    30. qualy = "&fm=22"
    31. ElseIf optHöchste.Checked = True Then
    32. qualy = "&fm=35"
    33. ElseIf optMittel.Checked = True Then
    34. qualy = "&fm=18"
    35. End If
    36. End If
    37. txtLink.Text = txtLink.Text & qualy
    38. Label3.Text = "Ob der Download beendet ist sehen Sie indem Sie in dem von Ihnen gewählten Verzeichnis" & vbCrLf & "auf das Video klicken. Wenn es abgespielt werden kann ist der Download beendet. Kann es" & vbCrLf & "nicht abgespielt werden müssen sie noch einige Zeit warten."
    41. Dim httpURL As New System.Uri(txtLink.Text & qualy)
    42. Dim request As HttpWebRequest = HttpWebRequest.Create(httpURL)
    43. request.Method = WebRequestMethods.Http.Get
    44. Dim response As HttpWebResponse = request.GetResponse()
    45. Dim reader As New StreamReader(response.GetResponseStream())
    46. Dim start_DL_url As String = reader.ReadToEnd()
    47. response.Close()
    49. ' Download Link
    50. Dim anfang_stelle_des_video_downloads_1 As Integer = InStr(start_DL_url, "<!-- end contenttop section -->") + 30
    51. Dim anfang_stelle_des_video_downloads_2 As Integer = InStr(anfang_stelle_des_video_downloads_1, start_DL_url, "url_map") + 13
    52. Dim ende_stelle_des_video_downloads_1 As Integer = InStr(anfang_stelle_des_video_downloads_2 + 5, start_DL_url, "%2C")
    53. Dim Laenge_des_downloads_1 As Integer = ende_stelle_des_video_downloads_1 - anfang_stelle_des_video_downloads_2
    55. Dim Name_des_downloads_1 As String
    56. Name_des_downloads_1 = Mid(start_DL_url, anfang_stelle_des_video_downloads_2, Laenge_des_downloads_1)
    57. Dim end_DL_url As String = Name_des_downloads_1.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
    59. 'Ordner & Download
    60. Dim sfd As New SaveFileDialog
    61. sfd.Filter = "Video|.flv"
    62. If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
    63. Dim Http_Download As New WebClient
    64. Http_Download.DownloadFileAsync(New Uri(end_DL_url), sfd.FileName)
    65. End If
    67. Catch ex As Exception
    68. MsgBox("Kein gültiges Video gefunden! Bitte verwenden Sie nur YouTube Videos!")
    69. End Try
    71. End Sub
    74. Private Sub cmdSurf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSurf.Click
    75. Surf.Show()
    77. End Sub
    79. Private Sub txtLink_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLink.TextChanged
    80. Label3.Text = ""
    81. End Sub
    83. Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
    84. Handles ________.ProgressChanged
    85. Try
    86. ProgressBar1.Maximum = e.MaximumProgress
    87. ProgressBar1.Value = e.CurrentProgress
    88. Catch
    89. End Try
    90. End Sub
    93. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sebi0007“ ()

    Dann muss der WebClient aber auch als WithEvents deklariert werden, denn sonst kann der ein solches Event nicht haben (Naja, außer mit AddHandler)

    Edit: Außerdem muss das Event umbenannt und die Signatur der Sub verändert werden...

    Kommt trotzdem ein Feler

    VB.NET-Quellcode

    1. Private Sub Http_Download_DownloadProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles Http_Download.DownloadProgressChanged
    2. Try
    3. ProgressBar1.Maximum = e.MaximumProgress
    4. ProgressBar1.Value = e.CurrentProgress
    5. Catch
    6. End Try
    8. End Sub


    Fehler 4 Die Private Sub Http_Download_DownloadProgressChanged(sender As Object, e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)-Methode kann das Public Event DownloadProgressChanged(sender As Object, e As System.Net.DownloadProgressChangedEventArgs)-Ereignis nicht behandeln, da die Signaturen inkompatibel sind.

    Naja, denk mal nach:

    (sender As Object, e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) ≠ (sender As Object, e As System.Net.DownloadProgressChangedEventArgs)

    Mfg
    Firestorm

    VB.NET-Quellcode

    1. Private Sub Http_Download_DownloadProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles Http_Download.DownloadProgressChanged
    2. Try
    3. ProgressBar1.Maximum = e.MaximumProgress
    4. ProgressBar1.Value = e.CurrentProgress
    5. Catch
    6. End Try
    8. End Sub


    Öhhm willst du auf einmal einen Webbrowser mit Fortschritts anzeige????

    Du musst in disen Changed event (Dass wo vorhin gepostet wurde)Einfach nur ProgressBar1.value = e.ProgressPercent

    Und für des mit Label empfehle ich einfach mal google usw :thumbdown:

    VB.NET-Quellcode

    1. Private Sub Http_Download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles
    2. Http_Download.DownloadProgressChanged
    4. With ProgressBar1
    5. .Value = e.ProgressPercentage
    6. End With
    8. End Sub


    Sollte eigentlich reichen, um deine Progressbar zu füllen :)
    : NV Updater | Nvidia Driver Update Tool