RadioStream Infos auslesen

[Tommy1988]

Hallo, ein mir bekannter RadioStream läuft mit Shoutcast, dementsprechend ist eine Datei namend 7.html auf dem server abgelegt mit bspw. folgenden infos:

9,1,16,1000,5,96,Alexkid - Don`T Hide It <CURRENTLISTENERS>9
<PEAKLISTENERS>1
<MAXLISTENERS>16
<REPORTEDLISTENERS>1000
<AVERAGETIME>96 (kbit/s)



kann man irgentwie feststellen, ob eine URL existriert, in diesem falle abc.de/7.html, und diese infos dann in in einem label wiedergeben?

[Meflin]

Schonmal die suche bemüht? Findest du z.B.:
http://www.delphipraxis.net/internal...ect.php?t=9753

Wenn die URL erreichbar ist kannst du sie ganz einfach mittels
IdHTTP.Get abrufen, die 7.html ist sowieso Plaintext ohne jegliches HTML, da musst du nichtmal mehr was filtern

[Tommy1988]

ups sorry ^^..

ok, nicht filtern sagst du, aber ich brauchte nur den aktuellen "track" und die zahl der wiedergaberate, also die letzten beiden daten.

kann man sowas filtern? .. soweit ich soetwas kann, klappts nicht.. also ich mein soweit bin ich nicht nicht

[Meflin]

Zitat von Tommy1988:

ok, nicht filtern sagst du, aber ich brauchte nur den aktuellen "track" und die zahl der wiedergaberate, also die letzten beiden daten.

Dafür kannst du die Funktion Explode benutzen, als Separator verwendest du ",", dann bekommst du ein array in dem jeweils die einzelnen Daten stehen, die letzten beiden Elemente des arrays sind dann die von dir benötigten.

[KarYn-To]

Du kannst ja, wie oben erwähnt, die HTML Datei als Plaintext auseinandernehmen. Da gibt es einen Haufen Kommandos für, z.B. könntest du mittels StrRScan das letzte Komma ausfindig machen, den Text dahinter kopieren und das Komma entfernen, und dann wieder bis zum letzten Komma mittels StrRScan parsen.

Damit müsste es eigentlich hinhauen.

EDIT <~ WIE SCHUSSELIG... AAAARGH... EXPLODE... EXPLODE <~ Sorry ^^ oben isses einfacher

[Tommy1988]

könntet ihr mir ein codebeispiel geben?

und zu der url erreichbarkeitssache.. das verstehe ich nicht..- das klappt auch nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ausgabe:String;
begin
  try
    IdHTTP1.Head('http://seite:port/7.html');
  except
    on EIdHTTPProtocolException do
      ausgabe:='Fehler!'+#13#10 + IdHTTP1.ResponseText;
    // die anderen Fehler
    on C: Exception do
      ausgabe:='Auch ein Fehler ('
      + C.ClassName + ')!'+#13#10 + C.Message;
  end;//try
  if (Length(ausgabe)<1) then
    ausgabe:='OK, alles klar'+#13#10 + IdHTTP1.ResponseText;
  ShowMessage(ausgabe);
end;

das geht nicht.. es kommt die meldung "auch ein fehler" connection closed gracefully"

wenn ich aus head get mache kommt ein OK. aber wie bekomme ich den plaintext aus der datei ?

[Meflin]

Du musst auf jeden Fall den User-Agent der IdHHTP-Instanz ändern, sonst geht garnichts. Haste das schon gemacht?
Siehe auch hier: http://www.delphipraxis.net/internal...=699481#699481

[Tommy1988]

Ttu mir leid, ich.. hat das denn noch was damit zu tun, dass der text aus der datei wiedergegeben werden soll?

wenn ja, tut mir leid, weis ich nicht, bin ich zu doof für
wenn nein, .. i dont know