Закончилась ли песня? Bass.DLL

[SoftKoc]

!Здравствуйте!

Подскажите пожалуйста как можно узнать закончилась ли песня ( Bass.DLL ). Для того что бы запустить следующую песню!

И если есть какие-то методы что бы это все не нужно было проверять по таймеру!
А если нет тогда вообще какие есть?

!Заранее очень благодарен!

[856100]

Методов нет, но за то можно сравнивать позицию песни с ее длиной, и если позиция равна длине, то значит песня закончилась.

if BASS_ChannelGetPosition(chanel, 0)=BASS_ChannelGetLength(channel, 0) then
 ShowMessage('конец песни');

[SalasAndriy]

Используйте функцию:

HSYNC BASS_ChannelSetSync(
    DWORD handle,
    DWORD type,
    QWORD param,
    SYNCPROC *proc,
    void *user
);

с флагом BASS_SYNC_END... По-моему так если не ошибаюсь!
а так же proc функцию реализуйте...
Вообщем копайте в этом направлении)

[SoftKoc]

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

Методов нет, но за то можно сравнивать позицию песни с ее длиной, и если позиция равна длине, то значит песня закончилась.

if BASS_ChannelGetPosition(chanel, 0)=BASS_ChannelGetLength(channel, 0) then
 ShowMessage('конец песни');

Пробовал такой метод! Но не знаю он мне кажется не эффективен.
И при этом всем он не действует, песня заканчивается и начинает заново проигрываться (повторяется)!

[raxp]

а собственно без этого метода песни идут по списку? может быть у вас флаг LOOP стоит на проигрывание и приведенная синхронизация SalasAndriy ни причем?

[SoftKoc]

procedure TForm1.FormCreate(Sender: TObject);
begin
if not BASS_Init(-1, 44100, 0, Handle, nil) then
 begin
  Halt;
 end;
end;

Procedure Play(const FileName: String);
Var
 FFileName: PChar;
Begin
   If not FileExists(FileName) then
    Begin
     Exit;
    End;
   FFileName:= PChar(FileName);
   If Chennel <> 0 then
    Begin
      BASS_ChannelStop(Chennel);
      BASS_StreamFree(Chennel);
      Chennel:=0;               
    End;
   Chennel:=BASS_StreamCreateFile(False, FFileName, 0, 0, 0);
   If Chennel = 0 then
    Begin
     MessageBox(0, 'Ошибка загрузки файла', 0, MB_OK or MB_ICONSTOP);
     Exit;
    End;
   If not (BASS_ChannelPlay(Chennel, False)) then
    Begin
     MessageBox(0, 'Ошибка воспроизведения файла', 0, MB_OK or MB_ICONSTOP);
     Exit;
    End;
End;

procedure TForm1.FormDestroy(Sender: TObject);
begin
BASS_Free;
end;

Вот код!

[raxp]

хороший код... и где же по вашему обработка списка файлов?

[SoftKoc]

Обработку я не выложил!
У меня на форме лежит ListBox с адресами. Все уже написал и процедуру перехода, но ее нужно вызывать при окончании трека! А вот как узнать окончился трек или нет?

[SoftKoc]

IF ListBox1.ItemIndex <> ListBox1.Count - 1 Then
  Begin
   ListBox1.ItemIndex:=ListBox1.ItemIndex + 1;
   Play(ListBox2.Items[ListBox1.ItemIndex]);
  End;

Вот что в процедуре перехода!

[raxp]

вам же выше привели способы, даю еще один:

function proverka: boolean;
begin
 result:= false;
 if Chennel>0 then
   case BASS_ChannelIsActive(Chennel) of
     BASS_ACTIVE_PLAYING : result:= false
     BASS_ACTIVE_STOPPED: result:= true
  end
end;

при этом Chennel должен быть заранее загружен, то есть вы должны выделить нужный в списке, это уже и сами знаете... по срабатыванию <proverka> в таймере - делаете переход на следующий + нужно учесть возможность того, если пользователь вручную нажмет СТОП.