Flash Videos einbinden?

1. offizieller Beitrag

    Hiho leute gibt es eine möglichkeit flashvideos einzubinden also nicht nur von youtube sondern auch von anderen seite also sevenload usw ich versuche die ganze zeit dieses video einzubinden also das nur das video angezeigt wird: HIER DIESES VIDEO

    • Offizieller Beitrag

    Ah, Problem erkannt. Das wird wohl nicht gehen, da kein Link zum Video selber existiert, sondern nur zur Website mit eingebettetem Video. Die Website kpl. kannst du natürlich in eine Oberfläche einbetten, aber ich denke, das ist nicht was du willst.

    • Offizieller Beitrag

    Ja, das Bsp. aus der Hilfe etwas abgewandelt:

    Spoiler anzeigen
    [autoit]

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

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, _
    (@DesktopHeight - 580) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    $GUI_Button_Start = GUICtrlCreateButton("Start", 10, 420, 100, 30)

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

    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Start
    _IENavigate ($oIE, "http://de.sevenload.com/videos/KzvjaXn-Book-1-04")
    EndSelect
    WEnd

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

    GUIDelete()
    Exit

    [/autoit]

    naa so mein ich nich xD wollte nur das vid haben ohne die komplette seite xD.... also man kann auch des video wo anders einbinden mom.
    einma damit:

    <script type="text/javascript" src="http://flash.sevenload.com/pl/8IgnykM/455x364"></script><p>Link: <a href="http://flash.sevenload.com/videos/8IgnykM-Book-1-01" title="Book 1 | 01">sevenload.com</a></p>


    und einma damit:

    <object type="application/x-shockwave-flash" data="http://flash.sevenload.com/pl/8IgnykM/455x364/swf" width="455" height="364"><param name="allowFullscreen" value="true" /><param name="allowScriptAccess" value="always" /><param name="movie" value="http://flash.sevenload.com/pl/8IgnykM/455x364/swf" /></object><p>Link: <a href="http://flash.sevenload.com/videos/8IgnykM-Book-1-01" title="Book 1 | 01">sevenload.com</a></p>


    villt hilft es somit weiter?

    • Offizieller Beitrag

    Na dann könnte dir das weiterhelfen: http://www.autoitscript.com/forum/index.php?showtopic=65027&hl=embedded++flash

    (Allerdings sind die von dir angegebenen SWF-Links wohl nicht verfügbar, ich kann mit keinem Player unter Angabe des Links darauf zugreifen)

    Also ich hab jetz was hinbekommen aber meine frage wie kann ich des machen also zb von einer combo box wenn da 10 filme drinne sind und ich jetz zb film 1 auswähle das es den film dann anzaigt und wenn ich film 2 aus der combo box wähle das er den anzeigt usw^^
    aber man soll vorher also man wählt jetz aus der combo box ein film aus dann muss man aber erst auf nen button klicken der "Stream It" heist dann streamt er den film...
    mein jetziges script.

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    #include <GUIConstants.au3>
    #Include <Array.au3>
    #include <IE.au3>

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

    $Sommer = "http://cdn1.fliqz.com/fliqz/production/content/41bb6f7c746d47e19b27e55e80283914.flv"
    $21 = "http://cdn1.fliqz.com/fliqz/production/content/b6b1e534e0d544339f32b9c5c760693c.flv"

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

    #Region ### START Koda GUI section ### Form=
    $IEGUI = GUICreate("....", 625, 448, 249, 206)
    GUISetBkColor(0xA6CAF0)
    $oAFP = _flashcreate(1, 10, 5, 604, 380)

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

    ;~ _flashvalue($oAFP, "Play")

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

    _flashloadmedia($oAFP, "http://www.jeroenwijering.com/embed/player.swf")

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

    ;~ $oIE = _IECreateEmbedded()

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

    ;~ $GuiIE = GUICtrlCreateObj($oIE,0,0,100,100)
    GUISetState()
    _flashvalue($oAFP, "Play")
    ;~ GUICtrlCreateObj($oIE,0,0)

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

    $Vars = ""

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

    $File = $Sommer
    $w = 604
    $h = 380
    $image = ""

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

    If $file Then $Vars &= "&file=" & $file
    If $w Then $Vars &= "&width=" & $w
    If $h Then $Vars &= "&height=" & $h
    If $image Then $Vars &= "&image=" & $image

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

    ; Weiter Eigenschaften nach diesem Schema von http://www.jeroenwijering.com/?item=Supported_Flashvars adden ;)

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

    $oAFP.FlashVars = StringTrimLeft($Vars,1)
    $Combo = GUICtrlCreateCombo("", 16, 408, 169, 25)
    GUICtrlSetData(-1,"Sommer|21|3|4|5|6|7|8|9|10","")
    $Group1 = GUICtrlCreateGroup("....", 8, 392, 185, 49)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("Stream It", 200, 400, 129, 41, 0)
    $Button2 = GUICtrlCreateButton("Exit", 488, 400, 129, 41, 0)
    $Button3 = GUICtrlCreateButton("...", 336, 400, 129, 41, 0)
    ProgressSet(100)
    ProgressOff()
    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] [autoit][/autoit] [autoit]

    ;----------------------------------
    ;------Adobe Flash Functions-------
    ;----------------------------------

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

    #cs
    _flashcreate($show, $left, $top, $width = 100, $height = 100)
    $show: 1 = creates the control
    2 = doesn't create the control

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

    Return: The object for the control
    #ce
    Func _flashcreate($show, $left, $top, $width = 100, $height = 100)
    If FileFindFirstFile(@SystemDir & "\Macromed\Flash\flash*.ocx") = -1 Then
    $Value = MsgBox(20, "Error", "It seems that you don't have Flash Player installed. Please download" & @CRLF & "it from http://www.adobe.com. Do you want to go there now?")
    If $Value = 6 Then
    ShellExecute("www.adobe.com")
    EndIf
    Exit
    EndIf
    $i = 10
    Do
    $i -= 1
    $oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash." & $i)
    Until Not @error Or $i < = 0

    If $oFlash = 0 Then Return 0
    If $show = 1 Then
    GUICtrlCreateObj($oFlash, $left, $top, $width, $height)
    EndIf
    Return $oFlash
    EndFunc
    #cs
    _flashloadmedia($object, $URL)
    $object: Object returned from the _flashcreate()
    $URL: Path or URL of the media
    Return: None
    #ce
    Func _flashloadmedia(ByRef $object, $URL)
    $object.LoadMovie(0, $URL)
    EndFunc
    #cs
    _flashsetvalue($object, $setting)
    $object: Object returned from the _flashcreate()
    $setting: "play"
    "stop"

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

    Return: None
    #ce
    Func _flashvalue(ByRef $object, $setting)
    Select
    Case $setting = "play"
    $object.play()
    Case $setting = "stop"
    $object.stop()
    EndSelect
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von slash (9. Juni 2008 um 15:02)