Youtube videos anzeigen/starten/stoppen

  • VB.NET

    Youtube videos anzeigen/starten/stoppen

    Hallo zusammen,

    ich bin momentan dabei Youtube videos in meiner Anwendung anzuzeigen. Das klappt mithilfe des AxShockwaveFlashObjects ganz gut. Das Problem ist aber, dass ich das Video per Code starten/stoppen möchte und nach Möglichkeit soll auch die Lautstärke anpassbar sein. Ich bin bei meiner Suche auf folgenden Code gestoßen:

    VB.NET-Quellcode

    1. Imports System.Text
    4. Public Class Form1
    7. ' Player initialisieren
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. Me.AxShockwaveFlash1.LoadMovie(0, "<a href="http://www.youtube.com/apiplayer">http://www.youtube.com/apiplayer</a>")
    12. Me.AxShockwaveFlash1.FlashVars = "enablejsapi=1&autoplay=0"
    13. End Sub
    16. ' Startet das Video
    19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    20. Dim x As New StringBuilder
    21. x.Append("<invoke name=""loadVideoById"" returntype=""xml"">")
    22. x.Append("<arguments>")
    23. ' Hier ist die ID des Videos
    24. x.Append("<string>egJR3K6UIJY</string>")
    25. x.Append("<number>1</number>")
    26. x.Append("<string>default</string>")
    27. x.Append("</arguments>")
    28. x.Append("</invoke>")
    29. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    30. End Sub
    33. ' Mutet das Video
    34. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    35. Dim x As New StringBuilder
    36. x.Append("<invoke name=""mute"" returntype=""xml"">")
    37. x.Append("</invoke>")
    38. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    39. End Sub
    42. ' UnMute
    43. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    44. Dim x As New StringBuilder
    45. x.Append("<invoke name=""unMute"" returntype=""xml"">")
    46. x.Append("</invoke>")
    47. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    48. End Sub
    51. ' Preload Video
    52. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    53. Dim x As New StringBuilder
    54. x.Append("<invoke name=""cueVideoById"" returntype=""xml"">")
    55. x.Append("<arguments>")
    56. x.Append("<string>OHJ83bXi0ew</string>")
    57. x.Append("<number>1</number>")
    58. x.Append("<string>default</string>")
    59. x.Append("</arguments>")
    60. x.Append("</invoke>")
    61. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    62. End Sub
    65. ' Play video
    66. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    67. Dim x As New StringBuilder
    68. x.Append("<invoke name=""playVideo"" returntype=""xml"">")
    69. x.Append("</invoke>")
    70. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    71. End Sub
    74. ' Stop Video
    75. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    76. Dim x As New StringBuilder
    77. x.Append("<invoke name=""stopVideo"" returntype=""xml"">")
    78. x.Append("</invoke>")
    79. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    80. End Sub
    83. ' name des Videos auslesen
    84. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    85. Dim x As New StringBuilder
    86. x.Append("<invoke name=""getVideoBytesLoaded"" returntype=""xml"">")
    87. x.Append("</invoke>")
    88. Me.TextBox1.Text = AxShockwaveFlash1.CallFunction(x.ToString)
    89. End Sub
    92. ' pause Video
    93. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    94. Dim x As New StringBuilder
    95. x.Append("<invoke name=""pauseVideo"" returntype=""xml"">")
    96. x.Append("</invoke>")
    97. Dim sCallback As String = AxShockwaveFlash1.CallFunction(x.ToString)
    98. End Sub
    99. End Class

    (Kopiert von: dotnet-forum.de/forums/t/2311.aspx)

    Ich kenn mich mit JavaScript(Das müsste es sein, was hier benutzt wird) leider nicht wirklich aus und habe den Code daher einfach mal kopiert um zu gucken ob er funktioniert. Selbstverständlich funktioniert er nicht. Ich bekomme folgenden Fehler beim klick auf einen der Buttons.

    Beim Aufruf einer COM-Komponente wurde ein HRESULT E_FAIL-Fehler zurückgegeben.


    Habe bereits versucht alles zu Updaten und mein Shockwave Flash Object zeigt momentan folgende Informationen an:

    Shockwave Flash Object Version 1.0 von Adobe Systems, Inc.
    COM-Steuerelement

    Adobe Flash Player 11.3 r300


    Verweise sind folgende angelegt:

    AxShockwaveFlashObjects
    ShockwaveFlashObjects

    Übersehe ich hier momentan irgendwas grundlegendes oder gibt es möglicherweise einen viel einfacheren Weg dieses Problem zu lösen? - Ich bin für jede Hilfe dankbar.

    Ich hoffe der Text ist einigermaßen lesbar. Gruß,
    Atrion.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Atrion“ ()