Ist URL ein Radiostream?

hellboy3

Hallo Com.,

ich wollte mal nachfragen wie man am besten einen Radiostream anhand einer URL erkennt.

Bei einem Stream wie diesem hier:

Code

http://listen.housetime.fm/tunein-dsl-asx

kann ich ja das asx am ende als Indikator nehmen, aber wie schaut`s bei dem hier aus?

Code

http://webradio.hitradion1.de:8000/

Jemand ne Idee? Weil ich denke das "webradio" am anfang der URL ist ja kein Standart oder?

Cheater Dieter

Versuche doch, die Links z.B. mit einem WMP Objekt abzuspielen. Wenn es geht => Stream, wenn nicht => kein Stream.

DevFly

Alternativ da es ein Shoutcast ist kannste hinten einfach ein listen.pls mit dran hängen funktioniert genauso und du hast eine endung.

Gruss DevFly

PenGuin

Oder einfach den Quellcode der Seiten nach einem Schlüsselwort durchsuchen, welches nur Radiostreams haben.

hellboy3

Hab es jetzt mal so probiert, passt das so?

Spoiler anzeigen

[autoit]

If _isRadioStream("http://www.youtube.com/watch?v=y1iOG6vELGE") Then
MsgBox(0,"","Radiostream!")
Else
MsgBox(0,"","Kein Radiostream!")
EndIf

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

Func _isRadioStream($sURL)
Local $ret
$WMP = ObjCreate("WMPlayer.OCX")
$WMP.URL = $sURL
$WMP.controls.play()
While $WMP.playstate = 9
Sleep(20)
WEnd
If $WMP.playstate <> 10 Then
$ret = True
Else
$ret = False
EndIf
$WMP.controls.stop()
$WMP = 0
Return $ret
EndFunc

[/autoit]

Cheater Dieter

Na klar passt das. Warum denn nicht?

PenGuin

Etwas gekürzt:

[autoit]

Func _IsStream($sURL)
Local $bRet = False, $oWMP = ObjCreate("WMPlayer.OCX")
$oWMP.URL = $sURL
$oWMP.controls.play()
Do
Sleep(50)
Until $oWMP.playstate <> 9
If $oWMP.playstate <> 10 Then $bRet = True
$oWMP.controls.stop()
$oWMP = 0
Return $bRet
EndFunc

[/autoit]

hellboy3

Danke, somit gelöst.