Зависание при работе с TMediaPlayer
Код:
Код:
//-------------- NextSong
If Player.FileName <> '' then
begin
Player.Stop;
rnd := Random(Form1.FileListBox1.Items.Count-1);
Player.FileName := filepath + '\' + files[rnd];
Player.Open;
Player.Position := RandomRange(0, Player.Length div 2);
Player.Play;
end
else
begin
Player.FileName := filepath + '\' + files[rnd];
Player.Open;
Player.Position := RandomRange(5000, Player.Length div 2);
Player.Play;
end;
//-----------------------
If Player.FileName <> '' then
begin
Player.Stop;
rnd := Random(Form1.FileListBox1.Items.Count-1);
Player.FileName := filepath + '\' + files[rnd];
Player.Open;
Player.Position := RandomRange(0, Player.Length div 2);
Player.Play;
end
else
begin
Player.FileName := filepath + '\' + files[rnd];
Player.Open;
Player.Position := RandomRange(5000, Player.Length div 2);
Player.Play;
end;
//-----------------------
Player - это TMediaPlayer;
files - массив с именами файлов mp3;
filepath - путь к файлам;
При работе происходит следущее: в лучшем случае, пару песен он проиграет, после чего безнадежно зависает. В чем может быть ошибка?
Спасибо.