Воспроизвести перед музыкой звук

[TUberwer]

Всем привет, у меня появилась задача.. Но не получается ее выполнить.
У меня при нажатии кнопки воспроизводится музыка, и потом через заданный интервал она повторяется, музыка воспроизводится через bass.
Но если в CheckBox поставить галочку, то перед каждым воспроизведением музыки - должен воспроизвестись совсем другой звук.
Я сделал так:
в VAR

PHP код:

  Channel: DWORD;
  Privlek: DWORD; 


при создании формы

PHP код:

Channel := Bass_streamCreateFile(false, PChar('name.wma'),0,0,0);
Privlek := Bass_streamCreateFile(false, PChar('sound\1500.wma'),0,0,0); 


в таймер, который воспроизводит музыку

PHP код:

begin
if(TimerVremya.Enabled = True) then
  begin
    if(CheckBox1.Checked = False) then
    begin
    Bass_channelPlay(Channel, false);
    Panel1.Caption := 'Playing';
    TimerFraza.Enabled := False;
    end
    else
    begin
     Bass_channelPlay(Privlek, false);
     Timer2.Enabled := True;
     TimerFraza.Enabled := False;
    end;
end; 


ну и Timer2

PHP код:

Bass_channelPlay(Channel, false);
    Panel1.Caption := 'Playing';
    Timer2.Enabled := False; 


получается если стоит галочка, то будет воспроизводится звук(он 1 секунду длится), и включаться таймер на 1 секунду(timer2), и когда таймер закончится, то будет воспроизводится музыка... Но звук не воспроизводится. Почему? Как лучше сделать?

[саша40]

Самый обычный ответ: Галочка не стоит.
Вот и ответ на вопрос. Что задал по умолчанию(стоит галочка или нет)?

[TUberwer]

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

[саша40]

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

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

А ты поток из файла музыки и звука создавал?

[TUberwer]

это?

PHP код:

Channel := Bass_streamCreateFile(false, PChar('name.wma'),0,0,0); 
Privlek := Bass_streamCreateFile(false, PChar('sound\1500.wma'),0,0,0); 


получается так, задаю я интервал на 5 сек.

но первый интервал не 5 а 6 секунд(6-тая секунда должна быть как-бы с воспроизведением звука), а второй и третий и все остальные интервалы по 3 секунды...(сама "музыка" идет 2 секунды)

[саша40]

Говоришь сам звук длится 1 секунду, тогда поставь Interval у таймера отвечающего за начало воспроизведения музыки на 1000 и пропиши там код:

if CheckBox1.Checked=false then exit;
if BASS_ChannelisActive(...)<>BASS_ACTIVE_STOPE then exit; //...- название потока, в котором звук
BASS_ChannelPlay(Channel);
BASS_StreamFree(...);//...-название потока, в котором звук
CheckBox1.Checked:=false;
Timer1.Enabled:=false;

BASS_ACTIVE_STOPE активируется при BASS_ChannelStop или после окончания воспроизведения звукового потока. Если есть кнопка Стоп, то советую завести переменную типа TPlayerMode. Описание типа:

TPlayerMode = (play,pause,stop);

Дальше можешь просто запускать таймер, просто присваевая его свойству Enabled значение true.

[саша40]

Кстати, bass.dll не поддерживает wma-файлы. Тепе придется их конвертировать в любой другой или использовать BASSWMA.dll для создания потока из файла с помощью функции BASS_WMA_StreamCreateFile. Параметры теже.

[TUberwer]

странно.. у меня музыка .wma, проигрываю на bass, все ок..

[саша40]

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

странно.. у меня музыка .wma, проигрываю на bass, все ок..

дествительно странно.