Вопросы по bass.dll

[Kovax]

Так и не разобрался с уровнем громкости звука. При изменении в программе звук меняется и в системе. Зависит от вида аудиоплаты (встроенная в мать)? Либо у меня создание аудио потока не успешно прошло? Но такая проблема наблюдалась и на нетбуке (хоть там тоде встроенная). Вообще, может мне кто объяснить почему?

[ZuBy]

bass_channelsetattribute(channel, bass_attrib_vol, 0.5);
устанавливаем громкость для канала, диапазон 0..1 (float)

[ZvEr_HaCkEr]

1)Как сделать зацикливание воспроизведения отдельного файла, то есть при создании формы пишу

Bass_Init(-1,44100,0,handle,nil);
Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'music\main.mp3'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
BASS_ChannelPlay(Channel, false);

и музыка без остановки проигрывается?
2)Как сделать плавный переход между композициями как в AIMP'е?

[ZuBy]

Bass_Init(-1,44100,0,handle,nil);
Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'music\main.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, false);

2. эффект называется кросс фейдинг, теория:
1. при окончании трека (например, за 3 сек до конца) плавно уменьшаем громкость трека
2. создаем следующий поток до того как завершится предыдущий, и ставим громкость 0
3. плавно повышаем громкость новому потоку
4. освобождаем старый поток

делается это при помощи основных функции, BASS_ChannelSlideAttribute, BASS_ChannelIsSliding

[werrey]

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

У меня такой вопрос:
Вот я одновременно проигрываю сразу несколько файлов.
Как мне нажатием Button2 остановить воспроизведение конкретного файла, например test2.mp3, а остальные чтобы дальше воспроизводились ?

procedure TForm1.Button1Click(Sender: TObject);
begin

Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'test1.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, False);

Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'test2.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, False);

Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'test3.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, False);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 BASS_ChannelStop(Channel); // Останавливает только последний файл (test3.mp3)

 end;

[ZuBy]

Channel_1 := Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'test1.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel_1, False);

Channel_2 := Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'test2.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel_2, False);

Channel_3 :=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'test3.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel_3, False);

[werrey]

Спасибо большое за оперативный ответ.

Подскажите еще на примере, как сделать, чтобы отдельный файл(канал) начинался с плавного увеличения громкости, и в конце проигрывания плавно уменьшался звук?

Читал Ваш пост выше, про функции BASS_ChannelSlideAttribute, BASS_ChannelIsSliding,
но как это применить не понимаю, что-то сложновато для меня.

Заранее благодарю.

[ZuBy]

вот тут показано как это делать (не советую использовать, но для наглядного примера сойдет)