Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Миди-клавиатура

Автор: Mew 5.12.2005, 07:58

Подскажите люди добрые,
как подключить миди клавиатуру. через какие компоненты.

Автор: Snowy 5.12.2005, 14:25

Вот компоненты мне не встречались.
Работа с миди-клавиатурой - дело достаточно сложное. Компонентами это не решить.
Организовать прием данных не сложно. Проблема в том, что потом делать с полученными данными.
Готовый пример нарисовать не могу, т.к. не имею клавиатуры.
Могу лишь направить в сторону "куда копать".
uses MMSystem;
Читай в MSDN про функции, начинающиеся с midiIn----

Код


function midiInGetNumDevs: UINT;
function midiInGetDevCaps(DeviceID: UINT; lpCaps: PMidiInCaps; uSize: UINT): MMRESULT;
function midiInGetErrorText(mmrError: MMRESULT; pszText: PChar; uSize: UINT): MMRESULT;
function midiInOpen(lphMidiIn: PHMIDIIN; uDeviceID: UINT;
  dwCallback, dwInstance, dwFlags: DWORD): MMRESULT;
function midiInClose(hMidiIn: HMIDIIN): MMRESULT;
function midiInPrepareHeader(hMidiIn: HMIDIIN; lpMidiInHdr: PMidiHdr; uSize: UINT): MMRESULT;
function midiInUnprepareHeader(hMidiIn: HMIDIIN; lpMidiInHdr: PMidiHdr; uSize: UINT): MMRESULT;
function midiInAddBuffer(hMidiIn: HMIDIIN; lpMidiInHdr: PMidiHdr; uSize: UINT): MMRESULT;
function midiInStart(hMidiIn: HMIDIIN): MMRESULT;
function midiInStop(hMidiIn: HMIDIIN): MMRESULT;
function midiInReset(hMidiIn: HMIDIIN): MMRESULT;
function midiInGetID(hMidiIn: HMIDIIN; lpuDeviceID: PUINT): MMRESULT;
function midiInMessage(hMidiIn: HMIDIIN; uMessage: UINT; dw1, dw2: DWORD): MMRESULT;

Добавлено @ 14:26
http://a-lemesh.narod.ru/programming/mydoc.html
http://go.to/davesmidi

Автор: alexzzzz2 23.3.2010, 18:08

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