Пошаговое создание аудио плеера на bass.dll.

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

тем не менее, этим файлам там не место.
лучше создавать где то папку(хоть в той же папке lib) и потом к ней прописывать путь(Library Path)

[Dr.Badnezz]

Сам ну очень много занимаюсь с bass.dll, есть свои наработки.

Хочу сказать на чем делать плейлист:
Засуньте сразу TListBox и TTreeView куда подальше. Мало того, что они добавляют n'ое количество новых элементов очень медленно, так если еще и отрисовывать начать, то это вообще капец. Лучше забудьте про них в качестве плейлиста. Потом жалеть не будете.

TStringGrid тоже не вариант, отрисовать его проще простого, а вот возни будет, да и работает он тоже не очень быстро. (ощущается при добавлении ~2000Треков)

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

А вообще практически вся информация о bass.dll есть в стандартной справке.

[inndim]

Сообщение от .Phoenix

Тоже пытаюсь что-то сделать подобное, но чтобы реализовать анализатор надо как минимум научиться работать с графикой. Начни со справки bass.chm Там описаны все функции этой библиотеки.

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

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

Плейлист, регулятор трека, авт. Переход на след. Трек.

Если я правильно понял выражение "регулятор трека", то в простейшем варианте будет так:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 BASS_ChannelSetPosition(Channel, BASS_ChannelSeconds2Bytes(Channel, TrackBar1.Position), BASS_POS_BYTE);
end;

а всё остальное реализовывается даже при базовом умении прграммировать на Delphi и знать тонкости bass.dll для этого вовсе не обязательно.

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

Автоматический переход на следующий трек.
Проверяется при помощи Timer, при этом берётся текущее время при проигрывании трека и сравнивается с его длиной. Если равно, то перейти на стедующую строку ListBox. Только это с постоянным битрейтом, а с переменным придётся сложнее...

Ну вы батенька и загнули, так делать это извпащение какое-то прям.
Всё делается гораздо проще:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if BASS_ChannelIsActive(Channel)=BASS_ACTIVE_STOPPED then // следующий трэк
end;

p.s. Если помог, то нажмите на весы.

[mutabor]

Dr.Badnezz, насчет засовывания куда подальше. Вам для справки, многие стандартные контролы могут работать в виртуальном режиме, тогда отрисовываются только видимые в данный момент элементы, а добавлять в них не нужно ничего вообще, элементы добавляются в невизуальный список.

[ZuBy]

Автоматический переход на следующий трек.
Проверяется при помощи Timer, при этом берётся текущее время при проигрывании трека и сравнивается с его длиной. Если равно, то перейти на стедующую строку ListBox. Только это с постоянным битрейтом, а с переменным придётся сложнее...

Ну вы батенька и загнули, так делать это извпащение какое-то прям.
Всё делается гораздо проще:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if BASS_ChannelIsActive(Channel)=BASS_ ACTIVE_STOPPED then // следующий трэк
end;

это все мусор!

басс сама может сказать когда закончился трек

procedure SyncMsg(Handle: HSync; Channel, Data: DWORD; User: Pointer); stdcall;
begin
   PostMessage(xx.Handle, тут твое сообщение, 0, 0);
end;

после создании нового канала

BASS_ChannelSetSync(твои канал, BASS_SYNC_END or BASS_SYNC_MIXTIME, 0, SyncMsg, nil);

и все что осталось отловить сообщение которое будет послано при окончании трека

[ZuBy]

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

Dr.Badnezz, насчет засовывания куда подальше. Вам для справки, многие стандартные контролы могут работать в виртуальном режиме, тогда отрисовываются только видимые в данный момент элементы, а добавлять в них не нужно ничего вообще, элементы добавляются в невизуальный список.

Ну лучше написать свои компонент, так будет удобней и всегда можно что-то добавить/убрать/изменить и + первичная отрисовка, без стандартной отрисовки контролов

[mutabor]

ZuBy, это просто я написал в ответ на его категоричное высказывание насчет тормознутости контролов. Понятно, что для плейлиста лучше разработать свой компонент.

[notHaker]

Если хотите для самообразования, то сделайте собственный движок. Если нет, то в мире существует огромное количество плееров над которыми годами трудятся десятки талантливых программистов и врядли ваш составит им конкуренцию... это моё мнение.

[Beba99]

как сделать чтоби плеер сам переходил на следующий трек в плейлисте???

[Алексей_2012]

Еле откопал свой старый плеер на основе TMediaPlayer, думаю смысл понятен?

в обработчик Ttimerа

if (ProgressBar1.Max <> 0)   then
  begin
    ProgressBar1.Position := Mediaplayer1.Position; //приравниваем текущую позицию прогрессбара к текущей позиции трэка
    Len := Mediaplayer1.TrackLength[ListBox1.ItemIndex];
//***вычесляем время
    Pos := Mediaplayer1.Position;
    MinLeft := ((Len - Pos) div 1000) div 60; //осталось мин
    SecLeft := ((Len - Pos) div 1000) mod 60; //осталось сек
    Min := (Pos div 1000) div 60;
    Sec := (Pos div 1000) mod 60;
//***осталось
    if SecLeft < 10 then
      label18.Caption := '0' + IntToStr(SecLeft)
    else
      label18.Caption := IntToStr(SecLeft);
    if MinLeft < 10 then
      label19.Caption := '0' + IntToStr(MinLeft) + ':'
    else
      label19.Caption := IntToStr(MinLeft) + ':';
//***прошло
    if Sec < 10 then
      label15.Caption := '0' + IntToStr(Sec)
    else
      label15.Caption := IntToStr(Sec);
    if Min < 10 then
      label17.Caption := '0' + IntToStr(Min) + ':'
    else
      label17.Caption := IntToStr(Min) + ':';
  end;
  if ProgressBar1.Position >= MediaPlayer1.Length then
  begin
    ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
    if ListBox1.Selected[ListBox1.Items.count - 1] = True then ListBox1.ItemIndex := 0;
//*************************    
//проигрывание
//*************************
  end;
end;