webradio aufnehmen

[Szin]

Hallo!
Ich möchte den Webradio-Stream eines Shoutcast Radios aufzeichnen. In den PLS-Datei sind die direkten Links in folgender Form:

http://64.236.34.4:80/stream/1032

Nun Frage ich mich als interessiertem Noob wie connecte ich den Server? Kann ich das über HTTP-GET machen? Oder verwendet man Sockets? Ist ja nicht nur ne ip mit nem port - das /stream/1032 stört irgendwie...

Und welche Komponenten verwendet man da heutzutage (habe gesehen das es verschiedene Sockets-Komponenten - gibt TStreamSocket, TTcpClient...)
Ach ja, das ganze sollte auch in einer nicht Dialog/fensterbasierten Umgebung funktionieren.

Grüße,
André

[Daniel G]

Zitat:

Zitat von Szin

Ist ja nicht nur ne ip mit nem port - das /stream/1032 stört irgendwie...

Das /stream/1032 gehört aber dazu. :stupid:

Port 80 ist ja der normale HTTP - Port. Im Prinzip müsstest du die Datei in den Cache laden und parallel abspielen (und danach das schon gehörte wieder aus dem Cache löschen).

[Tubos]

Du könntest einfach das populäre Programm streamripper aufrufen.

[Szin]

Das abspielen ist was für später (will ne Timeshift-Funktionalität haben)
Aber WIE mach ich nun das rauslesen?
Btw. gibts für HTTP auch ne nicht Indy-Komponente?

Ein externes Programm will ich nicht verwenden. Wär ja zu einfach ;-)

[Szin]

ok, hab nun TidHTTP und get verwendet (http://www.dsdt.info/tipps/?id=161)
Damit lässt sich der Stream in eine endlose Datei schreiben.
2 Probleme dabei:
1. Wie mach ich daraus einen ringpuffer? Sprich: Wie sagt ich dem Get das es nur zb. 1MB runterläd und dann wieder vorne anfängt?
Schwerwiegender ist 2.
2. Die Datei lässt sich während des schreibens weder mit Winamp noch mit dem Windows Media Player öffnen, obwohl ich

Code:

  lStream:=TFileStream.Create('C:\Test.mp3', fmCreate or fmShareDenyNone);

verwende. Aber das ist Vorraussetzung für mich!
Dazu Ideen?
Grüße,
André

[Daniel G]

Zitat:

Zitat von Szin

2. Die Datei lässt sich während des schreibens weder mit Winamp noch mit dem Windows Media Player öffnen, obwohl ich

Code:

  lStream:=TFileStream.Create('C:\Test.mp3', fmCreate or fmShareDenyNone);

verwende. Aber das ist Vorraussetzung für mich!

Und wenn du die Datei stattdessen in einen Puffer lädst und sie mit der BASS.DLL abspielst, sprich, einen eigenen Player integrierst?

[Szin]

2. hab ich jetzt wie folgt gelöst:

Delphi-Quellcode:

  lStream:=TFileStream.Create('C:\Test.mp3', fmCreate or fmShareDenyNone);
lStream.Free;
lStream:=TFileStream.Create('C:\Test.mp3', fmOpenWrite or fmShareDenyNone);

da

Delphi-Quellcode:

  fmCreate = $FFFF;

bringt eine or Verknüpfung natürlich nicht wirklich was ;-)
Nun muss ich "nur noch" 1. lösen - mal schaun!

André

P.S. BASS ost ne feine sache, kostet aber für kommerzielle Anwendungen Geld :(

[benst]

Ich weiß nicht, ob du das Programm umbedingt selber schreiben möchtest und wie weit du schon gekommen bist. Ich würde folgendermaßen machen:
Mit dem kostenlosen Programm Screamer das Radio-Programm anhören. Dann auf Aufnahme drücken und weggehen. Wenn du wiederkommst, einfach die gespeicherte mp3 mit z.B. Winamp starten (während weiter aufgenommen wird). Funktioniert bei mir zumindest super.
Ben
P.S.: Das Programm bietet zusätzlich auch noch die Funktion, dass schon vor dem Klicken auf Rec aufgenommen wird. Siehe auch D.-P.: Sound aufnehmen.

[Codehunter]

Hallo!

Ich begehe hier jetzt mal den verwerflichen Akt der Leichenfledderei und hole diesen betagten Thread wieder hoch, weil mein Problem genau hier schon mal angerissen aber nicht abschließend beantwortet ist:

Zitat:

Zitat von Daniel G (Beitrag 516081)

Zitat:

Zitat von Szin

2. Die Datei lässt sich während des schreibens weder mit Winamp noch mit dem Windows Media Player öffnen, obwohl ich

Code:

  lStream:=TFileStream.Create('C:\Test.mp3', fmCreate or fmShareDenyNone);

verwende. Aber das ist Vorraussetzung für mich!

Und wenn du die Datei stattdessen in einen Puffer lädst und sie mit der BASS.DLL abspielst, sprich, einen eigenen Player integrierst?

Konkret geht es mir darum, einen Webradio-Stream per Indy-Get zu holen und dann direkt, ohne Dateipuffer, an BASS.DLL weiter zu reichen. Da BASS eine Stream-Schnittstelle hat und ich schon ein Tutorial dazu gefunden habe, sehe ich da im Moment weniger das Problem.

Vielmehr würde mich interessieren, wie man mit Indy quasi einen Endlos-Stream realisiert. Man braucht ja einen gewissen Vorlauf an Nutzdaten im Stream und müsste die von BASS bereits wiedergegebenen Daten verwerfen, damit einem nicht irgendwann ein Puffer voll läuft. Das Problem ist also, genug Nutzdaten im Puffer vorzuhalten, die Wiedergabe zu synchronisieren und "veraltete" Daten zu verwerfen ohne den Stream zu schließen.

Da wär ich mal für dein ein oder anderen Tip dankbar.

Grüße
Cody

[einbeliebigername]

Hallo,

Zitat:

Zitat von Codehunter (Beitrag 1351113)

Vielmehr würde mich interessieren, wie man mit Indy quasi einen Endlos-Stream realisiert. Man braucht ja einen gewissen Vorlauf an Nutzdaten im Stream und müsste die von BASS bereits wiedergegebenen Daten verwerfen, damit einem nicht irgendwann ein Puffer voll läuft. Das Problem ist also, genug Nutzdaten im Puffer vorzuhalten, die Wiedergabe zu synchronisieren und "veraltete" Daten zu verwerfen ohne den Stream zu schließen.

Da wär ich mal für dein ein oder anderen Tip dankbar.

Grüße
Cody

Das Stichwort währe Ringpuffer. Himitsu hat da mal einen Streambasierten gepostet (http://www.delphipraxis.net/126525-t...-memory.html#7). Du musst nur das Problem lösen, dass vermutlich die Abspielgeschwindigkeit nur annähernd gleich der Datenanlieferung ist.

einbeliebigername.