Problem mit einem YouTube Downloader (Progressbar und DownloadingFile)

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Problem mit einem YouTube Downloader (Progressbar und DownloadingFile)

    Hi Leute

    ich habe mich mal ran gemacht einen YouTube Downloader zubauen funktioniert auch alles super :)
    Aber ich habe ein Problem oder zwei also wenn ich auf den Button zum Downloaden(Button1) klicke soll
    er den Button ausblenden solange bis die Progressbar auf 100% ist. Zusätzlich soll er ein Label(Label2) erscheinen lassen das bei Klick von Button erscheint das geht auch schon aber wieder rum bei 100 % wieder verschwindet. Und wenn ich schon dabei bin vlt kann mir auch einer mit einer Proxy Einstellung helfen. Ich hoffe ihr könnt mir helfen vielen Dank im Voraus.

    Hier ein teil des Codes solltet ihr alles brauchen sagt bescheid

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    2. System.EventArgs) Handles Button1.Click
    4. Button1.Enabled = False
    5. Label2.Visible = True
    6. ProgressBar1.Text = CInt(ProgressBar1.Value / ProgressBar1.Maximum * _
    7. 100).ToString
    10. request = DirectCast(HttpWebRequest.Create(TextBox1.Text), _
    11. HttpWebRequest)
    13. response = DirectCast(request.GetResponse, HttpWebResponse)
    15. source = New StreamReader(response.GetResponseStream, _
    16. System.Text.Encoding.Default).ReadToEnd
    18. If source.IndexOf("video_id") > -1 Then
    22. Dim signature As String = source
    24. signature = System.Text.RegularExpressions.Regex.Split(signature, ( _
    25. ChrW(34) + "fmt_url_map" + ChrW(34) + ": " + ChrW(34)))(1)
    29. signature = signature.Remove(0, 5)
    30. signature = signature.Replace("%252C", ",")
    31. signature = signature.Replace("%2F", "/")
    32. signature = signature.Replace("%3D", "=")
    33. signature = signature.Replace("%3F", "?")
    34. signature = signature.Replace("%3A", ":")
    35. signature = signature.Replace("%26", "&")
    37. Dim sig2 As String = signature
    39. sig2 = sig2.IndexOf("http", 30)
    40. signature = signature.Remove(sig2, signature.Length - sig2)
    41. signature = signature.Remove(signature.IndexOf("%"), 7)
    42. signature = signature.Replace("%", "")
    45. If signature.Chars(signature.Length - 1) = "C" Then
    47. signature = signature.Remove(signature.Length - 1, 1)
    49. End If
    51. BackgroundWorker1.RunWorkerAsync()
    52. downloadurl = signature.ToString()
    54. request2 = DirectCast(HttpWebRequest.Create(signature), _
    55. HttpWebRequest)
    56. response2 = DirectCast(request2.GetResponse, HttpWebResponse)
    58. If response2.ContentType = "video/x-flv" Then
    60. SaveFileDialog1.Filter = "FLV Files (.flv) |*.flv"
    62. ElseIf response2.ContentType = "video/mp4" Then
    64. SaveFileDialog1.Filter = "MP4 Files (.mp4) |*.mp4"
    66. Else
    68. MsgBox("Es ist ein Fehler aufgetreten, und die angeforderte" & _
    69. "Datei (en) konnte nicht heruntergeladen werden." + vbCrLf + _
    70. "Dies wird normalerweise durch Änderungen an der You-Tube" & _
    71. "Website verursacht.", MsgBoxStyle.Critical)
    73. Exit Sub
    75. End If
    77. If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    79. BackgroundWorker1.RunWorkerAsync()
    81. Else
    83. MsgBox("Download abgebrochen!")
    85. End If
    87. Else
    89. MsgBox("Error! Bitte überprüfen Sie die Video-URL!")
    91. End If
    93. End Sub
    95. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
    96. System.EventArgs) Handles TextBox1.TextChanged
    98. If TextBox1.Text = "" Then
    100. Button1.Enabled = False
    101. Label2.Visible = False
    103. End If
    105. End Sub
    107. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
    108. As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    110. web.DownloadFileAsync(New Uri(downloadurl.ToString), _
    111. SaveFileDialog1.FileName)
    113. End Sub
    115. Public Sub DownloadingFile(ByVal sender As Object, ByVal e As _
    116. DownloadProgressChangedEventArgs) Handles web.DownloadProgressChanged
    118. Dim deleg As New OneArgD(AddressOf SetValue)
    119. ProgressBar1.Invoke(deleg, e.ProgressPercentage)
    121. If e.ProgressPercentage = 100 Then
    123. MsgBox("Download ist beendet.")
    124. Button1.Enabled = True
    125. Label2.Visible = False
    127. End If
    129. End Sub

    Wenn du einen asynchronen Download verwendest, brauchst du keinen Backgroundworker. Statt die ProgressBar als Indikator zu nehmen, solltest du den Button wieder einschalten, wenn das DownloadCompleted (o.ä.) event eintritt, bzw wenn ein Fehler auftritt.

    Du sollst ja auch keinen BGW nehmen! Der Webclient hat die entsprechenden Methoden um Files ohne blockierung des aufrufenden Threads zu downloaden - die verwendest du ja auch. Außerdem hat der WebClient die nötigen Events um über den Fortschritt und das Ende des Downloads zu informieren. Muss man halt verwenden. siehe link oben

    Und was sollen deine DirectCast Befehle? Im Prinzip machst du DirectCast(Integer, Integer). Also irgendwie ziemlich unsinnig.

Facebook
Telefonspende