MediaPlayer

[KORT]

Привет народ! Вопрос в =>: как сделать рестарт музыки в MediaPlayer?

 
procedure TForm1.Musik;
begin
MediaPlayer1.FileName := 'music\КЛАССИКА.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Метки и Musik (после MediaPlayer1.Play) уже ставил, но результат ОШИБКА!!!!

[Alex21]

MediaPlayer1.Position:=0;
или
MediaPlayer1.Stop;
MediaPlayer1.Play;

[KORT]

Alex21, не одна из процедур не действует. Я скину исходник, взгляни.

[Alex21]

Посмотрю только вечером, здесь звука нет.
Одно важное замечание: Т.к. используешь звуковые файлы из вложенной папки (Music), то пути прописывай сокращенно:

MP1.FileName:='/Music/qqq.mp3';

Здесь первый слеш / показывает, что путь идет из места, где находится ЕХЕ.

P.S.: В таком случае объясни, что значит рестарт музыки?

[KORT]

Под словом рестарт, я понимаю так: в программе играет музыка может секунд 10, затем она заканчивается, и как только она закончилась мне надо чтобы она заиграла вновь.

[Alex21]

За таймер цепляй:

if Mp1.Position >= Mp1.Length then 
MP1.Position:=0;

[KORT]

Какая-то ерунда получается, посмотри программу может яснее станет, а вечерком напишешь. оК??

[ZhekON]

если у тебя не хочет играть музыка по второму кругу, то я придлагаю создать какуюто переменную типа String и в неё сохранять путь к файлу который воспроизводится должэн
на тот жэ таймер пишы :
if Mp1.Position >= Mp1.Length then
MP1.Position:=0;
MP1.stop;
MP1.filename:=переменная с именем;
MP1.Play;

[KORT]

Сейчас проверю, но кажется, что ничего не получится.

[KORT]

Говорит программа мне: "НЕ ХОЧУ Я РАБОТАТЬ!!!!!!"
Больше вариантов нет?