Воспроизведение аудиопотока

@Farrewa · Регистрация: 27.12.2013

Пишу программу, что-то вроде онлайн радио. Нужно воспроизвести аудиопоток радиостанции.
Для примера я взял

HTML5

1	http://radio.zaycev.fm:9002/ZaycevFM(128).m3u

У меня имеется библиотека bass.dll
Как мне осуществить задумку?

raxp · 30.04.2014, 20:20

Е.Бадло, С.Бадло. Ваш онлайн - радиоприемник или... Охота за радиолюбительским эфиром. - Радиолюбитель, Минск, 2010, №9, с.42 (исходники)

raxp · 30.04.2014, 21:02

@Farrewa · 30.04.2014, 21:59 **[ТС]**

иии... и что это?! Чем мне это поможет? Я задал четкий вопрос! Как с помощью bass воспроизвести аудиопоток, какая функция/команда?

@cotseec · 30.04.2014, 22:06

Не по теме:

Сообщение от Farrewa

и что это?! Чем мне это поможет?

если не помогли примеры, поставляемые вместе с библиотекой, то уже ничего ни чем не поможет

Добавлено через 4 минуты

Сообщение от Farrewa

какая функция/команда?

BASS_StreamCreateURL

@Farrewa · 30.04.2014, 22:19 **[ТС]**

Bass_channelPlay(Имя потока, false);
"Имя потока" - что за имя?

Добавлено через 7 минут
мне просто нужно воспроизвести всего один аудиопоток, ссылка к примеру :

HTML5

1	http://radio.zaycev.fm:9002/ZaycevFM(128).m3u

. Все что мне нужно!

@mss · 30.04.2014, 22:49

Сообщение от Farrewa

"Имя потока" - что за имя?

Какое такое "имя потока" ? Где ты такой травы набрал ?)
Bass_channelPlay требует первым параметром хендл потока, который возвращает BASS_StreamCreateURL, которая, в свою очередь, ожидает первым параметром URL медиаресурса

@Farrewa · 01.05.2014, 13:20 **[ТС]**

покажите пожалуйста простой пример...

raxp · 01.05.2014, 13:29

TC, вот мне интересно. Если вам не помог разжеванный пример по статье, которая кстати свободно доступна и уверен вами даже не открывалась, исходники приемника и примеры к самой BASS, то вам тут делать нечего.

@Farrewa · 01.05.2014, 22:15 **[ТС]**

вообщем, более менее разобрался...
вот такая возникла проблема:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  channel:cardinal;
  url: string;
begin
url := Edit1.Text;
BASS_Init(-1, 44100, 0, application.Handle, nil);
Channel := BASS_StreamCreateURL (PAnsiChar(url),0,0,nil,0);
BASS_ChannelPlay(Channel, False);
end

все работает, музыка играет... если ссылка на радиостанцию

HTML5

1	http://radio02-cn03.akadostream.ru:8111/radio107128.mp3

но если попробовать другую ссылку, например

HTML5

1	http://radio.zaycev.fm:9002/ZaycevFM(128).m3u

то тишина...

Обе радиостанции работают, проверял. В чем разница этих ссылок?

raxp · 01.05.2014, 22:26

...первая - ссылка непосредственно на поток, вторая - ссылка на плейлист. Для поддержки плейлистов при использовании BASS следует активировать BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1)

@mss · 01.05.2014, 22:30

Восхитительная леность.

M3U
MP3

@Farrewa · 01.05.2014, 23:22 **[ТС]**

все разобрался!
в конце .m3u писать не надо ))

HTML5

1	http://radio.zaycev.fm:9002/ZaycevFM(128)

Добавлено через 23 минуты
еще два вопроса
1) делаю показ текущей песни ну или как правильнее сказать title радиостанции.

Delphi

1 2	meta := BASS_ChannelGetTags(Channel, BASS_TAG_META); Form1.Caption := meta;

но в итоге кракозябры... что не так с кодировкой?
2) как узнать битрейт? ну 64kbps 128kbps и тд

raxp · 02.05.2014, 00:45

...откройте справку к пакету BASS/

@angstrom · 02.05.2014, 00:48

Это уже не леность, а наглость. Сеть полна примеров на эту тему, но саму искать ведь нужно. Пусть другие найдут.

@Farrewa · 02.05.2014, 12:46 **[ТС]**

с кодировкой конечно сложно помочь...

Добавлено через 39 секунд

Delphi

meta := BASS_ChannelGetTags(Channel, BASS_TAG_META);
     if (meta <> nil) then
        begin
          p := Pos('StreamTitle=', utf8String(utf8String(meta)));
            if (p = 0) then
              Exit;
            p := p + 13;
            meta:=pChar(utf8String(Copy(meta, p, Pos(';', utf8String(meta)) - p - 1)));
            Form1.Caption := meta;

русские буквы все равно иероглифами

@Farrewa · 02.05.2014, 18:08 **[ТС]**

Вообщем пролистав пару документаций, просмотрев пару сайтов, я доделал програмку, но название песни все равно кракозябрами:

Кликните здесь для просмотра всего текста

