Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
2 / 2 / 0
Регистрация: 04.07.2015
Сообщений: 45

Не воспроизводится mp3 файл с помощью MediaPlayer

04.07.2015, 02:36. Показов 2635. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! Столкнулся с такой проблемой: Программа не хочет воспроизводить mp3 файл, который с ней в одном каталоге. Вот кусок кода
Pascal
1
2
3
4
5
6
7
8
procedure B1_Click(Sender: Object; Args: System.EventArgs);
 
begin
  var Player := new System.Windows.Media.MediaPlayer; 
  Player.Open( new System.Uri('5292302.mp3', System.UriKind.Relative)); 
  Player.Play(); \
 
end;
Причём всё остальное работает как надо.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.07.2015, 02:36
Ответы с готовыми решениями:

Delphi 7 открыть mp3 с помощью MediaPlayer
На сайте нашёл код программы: procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); ...

MediaPlayer, воспроизвести mp3-файл
Как воспроизвести mp3 файл в MediaPlayer ?

MediaPlayer, слишком быстро воспроизводится видео
видео воспроизводится в панели, но видео слишком быстро воспроизводится... почему ? может неправильно сконветировал ?

6
12 / 12 / 10
Регистрация: 24.06.2015
Сообщений: 83
04.07.2015, 18:51
Какую ошибку выдаёт?
0
2 / 2 / 0
Регистрация: 04.07.2015
Сообщений: 45
04.07.2015, 19:10  [ТС]
В том-то и дело, что не выдаёт ошибки, просто при нажатии кнопки ничего не происходит. Вот полный код
Pascal
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
{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 {$reference 'PresentationCore.dll'}
uses
  System.Windows.Forms,
  System.Drawing;
  
var
  MainForm: System.Windows.Forms.Form;
  B1: System.Windows.Forms.Button;
 
procedure B1_Click(Sender: Object; Args: System.EventArgs);
begin
  var Player := new System.Windows.Media.MediaPlayer; 
  Player.Open( new System.Uri('C:/Pascal/5292302.mp3', System.UriKind.Relative)); 
  Player.Play(); 
 
end;
  
begin
  B1 := new Button; 
  B1.Location := new System.Drawing.Point(100, 110); 
  B1.Text := 'Кнопка'; 
  B1.Click += B1_Click; 
 
  MainForm := new Form;
  MainForm.Text := 'Нажмите кнопку';
  
  MainForm.Controls.Add(B1); 
  
  Application.EnableVisualStyles; 
  
  Application.Run(MainForm);
end.
Добавлено через 5 минут
Player.Open( new System.Uri('5292302.mp3', System.UriKind.Relative));

На деле, вот этот путь, я код скидывал, пытался проверить на другом компьютере
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33400 / 21510 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
04.07.2015, 19:45
Лучший ответ Сообщение было отмечено Vortex___ как решение

Решение

Непонятно. Прекрасно работает этот код, если mp3 лежит в той же папке, что и EXE-файл (а EXE - там же, где исходник, а не там, куда его по умолчанию засовывает PABC.NET при включенной галке "Выходные файлы генерировать в папку:" в настройках).
1
2 / 2 / 0
Регистрация: 04.07.2015
Сообщений: 45
04.07.2015, 19:48  [ТС]
Хм, у меня отказывается воспроизводить, сколь угодно тыкай на кнопку. Я уже и на другие компьютеры скидывал, и менял - всё равно не пашет
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33400 / 21510 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
04.07.2015, 19:53
Еще раз: проверил, куда генерируется EXE-файл?
0
2 / 2 / 0
Регистрация: 04.07.2015
Сообщений: 45
04.07.2015, 19:54  [ТС]
Да, я идиот ^^

Спасибо большое!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.07.2015, 19:54
Помогаю со студенческими работами здесь

Не воспроизводится mp3 - Param is null
Здравствуйте! Делаю один мидлет, чтобы воспроизводил mp3-файлы. Так сразу же проблемы - если играть файл изнутри jar-ника таким...

Запись MP3 в MediaPlayer
Задача: Нужна программка для записи MP3-файлов. Запись должна производится в течении суток и если файл превышает 100 Мб, текущий должен...

Проигрывание mp3 без использования сторонних программ и АктивХ MediaPlayer
Добрый день, гуру экселя. Помогите решить проблему. На листе - в ячейке B6 - находится ссылка на mp3 файл. Как проиграть файл mp3...

Не воспроизводится видео или музыка по щелчку на "play" в элементе MediaPlayer (RAD 2010)
Здравствуйте! Возникла небольшая проблема. Есть элемент MediaPlayer, который воспроизводит разные форматы (видео и аудио), есть элемент...

Необходимость запустить по ссылке MediaPlayer для воспроизведения MP3 с моего сайта
Я только учусь создавать WEB страницы и у меня возникла необходимость запустить по ссылке MediaPlayer для воспроизведения MP3 с моего...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru