Youtube API

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von misbe2010.

      Youtube API

      Ich hatte etwas Langeweile und da mich schon immer interessiert hat wie Youtube seine Videos verwaltet und wie man deren API Zugriffe nutzen kann
      habe ich mich an die Arbeit gemacht und eine kleine API Klasse dafür geschrieben, dazu hab ich noch ein Beispiel beigefügt, die Informationen lassen sich leicht über die
      Variablen abrufen.

      VB.NET-Quellcode

      1. Public Class youtubeAPI
      2. Public Username As String
      3. Public Likes As String
      4. Public Dislikes As String
      5. Public Description As String
      6. Public Title As String
      7. Public CacheLink As String
      8. Public tCacheLink As String
      9. Public VideoStream As String
      10. Public Rating As Single
      11. Public Tumbnail As String
      12. Public VideoID As String
      13. Public Tags() As String
      14. Public Länge As String ' HH:MM:SS
      15. Public Tumbnail_client As Net.WebClient
      16. Public RatingAllowed As Boolean
      18. Public Sub New(ByVal youtubelink As String)
      19. Dim parseText As String = DownloadWebpage(youtubelink)
      21. Likes = getContent(parseText, "class=""likes"">", "<")
      22. If Not IsNumeric(Likes) Then Likes = "0"
      24. If Not IsNumeric(Dislikes) Or Dislikes = "" Then Dislikes = "0"
      25. Dislikes = getContent(parseText, "class=""dislikes"">", "<")
      26. Description = getContent(parseText, "<p id=""eow-description"" >", "</p>")
      27. Description = Replace(Description, "<br />", vbNewLine)
      29. Dim sls() As String
      30. Dim ID_LINK As String
      31. If InStr(youtubelink, "&") Then
      32. sls = Split(youtubelink, "&")
      33. ID_LINK = sls(0).Substring(sls(0).LastIndexOf("=") + 1)
      34. Else
      35. ID_LINK = youtubelink.Substring(youtubelink.LastIndexOf("=") + 1)
      36. End If
      37. VideoID = ID_LINK
      38. Dim rqt As System.Net.WebRequest _
      39. = System.Net.WebRequest.Create("http://www.youtube.com/get_video_info?video_id=" & ID_LINK)
      41. Dim streamread As IO.StreamReader
      42. Dim io_streamer As IO.Stream
      43. io_streamer = rqt.GetResponse.GetResponseStream
      44. streamread = New IO.StreamReader(io_streamer)
      45. tCacheLink = URLDecode(streamread.ReadToEnd)
      46. tCacheLink = tCacheLink & "&"
      47. Title = getContent(tCacheLink, "&title=", "&")
      48. Username = getContent(tCacheLink, "&author=", "&")
      49. RatingAllowed = CBool(CInt(getContent(tCacheLink, "&allow_ratings=", "&")))
      50. Tumbnail = getContent(tCacheLink, "&thumbnail_url=", "&")
      51. CacheLink = getContent(tCacheLink, "&fmt_stream_map=", "||")
      52. Tags = getContent(tCacheLink, "&keywords=", "&").Split(",")
      53. Dim secLen As Integer = CInt(getContent(tCacheLink, "&length_seconds=", "&"))
      54. Dim Minuten As Integer = 0, Stunden As Integer = 0
      55. Do While (secLen - 60) > -1
      56. secLen -= 60
      57. Minuten += 1
      58. If Minuten = 60 Then
      59. Minuten -= 60
      60. Stunden += 1
      61. End If
      62. Loop
      63. Dim skstring(2) As String
      64. If secLen < 10 Then skstring(0) = "0" & secLen Else skstring(0) = skstring(0) & secLen
      65. If Minuten < 10 Then skstring(1) = "0" & Minuten Else skstring(1) = skstring(1) & Minuten
      66. If Stunden < 10 Then skstring(2) = "0" & Stunden Else skstring(2) = skstring(2) & Stunden
      67. Länge = skstring(2) & ":" & skstring(1) & ":" & skstring(0)
      69. Dim srs() As String = Split(CacheLink, "|")
      70. CacheLink = srs(1)
      71. VideoStream = srs(0)
      72. Rating = CDbl(Replace(Mid(getContent(tCacheLink, "avg_rating=", "&"), 1, 3), ".", ","))
      75. End Sub
      76. Public Function DownloadTumbnail(ByVal Destinationpath As String) As Boolean
      77. Try
      78. Tumbnail_client = New Net.WebClient
      79. Tumbnail_client.DownloadFileAsync(New Uri(Tumbnail), Destinationpath)
      80. Return True
      81. Catch ex As Exception
      82. Tumbnail_client = Nothing
      83. Return False
      84. End Try
      85. End Function
      86. Private Function URLDecode(ByVal StringToDecode As String) As String
      87. Dim TempAns As String = ""
      88. Dim CurChr As Integer
      89. CurChr = 1
      90. Do Until CurChr - 1 = Len(StringToDecode)
      91. Select Case Mid$(StringToDecode, CurChr, 1)
      92. Case "+"
      93. TempAns = TempAns & " "
      94. Case "%"
      95. TempAns = TempAns & Chr(Val("&h" & _
      96. Mid$(StringToDecode, CurChr + 1, 2)))
      97. CurChr = CurChr + 2
      98. Case Else
      99. TempAns = TempAns & Mid$(StringToDecode, CurChr, 1)
      100. End Select
      101. CurChr = CurChr + 1
      102. Loop
      103. URLDecode = TempAns
      104. End Function
      105. Private Function getContent(ByVal gettext As String, ByVal getit As String, _
      106. Optional ByVal xchar As String = Chr(34)) As String
      107. Dim retval As String = ""
      108. Dim tit_le As Integer = gettext.IndexOf(getit)
      109. tit_le += Len(getit) + 1
      110. Do While Not Mid(gettext, tit_le, Len(xchar)) = xchar
      111. retval = retval & Mid(gettext, tit_le, 1)
      112. tit_le += 1
      114. Loop
      115. Return retval
      116. End Function
      118. Private Function DownloadWebpage(ByVal URL As String) As String
      119. Dim IoStream As System.IO.Stream = Nothing
      120. Dim StrRead As System.IO.StreamReader = Nothing
      121. Try
      122. Dim Request As System.Net.WebRequest _
      123. = System.Net.WebRequest.Create(URL)
      124. IoStream = Request.GetResponse.GetResponseStream
      125. StrRead = New System.IO.StreamReader(IoStream)
      126. Return StrRead.ReadToEnd
      127. Catch ex As Exception
      128. Return vbNullString
      129. Finally
      130. StrRead.Close()
      131. IoStream.Close()
      132. End Try
      133. End Function
      135. End Class
      Dateien

      • youtubeAPI.zip

        (167,71 kB, 513 mal heruntergeladen, zuletzt: )

      Ich finde es gut aber ein paar Kommentare mehr als nur
      'HH:MM:SS
      hätten es doch übersichtlicher gemacht...
      Ich Antworte nach bestem Wissen und Gewissen. Ich übernehme keine Garantie für die Richtigkeit oder Fehlerfreiheit meiner Texte.


      Ich konnte dir helfen?
      - Das ist schön :) Ich würde mich über ein "Hilfreich" freuen ^^