Replay for MediaPlayer

[Ermiss]

У меня возник 3 вопросец, как мне можно сделать так, чтобы проигрыватель в Делфи повторял avi файл без пауз бесконечное кол-во раз? пытался сделать через Timer, но подогнать время не удается, да и не то все это. Может есть кака команда для этого? Подскажите...

[mihali4]

У MediaPlayer есть куча подходящих свойств и методов.
Например, TrackPosition.
Тыркаем мышкой на MediaPlayer на форме и жмем пимпу F1.
И изучаем. Это самый лучший метод самосовершенствования...

[Ermiss]

Михалыч, я посорел Хелп для Медиаплеера, и этот Позишн, но ты бы не мог мне написать конкретно код для организации реплея! Плисссс.... я в английском не особо силен, а там все на англиском.

[mihali4]

Мы помогаем, а не пишем за других.
Вот еще подсказка - TrackLength - длина трека.
Как нетрудно догадаться, TrackPosition - текущая позиция в треке.
Еще проще догадаться, что когда они сравняются, то это и будет конец проигрывания и можно перемотать назад и запустить снова.

[Ermiss]

Ну Михалыч!!! Ну дай код, у мня щас нету времени на разбор загадок, мне проста надо сделать реплей для моей заставки в форме и все!

[AlDelta]

...у мня щас нету времени на разбор загадок, мне проста надо сделать...

Если так пойдет и дальше загадок будет еще больше.

Попробуй использовать это:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;

[Ermiss]

Сообщение от AlDelta

Если так пойдет и дальше загадок будет еще больше.

Попробуй использовать это:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;

Вот спасибо, все получилось!