WMA Streams Wiedergeben

    probier mal das :)

    [autoit]

    #Include <File.au3>

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

    HotKeySet ("^n", "_next")
    HotKeySet ("^p", "_pause")
    HotKeySet ("^!p", "_play")

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

    $Player = ObjCreate("WMPlayer.OCX")
    $oMedia = $Player.newMedia('http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=rsh/live.wma&content=live&media=ms&token=78d793fa59eae4e30150ae3e14fd97f9')
    $Player.currentPlaylist.appendItem($oMedia)

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

    If $Player.controls.isAvailable('Play') Then
    $Player.controls.play()
    Else
    Msgbox(0,"", "can't play")
    EndIf
    While 1
    sleep(1000)
    WEnd

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

    Func _next()
    $Player.controls.next()
    EndFunc

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

    Func _pause()
    $Player.controls.pause()
    EndFunc

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

    Func _play()
    $Player.controls.play()
    EndFunc

    [/autoit]

    Gibt es eine möglichkeeit wma streams mit dieser udf wiedeerzugeben?

    [autoit]

    Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
    $oWMP = ObjCreate("WMPlayer.OCX")
    If $oWMP = 0 Then Return 0

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

    If $show = 1 Then
    GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
    EndIf
    Return $oWMP
    EndFunc ;==>_wmpcreate

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

    Func _wmploadmedia(ByRef $object, $URL, $autostart = 1)
    $object.URL = $URL
    While Not $object.controls.isAvailable("play")
    Sleep(1)
    WEnd
    If $autostart = 1 Then $object.controls.play()
    EndFunc ;==>_wmploadmedia

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

    Func _wmpvalue($object, $setting, $para = 1)
    Select
    Case $setting = "play"
    If $object.controls.isAvailable("play") Then $object.controls.play()
    Case $setting = "stop"
    If $object.controls.isAvailable("stop") Then $object.controls.stop()
    Case $setting = "pause"
    If $object.controls.isAvailable("pause") Then $object.controls.pause()
    Case $setting = "invisible"
    $object.uiMode = "invisible"
    Case $setting = "controls"
    $object.uiMode = "mini"
    Case $setting = "nocontrols"
    $object.uiMode = "none"
    Case $setting = "fullscreen"
    $object.fullscreen = "true"
    Case $setting = "step"
    If $object.controls.isAvailable("step") Then $object.controls.Step ($para)
    Case $setting = "fastForward"
    If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()
    Case $setting = "fastReverse"
    If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()
    Case $setting = "volume"
    $object.settings.volume = $para
    Case $setting = "rate"
    $object.settings.rate = $para
    Case $setting = "playcount"
    $object.settings.playCount = $para
    Case $setting = "setposition"
    $object.controls.currentPosition = $para
    Case $setting = "getposition"
    Return $object.controls.currentPosition
    Case $setting = "getpositionstring";Returns HH:MM:SS
    Return $object.controls.currentPositionString
    Case $setting = "getduration"
    Return $object.currentMedia.duration
    EndSelect
    EndFunc ;==>_wmpvalue

    [/autoit]

    hast du mein Skript 1 zu 1 kopiert und ausgeführt oder gleich eingebaut, mein Objekt heißt anderes als bei dir!

    edit: probier mal dies!

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    #include <INet.au3>
    #Include <String.au3>

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

    HotKeySet ("^n", "_next")
    HotKeySet ("^p", "_pause")
    HotKeySet ("^!p", "_play")

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

    $Player = ObjCreate("WMPlayer.OCX")
    $sSource = _INetGetSource ('http://213.200.64.229/sltokens/stream-radio-player.php?stream=rsh/live.wma')
    $aTokens = _StringBetween($sSource, 'token = "', '";')
    If IsArray($aTokens) Then
    $tokens = $aTokens[0]
    $oMedia = $Player.newMedia('http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=rsh/live.wma&content=live&media=ms&token='&$tokens)
    $Player.currentPlaylist.appendItem($oMedia)
    EndIf
    If $Player.controls.isAvailable('Play') Then
    $Player.controls.play()
    Else
    Msgbox(0,"", "can't play")
    EndIf
    While 1
    sleep(1000)
    WEnd

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

    Func _next()
    $Player.controls.next()
    EndFunc

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

    Func _pause()
    $Player.controls.pause()
    EndFunc

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

    Func _play()
    $Player.controls.play()
    EndFunc

    [/autoit]

    und einfach kopieren und einmal ausführen

    Einmal editiert, zuletzt von leviathan (30. Juli 2008 um 00:38)

    sollte schon gehen, aber dafür brauchst ne playlistdatei mit der streaminfo, und dieser server hat sessions also du brauchst den token sonst kannst des net abspielen

    also hier der gibt asx streams wieder und dafür braucht man auch keine playlistdatei.


    [autoit]

    guicreate("Test",160,165)
    $oWMP = _wmpcreate(1, 0, 0, 160, 165)
    _wmpvalue($oWMP, "controls")
    $oIE = _IECreateEmbedded()
    $GuiIE = GUICtrlCreateObj($oIE, 0, 0, 160, 165)
    GUICtrlCreateObj($oIE, 0, 0)
    _wmploadmedia($oWMP, "http://www.wdr.de/wdrlive/media/einslive-wm32.asx", 1)

    [/autoit]