Wiedergabe?

  • Kurze Frage:

    Ist es möglich z.B. ein youtube Video in einer Gui wiederzugeben, anstatt den Link im IE öffnen zu lassen?

  • Dazu haben wir schon Lösungen hier im Forum
    z.B.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $Url = 'http://www.youtube.com/v/VnJ-GW5pgFg'
    $Datei = FileOpen(@scriptdir&"\Youtube.htm",2)
    FileWrite($Datei,'<object width="625" height="344"><param name="movie" value="'&$Url&'&hl=de&fs=1"></param><param name="allowFullScreen" value="true"></param><embed src="'&$Url&'&hl=de&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" width="625" height="344"></embed></object>')
    FileClose($Datei)

    [/autoit] [autoit][/autoit] [autoit]

    _IEErrorHandlerRegister ()

    [/autoit] [autoit][/autoit] [autoit]

    $oIE = ObjCreate("Shell.Explorer.2")

    [/autoit] [autoit][/autoit] [autoit]

    GUICreate("Film", 630, 350)
    $GUIActiveX = GUICtrlCreateObj($oIE, -10, -15, 670, 400)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    _IENavigate ($oIE, @scriptdir&"\Youtube.htm")
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

    [/autoit] [autoit][/autoit] [autoit]

    FileDelete($Datei)
    GUIDelete()

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit]
  • Hab was vergessen dazu zu schreiben!

    Es geht auch um eigene Videos, das ein eigenes abspielfenster vorhanden ist. Nicht nur um Online Videos.

    Danke bisher um eure Hilfe!

  • Welchen Player willst du verwenden? Welche Dateiformate?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 629, 442, 186, 125)
    $Player = ObjCreate("WMPlayer.OCX")
    $Obj1_ctrl = GUICtrlCreateObj($Player, 10, 10, 400, 200)

    [/autoit] [autoit][/autoit] [autoit]

    $Dein_Video = 'test-video.wmv'
    $Dein_Video = 'http://wstreaming.zdf.de/encoder/livestream6_h.asx'

    [/autoit] [autoit][/autoit] [autoit]

    With $Player
    .fullScreen = True
    .windowlessVideo = True
    .stretchToFit = True
    .enableContextMenu = True
    .enabled = True
    .uiMode = "full"; none / mini full
    .settings.autostart = True
    .settings.mute = False
    .settings.volume = 100; 0 - 100
    .settings.Balance = 0; -100 to 100
    EndWith

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $oMedia = $Player.newMedia($Dein_Video)
    $Player.currentPlaylist.appendItem($oMedia)
    $Player.controls.play()
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd

    [/autoit]
  • funkey

    Eigentlich alles was geht an formate und player....

    Den Player zb wahlweise zum aussuchen ($Radio1 zb $Radio2 = WM - VLan)


    @progandy

    Ist der YoutubeHQ ein fertiges script? Bei mir zeigt er mir fehler bei line 53 & 75 an...