Синтезатор на Delphi. Проблема с непослушными клавишами

[Terran]

Уважаемый Terran а вы согли бы привести пример, а то не догнал.)

Вроде бы в основном разобрался, но с двумя клавишами так не получилосЬ?

К примеру возьмём GetKeyboardState. Пример использования:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
State : TKeyboardState;
begin
GetKeyboardState(State);
If ((State[vk_Control] and 128) <> 0) Then
caption:='нажат';
...
т.д.
End;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
State : TKeyboardState;
begin
GetKeyboardState(State);
If not ((State[vk_Control] and 128) <> 0) Then
caption:='отпущен';
...
т.д.
end;

[Dancewithevil]

128 это код клавиши как я полагаю?

[Terran]

128 это код клавиши как я полагаю?

128 используется для упрощения работы с функцией. (Если интересует описание функции можете почитать тут: http://www.cyberguru.ru/programming/...ns-page10.html)
Код клавиш записывается в скобках [vk_Control]. Можно записать как [17].
В общем смысл такой. Используйте два обработчика событий FormKeyDown - на нажатие клавиш и FormKeyUp - на отпускание клавиш. И делайте проверки через If...Then состояния клавиш. Если клавиша нажата, то проигрывайте нужный звук, а если отпущена, то прекращайте воспроизведение.
Если будут затруднения, то выложите исходничёк. Постараемся помочь.

[ZBEP]

Делать было нечего вчера, сделал что-то типа синтезатора (пока длина звука при нажатии статическая, позже сделаю цикл на воспроизведение середины звука, пока кнопка нажата и ограничение по времени тоже надо будет сделать думаю).
Клавиши:
" ` 1 2 3 4 5 6 7 8 9 0 - = q w e r t y u i o p [ ] \ ", ну и перемотка открытого трека <- и -> , пауза Pause/Break.

П.с. Для прекращения звука собираюсь использовать циклическое воспроизведение части/середины файла, потому что если прекращать проигрывать звук сразу после отпускания клавиши, без затухания, то получается не красиво.

[raxp]

>>> тырк 1 2

[mutabor]

Тебя ждет еще одна проблема, и ее обойти не получится, т.к. она аппаратная. Ты не сможешь отловить нажатие более трех клавиш одновременно (может варьироваться от клавиш и клавиатуры).

[ZBEP]

да эт фигово(
Но надеюсь точно-одновременных нажатий будет не оч много)
П.с.
Полутона добавил.

Подскажите, как можно записывать то, что я синтезаторе играю в файл?
Ищу про запись звука, но пока везде только запись с микрофона, а как записывать то, что в компе происходит - хз(
П.с.
У меня на клаве до 6 кнокок одновременно можно наживать (BTC) это радует)))

[ZuBy]

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

Подскажите, как можно записывать то, что я синтезаторе играю в файл?

юзай bass, умеет захватывать выходной поток, и запись не сложная

[ZBEP]

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

юзай bass, умеет захватывать выходной поток, и запись не сложная

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

П.с.
Седня нагуглил и скопипастил один способ, но он не bass' овский и какой-то слишком объемный и т.д.
Я думал будет примерно также, как запись с микрофона..
Ладн пойду изучать bass..

Блин.. Как я понимаю надо использовать BASS_RecordStart, понял как перехватывать инет-радио и сохранять его в файл, а насчет общего выходного потока пока ничего не нашел( Везде либо радио, либо микрофон XD

[mutabor]

С бассом идут примеры на Дельфи работы с его АПИ. Думаю среди них есть что тебе нужно.