Скачать: CL | DM;

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;

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

---

← →
Digitman ©   (2005-05-26 17:25) [5]

> plosion


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


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


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

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

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

---

← →
plosion ©   (2005-05-26 21:13) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.046 c