YTInformation-Dings

    • VB.NET

      YTInformation-Dings

      Ich habe mich schon vor längerer Zeit von @Tibiamicus: für eine kleine YTInformation-Klasse inspirieren lassen.
      Referenz hierbei ist immer sein Thread.

      Mir hat seine Herangehensweise nicht wirklich gefallen, sodass ich mir dachte, das besser zu machen. Imho ist mir das auch gelungen.
      Ich möchte mich nicht weiter mit irgendwelchen Kleinigkeiten herumschlagen, daher "nur" der Sourcecode Austausch.
      Was im voraus schon gegeben sein muss:
      • System.Web ist importiert
      • System.Net ist importiert
      • System.Reflection ist importiert

      Jetzt die vmtl. tollste Frage: "Warum Reflection?!" - Wirst du sehen, später.

      Ich nutze eine kleine Structure um mir die Arbeit mit YT Links zu vereinfachen:

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Eine Struktur, die die Videoinformationen hält
      3. ''' </summary>
      4. ''' <remarks></remarks>
      5. Public Structure VideoInfo
      6. Private _url As String
      7. Private _type As String
      9. ''' <summary>
      10. ''' der Fallback Host
      11. ''' </summary>
      12. Public Property FallBack_Host As String
      13. ''' <summary>
      14. ''' Irgendn Tag, der irgendwie gesetzt werden muss.
      15. ''' </summary>
      16. Public Property ITag As Integer
      17. ''' <summary>
      18. ''' Qualität .. oder so
      19. ''' </summary>
      20. Public Property Quality As String
      21. ''' <summary>
      22. ''' Signatur des Videos, afaik.
      23. ''' </summary>
      24. Public Property Sig As String
      25. ''' <summary>
      26. ''' Die URL des Videos
      27. ''' </summary>
      28. Public Property Url As String
      29. Get
      30. Return _url
      31. End Get
      32. Set(value As String)
      33. ' die URL soll bitte keine komischen HTML-Escapes beinhalten
      34. _url = HttpUtility.UrlDecode(value)
      35. End Set
      36. End Property
      37. ''' <summary>
      38. ''' der Typ des Videos.
      39. ''' </summary>
      40. Public Property Type As String
      41. Get
      42. Return _type
      43. End Get
      44. Set(value As String)
      45. ' keine HTML-Escapes
      46. _type = HttpUtility.UrlDecode(value)
      47. End Set
      48. End Property
      49. ''' <summary>
      50. ''' doller FileType. (webm, flv, mp4)
      51. ''' </summary>
      52. Public ReadOnly Property FileType As String
      53. Get
      54. ' dafür muss man wissen, wie der FileType aufgebaut ist.
      55. ' einfach mal durchsteppen und gucken
      56. Return Type.Split(";"c)(0).Split("/"c)(1).Replace("x-", "")
      57. End Get
      58. End Property
      60. ''' <summary>
      61. ''' Gibt die Download-URL zurück
      62. ''' </summary>
      63. Public Overrides Function ToString() As String
      64. ' Download-Url aufbauen
      65. Return String.Format("{0}&fallback_host={1}&signature={2}", Url, FallBack_Host, Sig)
      66. End Function
      67. End Structure


      Ich habe dazu dann noch eine Wrapper-Klasse geschrieben, sodass die Informationen zu den einzelnen Teilen des Videos erreichbar sind.

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Ein Modul, was Methoden zur Verarbeitung von YT-Videos bereitstellt
      3. ''' </summary>
      4. Public Module YTInformation
      5. ''' <summary>
      6. ''' Gibt generisch alle Keys des Videos zurück. (url_encoded_fmt_stream_map, Author, etc.)
      7. ''' </summary>
      8. ''' <param name="videoId">die VideoID. Und nur die. Keine URL!</param>
      9. Public Function Information(videoId As String) As Dictionary(Of String, String)
      10. Return Information(videoId).ToDictionary(Function(item) item.Key, Function(item) item.Value)
      11. End Function
      12. ''' <summary>
      13. ''' Gibt alle VideoInfos zu einer URL_ENCODED_FMT_STREAM_MAP.
      14. ''' </summary>
      15. ''' <param name="data">url_encoded_fmt_stream_map und nur das.</param>
      16. Public Iterator Function UrlMap(data As String) As IEnumerable(Of VideoInfo)
      17. Dim splitted As String() = data.Split(","c)
      19. For Each item As String In splitted
      20. Yield urlInfo(item)
      21. Next
      22. End Function
      24. Private Iterator Function _information(videoId As String) As IEnumerable(Of KeyValuePair(Of String, String))
      25. Dim client As New WebClient()
      26. Dim data As String = client.DownloadString(New Uri("http://youtube.com/get_video_info?&video_id=" & videoId))
      28. Dim splitted As String() = data.Split("&"c)
      30. For Each item As String In splitted
      31. Yield New KeyValuePair(Of String, String)(item.Split("="c)(0), item.Split("="c)(1))
      32. Next
      33. End Function
      34. Private Function urlInfo(line As String) As VideoInfo
      35. Dim info As New VideoInfo()
      36. Dim infoType As Type = info.GetType()
      37. Dim properties As Dictionary(Of String, PropertyInfo) = infoType.GetProperties().ToDictionary(Function(item) item.Name.ToLower(), Function(item) item)
      39. Dim data As String() = line.Split("&"c)
      41. For Each item As String In data
      42. Dim split As String() = item.Split("="c)
      44. properties(split(0).ToLower()).SetValue(info, Convert.ChangeType(split(1), properties(split(0).ToLower()).PropertyType))
      45. Next
      47. Return info
      48. End Function
      49. End Module

      Die Dokumentation ist etwas .. kurz geraten, weil ich per se keine Dokumentation nutze. Naja.
      Jedenfalls kann mit diesem Modul ein Video auf alle Informationen geprüft werden.

      Zudem noch ein kleines Anwendungsbeispiel:

      VB.NET-Quellcode

      1. Sub Main()
      2. Console.WriteLine("Video Id")
      3. Dim id As String = Console.ReadLine()
      4. Dim test As Dictionary(Of String, String) = YTInformation.Information(id)
      5. Dim dat As String = HttpUtility.UrlDecode(test("url_encoded_fmt_stream_map"))
      6. Dim t As IEnumerable(Of VideoInfo) = YTInformation.UrlMap(dat)
      7. Dim index As Integer = 0
      8. Console.WriteLine(String.Join(Environment.NewLine, t.Select(Function(item) increment(index).ToString() & ") " & item.Type & " " & item.Quality)))
      9. Console.WriteLine("Index")
      10. If Integer.TryParse(Console.ReadLine(), index) Then
      11. Dim info As VideoInfo = t.ElementAt(index)
      13. Dim client As New WebClient()
      14. Dim url As String = info.ToString()
      15. Dim decode As String = HttpUtility.UrlDecode(test("title"))
      16. For Each c As Char In Path.GetInvalidFileNameChars()
      17. decode = decode.Replace(c, "-"c)
      18. Next
      19. Dim fileType As String = info.FileType
      20. client.DownloadFile(url, decode & "." & fileType)
      21. End If
      22. End Sub
      24. Private Function increment(ByRef num As Integer) As Integer
      25. num += 1
      26. Return num
      27. End Function


      Ich werde zu diesem Modul keinen Support geben, da ihr euch sicherlich selbst erschließen könnt, wie was funktionieren soll. Wenn nicht, hier noch ein paar Links:
      System.Collections.Generic.IEnumerable(Of T)
      System.Type.GetProperties()
      Yield
      Iterator
      System.Convert.ChangeType
      Im Anhang findet ihr eine Solution (VS2013RC) mit einem C#- und einem VB-Projekt. Beides .NET 4.5.
      Dateien

      • YTDown.zip

        (13,82 kB, 143 mal heruntergeladen, zuletzt: )

    Facebook
    Telefonspende