Синтез Midi инструментов

В свойствах системы диапазон: E400 - E4FF;

Программа говорит: Base Port: 544;

В ассемблеровском коде сделал изменения, всё равно молчит.

Ash звук интегрированный? Попробуй старую Dos игруху с FM ... вероятно из DOSа
тебе до FM не добратся... Посмотри в виновозе настройку громкости FM, если там написано
типа "SW Syns" значит пи...пиликала гармошка. Тебе одноканальный орган на спикер пойдет?

Цитата

Ash звук интегрированный?

Да.

Цитата

Посмотри в виновозе настройку громкости FM, если там написано
типа "SW Syns" значит пи...пиликала гармошка.

Там написано програмнный синтезатор.
А FM(OPL2/OPL3) звукавуха не поддерживает.

Цитата

Тебе одноканальный орган на спикер пойдет?

Эт какой такой?

Ash
Значит FM только Виновозе... в DOS облом...

Одноканальный... эт когда играет одна нота в еденицу времени
(или проще: нельзя взять аккорд), т.е. прога очень проста...
На спикере проиграть несколько нот одновременно ну... немного проблематично
(хотя если выпендрится вполне возможно)
Тебе сильно позарез надо? Если не секрет, то куда?

Цитата

Одноканальный... эт когда играет одна нота в еденицу времени

Это то я понял.
Я не понял чё за орган. Эт ты про PC-Speaker, чтоли. Нее..

Так чё с миди, чё он молчит, не знаешь.

Цитата

Тебе сильно позарез надо? Если не секрет, то куда?

У меня курсовая, виртуальное пианино надо сделать.

Цитата Ash @ 26.05.05, 19:42

У меня курсовая, виртуальное пианино надо сделать.

Универсальных модулей, рассчитаных на разные звуковые карты, нет. Используй Sound() и забудь о всяких FM.

Несвижский В. - Программирование аппаратных средств в Windows
Издательство BHV
Отдельная глава посвящена программированию звуковых карт.
Вчера видел эту книгу в БиблиоГлобусе. 465 руб. Вроде не плохая книжка.

Ash с FM в TP/BP у тебя не получится(или звуковуху надыбай SB/Adlib совместимую)...
Раз у тебя прога находит базовый порт, то есть подозрения, что wav проиграть из паскаля
можно... Тогда делаешь несколько файлов с записями инструментов и принажатии клавиш
в реалтайм микшируешь и выводишь на звуковуху(чистый гемор)

Совет достань звуковуху...

А с midi чё?

Ash MIDI (или FM) у тебя программный под Win, т.е. в DOS через порты
тебе не дотянутся...

Вобщем либо звуковуху ставь... либо под Win пиши...

Цитата hot_icer @ 28.05.05, 09:17

Вобщем либо звуковуху ставь... либо под Win пиши...

Под вин на TP?

Сообщение отредактировано: Ash - 29.05.05, 16:59

Цитата Ash @ 29.05.05, 16:56

Под вин на TP?

Нет, можно только в BP7.
Неужели такие дикие ограничения в компиляторах? Free Pascal не подойдёт?

Цитата Romtek @ 29.05.05, 17:34

Неужели такие дикие ограничения в компиляторах? Free Pascal не подойдёт?

В том то и дело что ограничения дикие. Всё надо сделать в BP/TP.

Так кто нибудь подскажет как, звуки midi под винду спеть? Пожайлусто, очень надо.

Копай инфу в сторону MMsystem (в стандартной поставке Borland Pascal 7.0) и процедуры mciSendCommand, mciSendString

Вот пример для Дельфи (мною не проверялся):

uses  
  MMSystem;  
 
// Play Midi  
procedure Play;  
const  
  FileName = 'C:\YourFile.mid';  
begin  
  MCISendString(PChar('play ' + FileName), nil, 0, 0);  
end;  
 
// Stop Midi  
procedure Stop;  
const  
  FileName = 'C:\YourFile.mid';  
begin  
  MCISendString(PChar('stop ' + FileName), nil, 0, 0);  
end;

Вот ещё:

procedure TForm1.PlayClick(Sender: TObject);
const
  midi='D:\MUSIC\Midi\tp.mid';
begin
     mcisendstring(PChar('open '+midi+' type sequencer alias MIDIDemo'),0,0,Handle);
     mcisendstring('play MidiDemo FROM 0',0,0,Handle);
end;
 
procedure TForm1.StopClick(Sender: TObject);
begin
     mcisendstring('stop MidiDemo',0,0,0);
end;

С WinAPI, по идее, не должно быть проблем. Даже с Борланд Паскалем.

Сообщение отредактировано: Romtek - 29.05.05, 18:20

Оказалось, что можно и FPC использовать, кто что посоветует. Нужно звук издать при нажатии на клавишу.