Доброго времени суток!
Возник такой вопрос:
Пишу медиаплеер, пока самый простой. Столкнулся с непонятной проблемой. Суть в том, чтобы из плейлиста рандомом вытягивать треки и проигрывать их. Вот кусок кода процедуры:
флажок - выбор проигрывания в случайном порядке
i,n - переменные integer, просто счетчики
Код:
if Form1.CheckBox1.Checked=true then
begin
rand:randomize;
n:=Form1.ListBox1.Count-1;
i:=Random(n);
Form1.Mediaplayer1.FileName:=Form1.ListBox1.Items[i];
Form1.MediaPlayer1.Open;
Form1.MediaPlayer1.Play;
goto rand;
end;
lmikle: Тегами пользуемся правильно!!!
Проблема в том, что именно при попытке проиграть выбранный трек, программа зависает наглухо.
Через отладчик код выполняется последовательно, без ошибок.
Если надо, могу весь проект выложить.
Заранее спасибо!