Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Delphi Audio Streaming (https://www.delphipraxis.net/178070-audio-streaming.html)

value is NULL 15. Dez 2013 21:00

Audio Streaming
 
Hi Leute

Ich würde gerne für einen Radiosender ein Radio-spezifisches Streaming Tool schreiben.
Weiss aber leider nicht wie ich das anstellen soll da ich mit Streaming und Audio-Devices noch keine Erfahrung habe.

Aktuell nutzt der Radiosender EdCast http://www.mpex.net/software/details/edcast.html
Welches MP3-LAME Encoding benutzt. Da man hier jedoch "relativ" viel Einstellen kann und dort auch einige Fehler machen
kann würde ich gerne ein kleines GUI basteln, wo der Anwender lediglich sein Audio Device auswählt seinen Unsernamen und sein
Passwort eingibt --> fertig.

Welche Komponente benötige ich für Shoutcast? bzw. Was wäre Sinnvoll? Weiters müsste ich mir natürlich alle verfügbaren
Audio Devices auslesen und eine Art Peak-Meter anzeigen, damit der User sieht wie hoch sein aktueller Audio Pegel ist.

Ich hoffe ihr habt hier einige Tipps bzw. Code Schnippsel für mich. Ich würde mich freuen.

Vielen Dank und einen schönen 3. Advent noch.
LG

EWeiss 15. Dez 2013 23:21

AW: Audio Streaming
 
Zitat:

Welche Komponente benötige ich für Shoutcast? bzw. Was wäre Sinnvoll?
Komponente hab ich keine aber ob Shoutcast noch sinnvoll ist das wäre die frage..
Ist doch der Webradio-Dienst von Winamp.

Wenn es nicht übernommen wird dürfte das bald der Vergangenheit angehören.
4 Tage noch dann war's das.

Wird einigen Leuten schwer aufstoßen..

gruss

Wishmaster 15. Dez 2013 23:27

AW: Audio Streaming
 
hi

wenn du nicht 100% alles selbst schreiben willst dann nimm die bass + plugin's

Example
Start encoding a stereo 44100hz channel to 128kb/s MP3, and send the output to a Shoutcast server.
Delphi-Quellcode:
encoder:=BASS_Encode_Start(channel, "lame -r -s 44100 -b 128 -", BASS_ENCODE_NOHEAD, nil, 0); // setup the encoder
BASS_Encode_CastInit(encoder, "server.com:8000", "password", BASS_ENCODE_TYPE_MP3, "name", "url", "genre", nil, nil, 128, TRUE); // start the cast

value is NULL 16. Dez 2013 12:03

AW: Audio Streaming
 
Also das mit dem PeakMeter habe ich bereits gelöst.

Ich nutze hierfür die AudioVolume Komponente und das Teil läuft. Auch die Auswahl der Audio Devices habe ich hinbekommen.

Bzgl. Streaming:
Ich habe leider keine Ahnung wie sowas abläuft bzw. was hier zu empfehlen ist (Puffer etc.)

Hat jemand einen Code Schnippsel für mich wie ich so ein Streaming starte?

Im Endeffekt habe ich auf meinem Form einen Connect und einen Disconnect Button. Bei Connect wird gestreamt und bei disconnect beendet.
Eh klar :)

Vielen Dank jetzt schon mal!

EWeiss 16. Dez 2013 13:58

AW: Audio Streaming
 
Ich glaube wirklich das Value niemals einen wert <> 0 ergeben kann wenn man andere
seine Arbeit machen lässt aber bitte schön wie @Wishmaster schon sagt.

Lade dir das Archiv von Bass herunter da sind fertige Beispiele enthalten incl. Streaming.

gruss

value is NULL 16. Dez 2013 14:14

AW: Audio Streaming
 
Lieber EWeiss

Mein Nickname hat nichts mit meinen Fähigkeiten zu tun das sollte auch dir klar sein. Vorallem glaube ich nicht das du in der Lage bist soetwas zu beurteilen.

Wie bereits oben beschrieben, habe ich ausdrücklich gesagt das ich nicht weiß wo ich überhaupt ansetzen soll, da ich mit diesem Thema noch nie konfrontiert wurde. Abgesehen davon weiss ich, trotz beispiel, nicht wonach ich suchen soll.

Wenn du mir also zB sagst Sieh das das Beispiel X würde mir das schon mehr bringen als solch unnütze aussagen von dir.

Danke und Liebe Grüße

EWeiss 16. Dez 2013 14:28

AW: Audio Streaming
 
Zitat:

Mein Nickname hat nichts mit meinen Fähigkeiten zu tun das sollte auch dir klar sein.
Es läßt sich aber gut davon ableiten.

Zitat:

Wenn du mir also zB sagst Sieh das das Beispiel X würde mir das schon mehr bringen als solch unnütze aussagen von dir.
Nach dieser Aussage!

Zitat:

Vorallem glaube ich nicht das du in der Lage bist soetwas zu beurteilen.
ops.. kann ich das auch nicht mehr.

Dir ist aber schon klar welcher Name unter TAudioVolume Komponente steht?
Ich habe an vielen Komponenten mitgearbeitet die von meinem Freund Silhwan zur Verfügung gestellt werden/wurden
Wenn auch inoffiziell.. aber egal kann damit leben.

gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz