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
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 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:
VB.NET-Quellcode
- Imports VideoLibrary
- Imports System.IO
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim vid = YouTube.Default.GetVideo(TextBox1.Text)
- Dim save As New SaveFileDialog
- save.Filter = "Mp4 files (*.mp4)|*.mp4"
- save.InitialDirectory = "C:\Users\" + Environment.UserName + "\Downloads\"
- save.FileName = vid.Title
- save.Title = "Speichern unter"
- Try
- If save.ShowDialog = DialogResult.OK Then
- File.WriteAllBytes(save.FileName, vid.GetBytes())
- MessageBox.Show("Das Video wurde erfolgreich gespeichert", "Gespeichert", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
- TextBox1.Clear()
- End If
- Catch ex As Exception
- MessageBox.Show("Es ist ein unerwarteter Fehler aufgetreten. " + ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
- End Try
- End Sub
- Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
- If (TextBox1.Text.Contains("https://www.youtube.com/watch")) Then
- Dim vid = YouTube.Default.GetVideo(TextBox1.Text)
- Try
- Label1.Text = vid.FullName
- Label2.Text = vid.Title
- Label3.Text = vid.Resolution
- 'Label4.Text = Bytes vom kompletten Video
- 'Label4.Text = Heruntergeladene Bytes
- Catch ex As Exception
- End Try
- End If
- End Sub
- 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.