Liste von Winamp Radio Streams

[Chris P]

Hi Leute,

ich habe eine kleines Internetradio programmiert.
Man kann die Adressen der einzelnen Streams per Hand eingeben!
Besser wäre aber wenn mein Programm das automatisch machen würde!
Hat jemand eine Idee, wie ich die Adressen der Winamp Shoutcast Streams in mein Programm laden kann?

Winamp macht das ja auch...

[Wishmaster]

Hi

Also ich habe den Link zu Winamp Shoutcast DB, in der DB findest du alle Links zu den einzelnen Playlists, die DB ist in XML normal Komprimiert.

XML-Code:

  <?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <WinampXML>
- <playlist num_entries="600" label="SHOUTcast top 600">
- <entry Playstring="http://www.shoutcast.com/sbin/tunein-station.pls?id=7807&filename=playlist.pls">
  <Name>.977 The 80s Channel (80s Grooves)</Name> 
  <Genre>80s Pop Rock</Genre> 
  <Nowplaying>Steve Winwood - Higher Love</Nowplaying> 
  <Listeners>3327</Listeners> 
  <Bitrate>128</Bitrate> 
  </entry>
- <entry Playstring="http://www.shoutcast.com/sbin/tunein-station.pls?id=4907&filename=playlist.pls">
  <Name>D I G I T A L L Y - I M P O R T E D - European Trance, Techno, Hi-NRG... we can't define it!</Name> 
  <Genre>Trance Techno Dance</Genre> 
  <Nowplaying>Airwave vs. Rising Star - Sunspot (original mix)</Nowplaying> 
  <Listeners>2939</Listeners> 
  <Bitrate>96</Bitrate> 
  </entry>

[Chris P]

Danke erstmal für die Antwort.

Aber wie kann ich jetzt mit Delphi auf diese DB zugreifen bzw. die Sender in mein Programm laden?

[Wishmaster]

Ups den link habe ich wohl vergessen, Sorry!

Shoutcast XML

Lade dir die XML runter, Extrahiere die einzelne links zu den Playlists, dann lade die playlist runter extrahiere die einzelne links zu den Server (http://160.79.128.62:6038) fertig.

Wen du ne bessere Methode weist das sag bescheid. Das würde mich auch Interessieren.

[Chris P]

Eine andere Möglichkeit wäre die XML-Datei mit der Komponente TXMLDocument auszulesen.
Aber wie genau das funktioniert weiß ich auch noch nicht!

Vielleicht hat ja jemand eine kleine Idee wie man gezielt die Radiosender aus der Datenbank bekommt?

[Chris P]

Hat jemand vielleicht eine Idee, wie man diesen XML Code auslesen könnte?

Delphi-Quellcode:

<entry Playstring="http://www.shoutcast.com/sbin/tunein-station.pls?id=3281&amp;filename=playlist.pls">
     <Name>CLUB 977 The Hitz Channel (HIGH BANDWIDTH)</Name>
     <Genre>Pop Rock Top 40</Genre>
     <Nowplaying></Nowplaying>
     <Listeners>3682</Listeners>
     <Bitrate>128</Bitrate>
    </entry>

Wie könnte ich zum Beispiel <Name>, <Genre> usw. auslesen?

Habe zwar schon im Forum gesucht aber ich bin nicht weitergekommen.

Könnt ihr mir helfen?

[Chris P]

Also ich habe es jetzt geschafft die XML-Datei mit allen Informationen auszulesen!

Nun möchte ich die einzelnen Radiostreams auch abspielen!
Das mache ich mit Hilfe von BASS_StreamCreateURL(...) und BASS_ChannelPlay(...);

Zuerst extrahiere ich die URLs aus der XML-Datei!

Im 1. Eintrag der Datei wäre es zum Beispiel:

"http://www.shoutcast.com/sbin/tunein-station.pls?id=7807&filename=playlist.pls"

Das ist ja nun eine vollständige ULR eines Radiosenders. Wenn ich dies nun als Adresse in den IE eingebe,
dann wird der Stream ohne Probleme in Winamp abgepielt!

Aber wenn ich in meinem eigenen Programm folgendes aufrufe:

Delphi-Quellcode:

Chan := BASS_StreamCreateURL(PCHAR('http://www.shoutcast.com/sbin/tunein-station.pls?id=7807&filename=playlist.pls'), 0, 0, nil, 0);
BASS_ChannelPlay(Chan, FALSE)

Kommt immer eine Meldung, dass der Channel nicht erzeugt werden konnte

Liegt der Fehler an der URL?

[Chris P]

Wenn ich das ganze unter Winamp abspiele, dann bekomme ich für den selben Sender wie oben genannt auch
folgende URL:

http://195.225.46.132:8000

Welche URL ist jetzt richtig?

[Wishmaster]

Hi

Das ist nur der link zu der Playlist. (.pls) size = 1kb
http://www.shoutcast.com/sbin/tunein...e=playlist.pls

jede Playlist (.pls) enthält in der Regel mehrere links zu den Server (http://195.225.46.132:8000). Und wen du die links zu den Servern has dann kannst du diese auch mit der Bass.dll Abspielen

Chan := BASS_StreamCreateURL(PCHAR(http://195.225.46.132:8000), 0, 0, nil, 0);

• 
  [playlist]
  numberofentries=4
  File1=http://64.236.34.196:80/stream/1038
  Title1=HitzRadio.com - #1 for all the hits!
  Length1=-1
  File2=http://64.236.34.67:80/stream/1038
  Title2=HitzRadio.com - #1 for all the hits!
  Length2=-1
  File3=http://64.236.34.4:80/stream/1038
  Title3=HitzRadio.com - #1 for all the hits!
  Length3=-1
  File4=http://64.236.34.97:80/stream/1038
  Title4=HitzRadio.com - #1 for all the hits!
  Length4=-1
  Version=2

[Chris P]

Danke erstmal...

Doch wie bekomme ich jetzt anhand der Links die einzelnen Adressen bzw. wie bekomme
ich das mit delphi hin?

Wenn ich das jetzt noch wüsste dann wäre mein Problem gelöst!