Hallo,
wie kann ich wma Streams mit autoit wiedergeben?
hier der Link (http://213.200.64.229/sltokens/strea…am=rsh/live.wma)
Geht das per object?
Hallo,
wie kann ich wma Streams mit autoit wiedergeben?
hier der Link (http://213.200.64.229/sltokens/strea…am=rsh/live.wma)
Geht das per object?
probier mal das
[autoit]#Include <File.au3>
[/autoit][autoit][/autoit][autoit]HotKeySet ("^n", "_next")
HotKeySet ("^p", "_pause")
HotKeySet ("^!p", "_play")
$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)
If $Player.controls.isAvailable('Play') Then
$Player.controls.play()
Else
Msgbox(0,"", "can't play")
EndIf
While 1
sleep(1000)
WEnd
Func _next()
$Player.controls.next()
EndFunc
Func _pause()
$Player.controls.pause()
EndFunc
Func _play()
$Player.controls.play()
EndFunc
Leider kommt eine Fehlermeldung.
[Blockierte Grafik: http://download.lima-city.de/deepred/zuukmjhzukmzujk.png]
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
If $show = 1 Then
GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
EndIf
Return $oWMP
EndFunc ;==>_wmpcreate
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
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
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!
#Include <File.au3>
#include <INet.au3>
#Include <String.au3>
HotKeySet ("^n", "_next")
HotKeySet ("^p", "_pause")
HotKeySet ("^!p", "_play")
$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
Func _next()
$Player.controls.next()
EndFunc
Func _pause()
$Player.controls.pause()
EndFunc
Func _play()
$Player.controls.play()
EndFunc
und einfach kopieren und einmal ausführen
das funkt aber aber warum kann ich nicht mit meiner udf wma streams wiedergeben?
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.
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)
naja da wird halt keine session erstellt etc wie beim anderen