TMediaPlayer проглатывает начало файла
Добавлено: 16 авг 2009, 23:39
Ситуация такая: в программе должны непрерывным потоком проигрываться рандомно выбираемые звуковые файлы продолжительностью около секунды-двух каждый в формате mp3. Проблема в том, что иногда при проигрывании обрезается несколько долей секунды в начале файла. Даже при проигрывании одного и того же файла несколько раз подряд - иногда обрезается, иногда нет
Проигрывается так:
[syntax=Delphi]
s:=get_next_file; //Получаем имя следующего файла для проигрывания
Form1.MP1.FileName:=s;
Form1.MP1.Open;
repeat
Form1.MP1.Play;
repeat until Form1.MP1.Mode<>mpPlaying;
s:=get_next_file;
Form1.MP1.FileName:=s;
application.ProcessMessages;
Form1.MP1.Open;
repeat until Form1.MP1.Mode<>mpPlaying;
until false;
[/syntax]
Проигрывается так:
[syntax=Delphi]
s:=get_next_file; //Получаем имя следующего файла для проигрывания
Form1.MP1.FileName:=s;
Form1.MP1.Open;
repeat
Form1.MP1.Play;
repeat until Form1.MP1.Mode<>mpPlaying;
s:=get_next_file;
Form1.MP1.FileName:=s;
application.ProcessMessages;
Form1.MP1.Open;
repeat until Form1.MP1.Mode<>mpPlaying;
until false;
[/syntax]