Текущий архив: 2011.03.20;
Скачать: CL | DM;

Вниз

Циклическое проигрывание midi-файла без разрывов в звучании   Найти похожие ветки 

← →
Музыкант   (2008-04-23 01:01) [0]

Как можно циклически проигрывать midi файл, чтобы при повторе не возникало паузы? Через MediaPlayer возникает задержка примерно в 1-2с, а PlaySound вроде как не поддерживает midi, потому что вместо мелодии он издает зацикленный звук, типа когда он не находит файл.

---

← →
Сергей М. ©   (2008-04-23 08:22) [1]

> чтобы при повторе не возникало паузы? Через MediaPlayer
> возникает задержка


Напиши собственный midi-плейер.


> PlaySound вроде как не поддерживает midi


Это следует даже из названия функции: PlaySound)

---

← →
Сергей М. ©   (2008-04-23 08:42) [2]

А waveform-синтезатор ты уже реализовал, коль скоро взялся за реализацию секвенсора ?)

И как TmediaPlayer сочетается с "низким уровнем" ?)

---

← →
may be I am noob... ©   (2008-05-17 16:28) [3]

я делал так:
в TMediaPlayer обрабатывал 2 события

procedure PlayerNotify(Sender: TObject);
begin
with Sender as TMediaPlayer do begin
   If Mode = mpStopped then begin
     If NeedThemeSound then begin
       Filename := "1.mid";
       DeviceType := dtAutoSelect;
       Open;
       Play;
       Notify := True;
     End;
   End;
 end;
end;

procedure PlayerPreNotify(Sender: TObject);
begin
With (Sender as TMediaPlayer) do begin
If Mode = mpStopped then begin
 Filename := "1.mid";
 DeviceType := dtAutoSelect;
 Open;
 Play;
 Notify := True;
End;
End;
End;

все без пауз

---

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

Текущий архив: 2011.03.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c