Bass.dll не воспроизводит m3u

[demiancz]

ZuBy, спасибо вам за подсказку, но у меня всеравно ничего не работает. Вот мой код:

procedure TForm1.sBitBtn10Click(Sender: TObject);
begin
BASS_StreamFree(stream);
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
Bass_PluginLoad('basswma.dll', 0);
stream:=BASS_streamCreateURL(pansichar(AnsiString('http://moreradio.ru/listen.php?id=415&fr=771')), 0, BASS_STREAM_STATUS, nil, 0);
BASS_ChannelPlay(stream, false);
end;

[antonn]

да, это плейлист winamp'a и что в этом такого?

плейлист винампа - кусок текстового файла

[xrob]

я просто думаю, если m3u - это плэй-лист,
в котором просто текстом описаны пути к воспроизводимым файлам,
то надо быть дураком, чтобы пытаться воспроизвести m3u-файл...
с другой стороны, вы обсуждаете такие умные вещи,
не будут дураки обсуждать такие вещи,
стало быть речь идет не о плэй-листе, отсюда вывод -
m3u - это не только плэй-лист...
вот я и думаю, что я пропустил в восприятии этого мира?...
ладно, зебейте, это так - мысли вслух...

[Пепел Феникса]

плейлист содержит в себе ссылки на песни которые вполне можно вопроизвести.
а воспроизвести плейлист значит воспроизвести эти песни.

то что проигрыватель открывает и воспроизводит вас не удивляет?

[demiancz]

m3u у меня уже нормально воспроизводятся. А вот с другими проблема. помогите кто может. Пожалуйста. Вот например эту ссылку проиграть
хттп://moreradio.ru/listen.php?id=415&fr=771
или вот эту
хттп://cluster.quantumart.ru/broadcast/default.aspx?media=rusradio

[ZuBy]

Я уже сказал, загрузи wma плагин

вот мой радио плеер, который играет без проблем все эти ссылки...

чтобы протестить их, в radio.m3u ссылку нужна поставить первой строкой и перезагрузить

[demiancz]

ZuBy,
По вашему плееру я суть понимаю как все должно работать. Но у меня проблема с подключением этого самого wma плагина. Где и как нужно это сделать. Пожалуйста. Если не трудно. Не могли бы вы пример кода кинуть, как у вас построен запуск проигрывания и подключение wma плагина.
Я уже по разному пробовал. И так:

procedure TForm1.sBitBtn10Click(Sender: TObject);
begin
BASS_StreamFree(stream);
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
Bass_PluginLoad('basswma.dll', 0);
stream:=BASS_streamCreateURL(pansichar(AnsiString('http://moreradio.ru/listen.php?id=415&fr=771')), 0, BASS_STREAM_STATUS, nil, 0);
BASS_ChannelPlay(stream, false);
end;

И так

procedure TForm1.FormCreate(Sender: TObject);
begin
BASS_Init(-1, 44100, 0, Handle, nil);
Bass_PluginLoad('basswma.dll', 0);
end;

У меня ну никак не играет радио. Я ссылку даже впихнул в ваш файл и на сайт себе залил, что бы так попробовать. И ничего.

Хотя может и проблема в самом пути к файлу. Не пойму.
Вот так ваша ссылка которая в radio.m3u играет

stream:=BASS_streamCreateURL(pansichar(AnsiString('http://stream1.radiostyle.ru:8001/riaradio')), 0, BASS_STREAM_STATUS, nil, 0);

а вот так не играет

stream:=BASS_streamCreateURL(pansichar(AnsiString(ExtractFilePath(Application.ExeName)+'radio\'+'radio.m3u')), 0, BASS_STREAM_STATUS, nil, 0);

Словом запутался я ужасно. Видимо не судьба разобраться в этом.

[ZuBy]

вот так у меня сделано, частями вырезал

    if not BASS_Init(-1, 44100, BASS_DEVICE_SPEAKERS, Application.Handle, nil) then
    begin
    // ошибка
    end;

    if BASS_PluginLoad(pchar('.\basswma.dll'), {$IFDEF UNICODE}BASS_UNICODE{$ELSE}0{$ENDIF}) = 0             
    then
    begin
    // ошибка 
    end;

    BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
   
    // создание потока

  if StreamID > 0 then
  begin
    BASS_StreamFree(StreamID);
    StreamID := 0;
  end;

  // URL: string = 'http://stream1.radiostyle.ru:8001/riaradio';
  StreamID := BASS_StreamCreateURL(PAnsiChar(URL), 0, {$IFDEF UNICODE}BASS_UNICODE{$ELSE}0{$ENDIF}, nil, nil);
  if StreamID = 0 then
  begin
   // ошибка
  end else
   BASS_ChannelPlay(StreamID, true);

[demiancz]

Спасибо. С вашим примером все заработало. Очень благодарен вам. Я просто неправильно подключал плагин.

[Lesha]

некропост



http://jqbook.narod.ru/delphi/bass_player.htm

http://jqbook.narod.ru/delphi/m3ulist.htm << m3u list 1.3

Плеер разработан как пример использования BassSimple FX TAG REC VIS

Использует только стандарные компоненты. Использование WinAPI сведено к минимуму используется VCL

Функциональность урезана по минимуму чтобы не загромождать итак достаточно объемный код

Функции

- проигрывание всех популярных форматов.
- 2 вида визулизации
- сохранение настроек громкости баланса, эквалайзера в ini файл
- сохранение плей листа в обычный текстовый файл
- создание редактирование открытие сохранение плейлистов в формате m3u (Юникод поддерживается)
- редактирование тегов в проигрываемом файле без потери воспроизведения, в том числе обложек
- поиск по листу в обратном и прямом направлении
- запись радио странций в формате mp3 ~ 160 kbps битрейт
- при сворачивании программы визуализация отключается для экономии времени процессора
- переименование файлов в списке
- сортировка списка