Код получения названия:

Кликните здесь для просмотра всего текста

Delphi

meta := BASS_ChannelGetTags(Channel, BASS_TAG_META);
     if (meta <> nil) then
        begin
          p := Pos('StreamTitle=', utf8String(utf8String(meta)));
            if (p = 0) then
              Exit;
            p := p + 13;
            meta:=pChar(utf8String(Copy(meta, p, Pos(';', utf8String(meta)) - p - 1)));
            Form1.Caption := meta;

перепробовал много вариаций и всяких махинаций... но тщетно... может подскажет кто-нибудь?

@angstrom · 03.05.2014, 22:48

Для чего постоянно используется преобразование utf8String? Хранение информации может быть в любой кодировке.

@Farrewa · 04.05.2014, 15:43 **[ТС]**

Да я что только не пробовал! и с utf8String и без utf8String все равно кракозябры

@angstrom · 04.05.2014, 22:22

Посмотрите пример NetRadio, в примерах поставляемых с Bass.

Воспроизведение аудиопотока

Решение

Решение

raxp 10212 / 6593 / 495 Регистрация: 28.12.2010 Сообщений: 21,164 Записей в блоге: 1
	30.04.2014, 20:20	2
	Сообщение было отмечено raxp как решение Решение Е.Бадло, С.Бадло. Ваш онлайн - радиоприемник или... Охота за радиолюбительским эфиром. - Радиолюбитель, Минск, 2010, №9, с.42 (исходники) 0

@Farrewa 29 / 29 / 22 Регистрация: 27.12.2013 Сообщений: 368
	30.04.2014, 21:59 [ТС]	4
	иии... и что это?! Чем мне это поможет? Я задал четкий вопрос! Как с помощью bass воспроизвести аудиопоток, какая функция/команда? 0

@cotseec Пишу на Delphi...иногда 1418 / 1275 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	30.04.2014, 22:06	5
	Не по теме: Сообщение от Farrewa и что это?! Чем мне это поможет? если не помогли примеры, поставляемые вместе с библиотекой, то уже ничего ни чем не поможет Добавлено через 4 минуты Сообщение от Farrewa какая функция/команда? BASS_StreamCreateURL 0

@mss 2645 / 2268 / 278 Регистрация: 24.12.2010 Сообщений: 13,725
	30.04.2014, 22:49	7
	Сообщение от Farrewa "Имя потока" - что за имя? Какое такое "имя потока" ? Где ты такой травы набрал ?) Bass_channelPlay требует первым параметром хендл потока, который возвращает BASS_StreamCreateURL, которая, в свою очередь, ожидает первым параметром URL медиаресурса 0

@Farrewa 29 / 29 / 22 Регистрация: 27.12.2013 Сообщений: 368
	01.05.2014, 13:20 [ТС]	8
	покажите пожалуйста простой пример... 0

raxp 10212 / 6593 / 495 Регистрация: 28.12.2010 Сообщений: 21,164 Записей в блоге: 1
	01.05.2014, 13:29	9
	TC, вот мне интересно. Если вам не помог разжеванный пример по статье, которая кстати свободно доступна и уверен вами даже не открывалась, исходники приемника и примеры к самой BASS, то вам тут делать нечего. 0

raxp 10212 / 6593 / 495 Регистрация: 28.12.2010 Сообщений: 21,164 Записей в блоге: 1
	01.05.2014, 22:26	11
	Сообщение было отмечено Farrewa как решение Решение ...первая - ссылка непосредственно на поток, вторая - ссылка на плейлист. Для поддержки плейлистов при использовании BASS следует активировать BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1) 1

@mss 2645 / 2268 / 278 Регистрация: 24.12.2010 Сообщений: 13,725
	01.05.2014, 22:30	12
	Восхитительная леность. M3U MP3 0

raxp 10212 / 6593 / 495 Регистрация: 28.12.2010 Сообщений: 21,164 Записей в блоге: 1
	02.05.2014, 00:45	14
	...откройте справку к пакету BASS/ 0

@angstrom 2474 / 1850 / 242 Регистрация: 14.09.2012 Сообщений: 5,981 Записей в блоге: 2
	02.05.2014, 00:48	15
	Это уже не леность, а наглость. Сеть полна примеров на эту тему, но саму искать ведь нужно. Пусть другие найдут. 0

@angstrom 2474 / 1850 / 242 Регистрация: 14.09.2012 Сообщений: 5,981 Записей в блоге: 2
	03.05.2014, 22:48	18
	Для чего постоянно используется преобразование utf8String? Хранение информации может быть в любой кодировке. 0

@Farrewa 29 / 29 / 22 Регистрация: 27.12.2013 Сообщений: 368
	04.05.2014, 15:43 [ТС]	19
	Да я что только не пробовал! и с utf8String и без utf8String все равно кракозябры 0

@angstrom 2474 / 1850 / 242 Регистрация: 14.09.2012 Сообщений: 5,981 Записей в блоге: 2
	04.05.2014, 22:22	20
	Посмотрите пример NetRadio, в примерах поставляемых с Bass. 0