Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/46: Рейтинг темы: голосов - 46, средняя оценка - 4.67
 Аватар для mpdasa
5 / 5 / 1
Регистрация: 18.01.2010
Сообщений: 136

Как в плеере файл проигрывать по кругу?

13.11.2010, 13:48. Показов 8712. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На форме есть медиаплеер.
Написал, код, чтобы проиграть файл.

Delphi
1
2
3
MediaPlayer1.FileName := 'd:\01.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
Но плеер играет файл только один раз. Как сделать, чтобы файл проигрывался по кругу?
И как писать код, чтобы нажимать кнопки проигрывателя програмно?

Спасибо, Владислав
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.11.2010, 13:48
Ответы с готовыми решениями:

Как в Qt проигрывать файл в консоли?
Написал программку, которая проигрывает из каталога Windows файл, но в Qt не работает. Выдаёт ошибку: // KOMnU7UTCR B Borland...

Музыкальный файл проигрывать в определенное время, как?
Музыкальный файл проигрывать в определенное время, как?

Как в скрипте указать какой именно файл нужно проигрывать?
Здравствуйте, подскажите пожалуйста есть мячик и он реагирует на столкновение с другимим обьектами , такой вопрос как в скрипте указать...

5
 Аватар для Romantik_FM
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
13.11.2010, 14:33
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
var
Files: TStringList;
Number: Integer;
MRepeat: Boolean;
 
procedure TForm1.FormCreate(Sender: TObject);
var
MFile: TSearchRec;
Path: String;
begin
Path := '(* Здесь указать путь к директории с файлами *)';
Files := TStringList.Create;
MediaPlayer1.Notify := True;
MediaPlayer1.OnNotify := NotifyProc;
if FindFirst(Path+'*.mp3',faAnyFile,MFile)=0 then
repeat
Files.Add(Path+MFile.Name);
until FindNext(MFile)<>0;
FindClose(MFile);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
//при нажатии на кнопку Button1 
//начнется воспроизведение первой песни
// из каталога
begin
MediaPlayer1.FileName := Files.Stringd[0];
Number := 0;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
 
procedure TForm1.NotifyProc(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
case Mode of
mpStopped: begin
if Number < Files.Count -1
then begin
Inc(Number);
MediaPlayer1.FileName := Files.Strings[Number];
MediaPlayer1.Open;
MediaPlayer1.Play;
end else 
if MRepeat then begin
Number := 0;
MediaPlayer1.FileName := Files.Strings[Number];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;
end;
Notify := True;
end;
end;
 
procedure TForm1.Button2OnClick(Sender: TObject);
//Установка повторения
begin
MRepeat := True;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
Files.Free;
end;
0
 Аватар для mpdasa
5 / 5 / 1
Регистрация: 18.01.2010
Сообщений: 136
13.11.2010, 17:41  [ТС]
пример у меня не пошёл. При компиляции выдаёт ошибку в строке MediaPlayer1.FileName := Files.Stringd[0];E2003 Undeclared identifer: 'Files'. Та же ошибка и с MRepeat и NotifyProc.
Я не понял, куда надо вписывать строки, начиная с:
procedure TForm1.NotifyProc(Sender: TObject); Я думал, что Form1.Events, на там не нашёл OnNotify...
Выручите. И это действительно самый простой способ просто повторить трек?

У меня есть такие строки:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.FileName := ExtractFileDir(Application.ExeName) + '\2ca.mp3';
MediaPlayer1.Open;
 
Может сюда можно дописать что-то типа MediaPlayer1.Повтор (или сначала)
Может цикл какой-то можно, если не играет, то играть?
 
end;
0
 Аватар для Romantik_FM
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
13.11.2010, 18:14
Цитата Сообщение от mpdasa Посмотреть сообщение
Может цикл какой-то можно, если не играет, то играть?
Именно иак и нужно сделать))
1
 Аватар для mpdasa
5 / 5 / 1
Регистрация: 18.01.2010
Сообщений: 136
13.11.2010, 19:07  [ТС]
А как? Простите за такие примитивные вопросы. Когда стану компьютерным гением (если стану), то подобные вопросы задавать прекращу. А пока терпите, и будьте снисходительны.
0
1 / 1 / 0
Регистрация: 01.12.2011
Сообщений: 9
22.03.2012, 15:49
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
  if NotifyValue=nvSuccessful then
    begin
    Notify:=True;
    Play;
    end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.03.2012, 15:49
Помогаю со студенческими работами здесь

Как проигрывать .wav файл на страничке при использовании Internet Explorer 9
Доброго времени суток. Есть необходимость проигрывать .wav файл на страничке при использовании Internet Explorer 9. Так как данный...

MediaPlayer: циклически проигрывать заданный по умолчанию файл
Скажите пжл как зделать в MediaPlayer, чтоб заданный по умолчанию файл проигрывался все время, не используя никаких кнопок. В среде...

Обработчик, срабатывающий когда winmm.dll заканчивает проигрывать файл
пол дня бьюсь, не могу отловить или найти необходим обработчик, срабатывающий при завершении проигрывания файла ...

Как проигрывать mp3 на C#?
I don't know how to play mp3 sound please help me!!!???

Как проигрывать музыку?
Нужно, чтобы, допустим, при нажатии кнопки, проигрывалась музыка из файла, а лучше из ресурсов. Насколько я знаю, с mp3 много заморочек,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru