Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2007, 23:42   #1
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
По умолчанию Replay for MediaPlayer

У меня возник 3 вопросец, как мне можно сделать так, чтобы проигрыватель в Делфи повторял avi файл без пауз бесконечное кол-во раз? пытался сделать через Timer, но подогнать время не удается, да и не то все это. Может есть кака команда для этого? Подскажите...
Ermiss вне форума Ответить с цитированием
Старый 02.11.2007, 00:09   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

У MediaPlayer есть куча подходящих свойств и методов.
Например, TrackPosition.
Тыркаем мышкой на MediaPlayer на форме и жмем пимпу F1.
И изучаем. Это самый лучший метод самосовершенствования...
mihali4 вне форума Ответить с цитированием
Старый 02.11.2007, 00:15   #3
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
По умолчанию

Михалыч, я посорел Хелп для Медиаплеера, и этот Позишн, но ты бы не мог мне написать конкретно код для организации реплея! Плисссс.... я в английском не особо силен, а там все на англиском.
Ermiss вне форума Ответить с цитированием
Старый 02.11.2007, 00:19   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Мы помогаем, а не пишем за других.
Вот еще подсказка - TrackLength - длина трека.
Как нетрудно догадаться, TrackPosition - текущая позиция в треке.
Еще проще догадаться, что когда они сравняются, то это и будет конец проигрывания и можно перемотать назад и запустить снова.
mihali4 вне форума Ответить с цитированием
Старый 02.11.2007, 00:24   #5
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
По умолчанию

Ну Михалыч!!! Ну дай код, у мня щас нету времени на разбор загадок, мне проста надо сделать реплей для моей заставки в форме и все!
Ermiss вне форума Ответить с цитированием
Старый 02.11.2007, 00:48   #6
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
Подмигивание Мы помогаем, а не пишем за других.

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

Попробуй использовать это:
Код:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума Ответить с цитированием
Старый 02.11.2007, 00:55   #7
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
По умолчанию

Цитата:
Сообщение от AlDelta Посмотреть сообщение
Если так пойдет и дальше загадок будет еще больше.

Попробуй использовать это:
Код:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify := True;
Play;
end;
end;
Вот спасибо, все получилось!
Ermiss вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MediaPlayer и mp3 ale_krolik Мультимедиа в Delphi 5 29.05.2009 22:39
Mediaplayer anton14 Мультимедиа в Delphi 12 20.10.2008 11:07
Mediaplayer RealSHELS Общие вопросы Delphi 3 12.05.2008 16:44
Mediaplayer.... ZhekON Компоненты Delphi 13 19.02.2007 19:32
MediaPlayer PAVEL315 Общие вопросы Delphi 1 10.02.2007 16:05