Форум: "Media";
Текущий архив: 2011.03.20;
Скачать: [xml.tar.bz2];
ВнизЦиклическое проигрывание 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 вся ветка
Форум: "Media";
Текущий архив: 2011.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c