2 / 2 / 0
Регистрация: 04.07.2015
Сообщений: 45

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

04.07.2015, 02:36. Показов 2656. Ответов 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
33421 / 21527 / 8240
Регистрация: 22.10.2011
Сообщений: 36,935
Записей в блоге: 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
33421 / 21527 / 8240
Регистрация: 22.10.2011
Сообщений: 36,935
Записей в блоге: 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
Ответ Создать тему
Опции темы

Новые блоги и статьи
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru