MIDI

← →
plosion © (2005-05-25 16:05) [0]

Люди, помогите: засунул в файл ресурса 3 midi файла. И нужно воспроизвести их. API"шной командой, типа:

PlaySound(pData, 0, SND_MEMORY + SND_ASYNC + SND_NOSTOP);

не катит: это только для вавок. Обыскался... не знаю, где ещё можно узнать. Помогите, пожайлуста!!!

← →
Digitman © (2005-05-25 16:22) [1]

midiStreamOut()

← →
plosion © (2005-05-25 17:36) [2]

Digitman, а как с помощью него проиграть midi файл ресурса? Есть ли по этому вопросу статьи или док-ция, где можно прочитать поподробнее?

← →
Digitman © (2005-05-26 09:38) [3]

не мучайся, возьми какой-нибудь готовый компонент

например, http://www.wilsonc.demon.co.uk/files/midiutilities/midiutils.zip

← →
plosion © (2005-05-26 17:13) [4]

Скачал я компонент - не устанавливается :(
Зато в инете нарыл (с трудом) не плохую процедурку:

procedure TForm1.Button1Click(Sender: TObject);
const
FileName = "1.mid";
begin
MCISendString(PChar("play " + FileName), nil, 0, 0);
end;

Всё работает :) А вот как вытащить из ресурса файлик... пока не знаю. :( Никто не знает... а?

> plosion

да ты и впрямь дурень !)
тебе говорят о midiOut-реализациях, ты же продолжаешь гнуть свое про "файлик" , "MCI" и прочей схожей лабуде)

> Скачал я компонент - не устанавливается

ты страничку-то всю обшарил, сударь ?) или влом ? Digitman"ово дерьмо не устанавливается - и засим успокоились ?)

сходи на ее Home, лентяй !)

авось полегчает.

Гм... спасибо за массу комплиментов. Очень приятно :)
А насчёт "дурня"... ты наверное прав...

MIDI Найти похожие ветки