Shoutcast Server Status Auslesen

DJFloG · 10. September 2009, 18:15

Hallo,

ich möchte von einem Shoutcast Server den Status auslesen.. Doch leider hab ich keine Ahnung wie das gehen soll...

Ich habs hiermit probiert:

VB.NET-Quellcode

Try
Dim str As String = (New Net.WebClient()).DownloadString("http://94.199.246.187:9500/index.html")
Dim start As Short = str.IndexOf("Server Status: ")
Dim status As String = str.Substring(start, 1) 'Der momentane ICQ-Status
Select Case status
Case "Server is currently up and private."
radiostatus.Text = "On"
Case Else
radiostatus.Text = "Off"
End Select
Catch ex As Exception
End Try

Funktioniert aber nicht...

Weis einer wies FUnktioniert???

MfG

DJFloG

gs93 · 10. September 2009, 18:18

Bei mir gibt die Seite lediglich folgendes aus:

ICY 404 Resource Not Found icy-notice1:
SHOUTcast Distributed Network Audio Server/Linux v1.9.8
icy-notice2:The resource requested was not found

DJFloG · 10. September 2009, 18:56

also wenn ich bei mir 94.199.246.187:9500/ eingebe, erscheint:

Server Status: Server is currently up and private.
Stream Status: Stream is up at 128 kbps with 2 of 32 listeners (2 unique)
Listener Peak: 8
Average Listen Time: [...]
Stream Title: [...]
Content Type: audio/mpeg
Stream Genre: [...]
Stream URL: [...]
Stream ICQ:
Stream AIM:
Stream IRC:
Current Song: [...]

Weis ja nicht was bei dir so anders ist

Aber weiter bin ich dadurch immanoch nit =(

MfG

gs93 · 10. September 2009, 19:13

Hast du schonmal den Quelltext ausgeben lassen??

DJFloG · 10. September 2009, 19:17

Wie? sry aber in sachen internet-programmierung bin ich total der n00b

desswegen hab ichs auch mit dieser variante von oben probiert...

Nätt wäre es wenn ich einfach nur n queltext bekomme, den ich dann ins programm schreibe und eben daran lerne wies geht...

MfG

gs93 · 10. September 2009, 19:19

C&P gibts bei mir nicht.
Und wenn du nochnnicht mal weißt wie man sowas ausgibt

MessgabeBox.Show(str) oder
einen Haltepunkt setzen

DJFloG · 10. September 2009, 19:23

Ja nein die aussage grad wa bissl komisch

Formulieren wirs mal anders:

Ich habe mit Internetprogrammierung in VB noch nichts weiter am hut gehabt... Desshalb weis ich auch nciht wie man den quelltext einer Seite mit VB ausliest...

Abe rübern quelltext müsste es eigentlich ja auch gehen... man müsste in ihn ja nur nach den beiden begriffen suchen und das dann üvber einne if then funktion regeln... Aber wie?

MfG

gs93 · 10. September 2009, 19:28

Du liest die Seite doch bereits mit

VB.NET-Quellcode

Dim str As String = (New Net.WebClient()).DownloadString("http://94.199.246.187:9500/index.html")

aus xD

DJFloG · 10. September 2009, 19:33

ja schon aber wie verarbeite ich das jetzt weiter, so dass ich die beiden begriffe auslesen kann

gs93 · 10. September 2009, 20:18

Zuerst mit vnewline splitten und dann die erste Zeile auslesen.

DJFloG · 11. September 2009, 07:01

Hmm ich habs jetzt mal auf ne andere art Probiert:

Dim wb As New Net.WebClient
Dim html As String
Dim htmlSplitted(-1) As String

html = wb.DownloadString( _
"http://94.199.246.187:9500/")
htmlSplitted = Split(html, "Server Status:")

Aber egal ob ich die Alte, oder die Jetzige Methode verwende, es kommt folgende Fehlermeldung:

WebException nicht Behandelt:

Der Server hat eine Protokollverletzung ausgeführt.. Section=ResponseStatusLine

Was soll das?

Und wie bekomm ichs jetzt hin, dass ich den Status auslesen kann =(

MfG

KlyX · 11. September 2009, 09:05

Hi

Da kann ich Dir eventuell weiterhelfen. Hab ein umfangreiches Radioprogramm geschrieben für mein Webradio und hatte genau das gleiche Problem. Zum Einen ist es die Art wie ausgelesen wird, zum Zweite ist der Port immer so ein kleines Problem.
Ich kann Dir - wenn ich zu Hause bin - gerne mal meinen Code raussuchen, den ich schlussendlich verwendet habe. Ist aber VB6, du müsstest vermutlich einige Teile umschreiben.

Gruss
KlyX

DJFloG · 11. September 2009, 15:17

Das wär Cool... Würd mich sehr freuen wenn ich den bekommen könnte... Müsste ja nur den ENtsprechenden teil rausschneiden, anpassen und gut ist...

MfG

Shoutcast Server Status Auslesen

Shoutcast Server Status Auslesen

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben