Требование к воспроизведению звука по нажатию клавиши клавиатуры в Bass.dll

[Fluffy123]

Здравствуйте. Задача состоит вот в чем: когда нажимаю на клавишу клавиатуры (определенную заранее), воспроизводится звук wav средствами bass.dll. Если нажать и удерживать клавишу, то будет воспроизводиться звук до тех пор, пока не отпущу клавишу. Подскажите, как сделать так, чтобы когда я нажал и удерживал клавишу звук воспроизводился только один раз?

[raxp]

playsound с соответствующим флагом и никаких bass

[Fluffy123]

с каким именно?я попробовал флаг пург, на первый взгляд это оно. но:
1. все равно воспроизводится звук много раз при удержании клавиши, но с большой задержкой
2.программа не реагирует на нажатия других клавиш пока плейсаунд не проиграет звук столько раз, сколько мы наудерживали клавишу.

[raxp]

не реагирует на нажатия, потому-что snd_async нужно добавить... а чего вы хотите добится в конечном итоге, я не про вопрос, а про цель работы

[Fluffy123]

асинк не то.попробуйте создать проект и написать

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='f' then
PlaySound('d:\d1.wav',0,sND_async);
end;

end.


с асинком будет воспроизводиться постоянно при удержании.

[Fluffy123]

или может в комбинации с другим флагом? цель работы добиться такого результата нигде в хелпах к басс длл не нашел такой особенности..

[raxp]

мда... sND_async - возвращает управление программе, асинхронное воспроизведение.

...вы слышали, что такое триггер? и понимаете-ли, что происходит когда вы удерживаете постоянно клавишу? по keydown выставляете флаг в true и воспроизводите звук, по keyup разрешаете, вот вам пример одиночного срабатывания:

var flag: boolean;

wmkeydown...
begin
 if not flag then begin
  flag:= true;
  PlaySound('d:\d1.wav',0,sND_async)
 end
end;

wmkeyup...
begin
 flag:= false
end;

[Fluffy123]

что такое тригер я знаю.идею понял.пробую

[Fluffy123]

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