Abfragen, wie viele Bytes ein Video hat und wie viele schon heruntergeladen wurden

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

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Abfragen, wie viele Bytes ein Video hat und wie viele schon heruntergeladen wurden

    Moin,
    ich bin gerade dabei mit einem Package namens: "VideoLibrary" einen Downloader für YouTube-Videos zu coden. Klappt auch alles ganz gut aber jetzt will ich so ein paar Einzelheiten über das Video und den Fortschritt des Downloads herausfinden.
    Wie kann ich die Bytes von dem Video herausfinden und wie viele Bytes bereits heruntergeladen wurden?

    Hier ist der Code von dem Downloader:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ​Imports VideoLibrary
    2. Imports System.IO
    3. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim vid = YouTube.Default.GetVideo(TextBox1.Text)
    6. Dim save As New SaveFileDialog
    7. save.Filter = "Mp4 files (*.mp4)|*.mp4"
    8. save.InitialDirectory = "C:\Users\" + Environment.UserName + "\Downloads\"
    9. save.FileName = vid.Title
    10. save.Title = "Speichern unter"
    11. Try
    12. If save.ShowDialog = DialogResult.OK Then
    13. File.WriteAllBytes(save.FileName, vid.GetBytes())
    14. MessageBox.Show("Das Video wurde erfolgreich gespeichert", "Gespeichert", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    15. TextBox1.Clear()
    16. End If
    17. Catch ex As Exception
    18. MessageBox.Show("Es ist ein unerwarteter Fehler aufgetreten. " + ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
    19. End Try
    20. End Sub
    21. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    22. If (TextBox1.Text.Contains("https://www.youtube.com/watch")) Then
    23. Dim vid = YouTube.Default.GetVideo(TextBox1.Text)
    24. Try
    25. Label1.Text = vid.FullName
    26. Label2.Text = vid.Title
    27. Label3.Text = vid.Resolution
    28. 'Label4.Text = Bytes vom kompletten Video
    29. 'Label4.Text = Heruntergeladene Bytes
    30. Catch ex As Exception
    31. End Try
    32. End If
    33. End Sub
    34. End Class



    Freue mich über jede Hilfe!

    Liebe Grüße

    PS:
    Hättet ihr auch eine Idee, wie ich das Thumbnail von dem Video anzeigen lassen kann?
    Ich kam, sah und vergaß, was ich vorhatte.
    @Cozy Gugst Du hier und verfolgst das DownloadProgressChanged-Event.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!