Воспроизведение Midi-нот

[desperado]

Добрый день.

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

Подскажите, пожалуйста, можно ли какой-нибудь стандартной функцией воспроизводить звук определенной частоты?

Как вариант создавать Midi 108 файлов и их проигрывать медиа плеером, но он на крайний случай, т.к. не оптимальный.

И можно ли каким-нибудь образом создавать Midi-файл?

[Alex21]

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

можно ли какой-нибудь стандартной функцией воспроизводить звук определенной частоты?

Как вариант создавать Midi 108 файлов и их проигрывать медиа плеером, но он на крайний случай, т.к. не оптимальный.

И можно ли каким-нибудь образом создавать Midi-файл?

Все, что желаемо и представимо - достижимо!!!

108 ????????? Не потянет MP (если одновременно)
Должны быть готовые компоненты.

[ZhekON]

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

Как вариант создавать Midi 108 файлов и их проигрывать медиа плеером, но он на крайний случай, т.к. не оптимальный.

uses
MMSystem;

// Play Midi

procedure TForm1.Button1Click;
const
FileName = 'C:\YourFile.mid';
begin
MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;

// Stop Midi

procedure TForm1.Button1Click;
const
FileName = 'C:\YourFile.mid';
begin
MCISendString(PChar('stop ' + FileName), nil, 0, 0);
end;