WMPlayer Video Öffnen in GUI über Object

  • Hallo zusammen,

    hab folgendes Problem, kann in meiner GUI keine Datei über ein WMP-Objekt wiedergeben.

    Hier mal ein Beispiel.

    Danke im Vorraus!

  • Danke dir,

    hier das Script:


    #include <GUIConstants.au3>
    $Form1 = GUICreate("", 300, 448, 192, 125)
    $start=GUICtrlCreateButton("start", 5,5,30,20)

    $oWMP = ObjCreate("WMPlayer.OCX")

    GUICtrlCreateObj($oWMP, 0, 0, 300, 300)
    $oWMP.open("C:\WINDOWS\media\ding.wav") <----------- ???????????


    GUISetState(@SW_SHOW)

    While 1

    $msg=GUIGetMsg(1)

    Select

    Case $msg[0]=$start
    $oWMP.control.play()

    EndSelect

    WEnd

  • hab es mal so probiert, leider geht es auch nicht...

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>

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

    $Player = ObjCreate("WMPlayer.OCX.7")

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

    GUICreate("",500,400,-1,-1)
    $start=GUICtrlCreateButton("start", 1,1,20,10)
    GUICtrlCreateObj($player, 10,10,480,380)

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

    $oMedia = $Player.newMedia("C:\WINDOWS\clock.avi")

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

    $Player.currentPlaylist.appendItem($oMedia)

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

    GUISetState()

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

    sleep(1000)

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

    while 1
    $msg=GUIGetMsg(1)

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

    Select

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

    Case $msg[0]=$start
    $Player.controls.play()
    MsgBox("","","")

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

    EndSelect

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

    WEnd

    [/autoit]


    Edit BugFix: Bitte Tags und Spoiler benutzen
    [Tags und Spoiler gesetzt]

    Einmal editiert, zuletzt von BugFix (28. August 2009 um 10:20)