Поиск сообщества

Отчего-то, если задать TMediaPlayer.FileName с расширением "mp4", то уже при запуске приложение валится с сообщением "Unsupported media file". Причем в секции initialization юнита FMX.Media.Win присутствует и при запуске отрабатывает такой оператор: TMediaCodecManager.RegisterMediaCodecClass('.mp4', SVMP4Files, TMediaType.Video, TWindowsMediaCodec); Запускаю под Windows. Файлы *.avi проигрываются без проблем

Я использую TMediaPlayer для воспроизведения видео по кругу и плюс в таймере необходим запуск разных видео файлов по расписанию. Выяснилось следующее - если использовать для запуска нового файла такой код, то периодически программа вываливается из памяти: //в таймере запуск видео с другим именем MediaPlayer1->Stop(); MediaPlayer1->FileName = name; //другой файл MediaPlayer1->Play(); А если запускать новый файл в TMediaPlayer так, то вроде работает и программа не вываливается: //в таймере запуск видео с другим именем MediaPlayer1->Stop(); MediaPlayer1->Clear();//вроде помогло, но надежно ли? MediaPlayer1->FileName = name; MediaPlayer1->Play(); Достаточно ли строки MediaPlayer1->Clear(); чтобы предотвратить возможное вываливание программы из памяти в будущем?

Доброго времени суток! У меня вопрос, если можно объясните пожалуйста: я пишу программу с помощью С++ builder Seattle 10 (версия) для андроид платформы, но возникает проблема с загрузкой AUDIO файлов, в *.apk файл не грузится аудиофайлы. Невозможно изменить playaudiofile коды в sample. Объясните как можно чтобы аудиофайлы грузились в андроид платформы. Спасибо за ответ!

Как узнать что MediaPlayer закончил воспроизведение аудио/видео файла? С 2015 года что-нибудь изменилось?

Здравствуйте! Стоит задача проиграть мелодию из ресурса (на андроиде). На просторах Инета нашел такое решение http://codeverge.com/embarcadero.delphi.firemonkey/tmediaplayer-and-resource-files/1059748 Надо создать класс от TMedia и реализовать там методы (а также класс, производный от TCustomMediaCodec, но до этого я еще не дошел). Я споткнулся на реализации: type TMyResourceMedia = class(TMedia) private FPlayer: JMediaPlayer; JMediaPlayer сидит в модуле Androidapi.JNI.Media.pas, но Delphi его не находит. Надо ли указывать в настройках путь до "C:\Program Files\Embarcadero\Studio\18.0\source\rtl\android\Androidapi.JNI.Media.pas" или до "C:\Program Files\Embarcadero\Studio\18.0\lib\android\release\Androidapi.JNI.Media.dcu" ? Что-то боязно за генофонд Delphi

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

Добрый день, господа! Стоит следующая задача: отловить событие клика на MediaPlayerControl, растянутым на весь экран, чтобы в дальнейшем показать менюшку с паузой, перемоткой и т.д. Вроде задача простая, на я запнулся на том, что у MediaPlayerControl нет события OnClick и подобных, а только события для работы с жестами. Пытался поверх MediaPlayerControl положить TRectangle, но при проигрывании видео MediaPlayerControl сразу же его перекрывает. Никакие BringToFront/SendToBack не помогают. Кто-нибудь сталкивался с подобным?

Добрый день! Пытаюсь побороть странную проблему. Есть задеплоеный звук формата mp3. Есть кнопка, по которой этот звук проигрывается при помощи лежащего на форме медиаплеера. mp.FileName := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetPublicPath, 'beep.mp3'); mp.Play; все гениальное просто, и сколько бы я не нажимал на кнопку - звук проигрывается как в эмуляторе, так и на устройстве. Далее. Есть класс, скажем так - банк медиаплееров. Он создает их динамически: procedure TSoundBank.AddSound(SoundType: TSoundTypes; FileName: String); var mp: TMediaPlayer; i: integer; begin for i := 0 to FSounds.Count-1 do if FSounds[i].Tag = ord(SoundType) then raise Exception.Create('Sound of type TSoundTypes('+IntToStr(Ord(SoundType))+') already added!'); mp := TMediaPlayer.Create(FOwner); // эту и следующую строку я добавил уже потом, попробовав привязать компонент к форме mp.Parent := FOwner; FSounds.Add(mp); mp.FileName := FileName; if mp.Media = nil then raise Exception.Create('Filе format for the file '+FileName+' doesn''t supported!'); mp.Tag := Ord(SoundType); end; И метод, проигрывающий нужный звук. procedure TSoundBank.PlaySound(SoundType: TSoundTypes); var mp: TMediaPlayer; i: integer; begin mp := nil; for i := 0 to FSounds.Count-1 do if FSounds[i].Tag = Ord(SoundType) then mp := FSounds[i]; if mp = nil then raise Exception.Create('Cannot find sound of such type : TSoundTypes('+ IntToStr(Ord(SoundType)) + ')'); if mp.CurrentTime <> mp.Duration then mp.Stop; mp.CurrentTime := 0; mp.Volume := 1; //добавил позже на всякий случай mp.Play; end; Вот этот метод ничего не воспроизводит ни на устройстве, не на виртуалке. Причем нигде не падает, FMedia у MediaPlayer'а заполнен. Отладчик нормально проходит. Надо отметить, что все прекрасно работает если сбилдить под винду. Пробовал динамически создавать родной Android медиаплеер - он нормально работает на устройстве, но почему-то падает на виртуалке. но это уже другой вопрос) Помогите разобраться в тонкостях динамического создания медиплеера, уж очень хочется пользоваться возможностью написать один код под все приложения.

Здравствуйте. Есть видео файл. При использование на форме mediaPlayerControl'а он воспроизводит видео поверх всего. Т.е. если взять TabContol и создать в нём две вкладки - TabItem1 и TabItem2 и в TabItem2 поместить MediPlayerControl с играющим видео, то даже если мы в процессе переключимся на на вкладку TabItem1, видео все равно будет видно. Сам видеоряд состоит из 150 кадров. Размер 600ш на 840в. Т.е. я могу конечно раскадрировать файл. Но что мне потом использовать для адекватного отображения на форме? Я так понимаю что даже BitmapListAnimation мне тут не помощник, ибо, насколько я помню, у него есть свои ограничения на размеры. Так что мне тогда использовать?

Здравствуйте! RoverPad 3w7, Android 4.0.3 Запускаю видео, звук есть, картинки нет... воспроизвожу так procedure TForm1.Button2Click(Sender: TObject); var s: string; begin // s := '/sdcard/publicity/1.mp3'; s := '/sdcard/publicity/video_8.mp4'; if FileExists(s) then begin ListView1.Items.Add.Text := s; MediaPlayer1.FileName := s; // '/sdcard/publicity/video_8.mp4'; MediaPlayer1.Play; end else ListView1.Items.Add.Text := 'File not Found'; end; Эта проблема как-то решается? И с чем это связано? Думал проблема в кодеках... Установился VPlayer и VPlayer COdec Arm7. Видео через другие плееры воспроизводятся... Но картинка так и не появилась... Прошу подскажите как с этим бороться? Спасибо

Какаято странная получается история. Не могу стабильно заставить работать приложение для Android при использовании TMediaPlayer. Создаю простое приложени: на форму кидаю Tmediaplayer, TTimer, в само андроид устройство заливаю два небольших mp4 файлика (по отдельности проверил mediaplayer их нормально воспроизводит). Задача така поочереди их воспроизводить. В теле таймера простенький код: 1) Проверяем состоянеи плеера, если плер играет то выходим 2) Если плеер закончил играть, посылаем команду стоп, затем команду clear, изменяем filename на другое, пытаемся запустить 2 видео и ... бац ошибка. В xe6 такой код работал на ура, в хе7 ерунда какаято. П.С. еще бажина: создаем 3 медиаплеера, каждому задаем пути до разных файлов, и после компиляции сразу бабац ошибка. может у меня карма плохая, может ктонибуть написать приложение самое наипростешеей которое позволяло бы прокручивать хотябы 2 медиа файла поочереди. П.С. у когонибуть есть удачный опыт подключения нативного videoview (например из вот этих компонентов D.P.F Delphi Android Native Components). Потомучто цель программы прокручивать без остановки видео, программа пишется за 2 минуты но из за косяков я прям даже не заню что делать. Приму любые дельные советы по поводу проигрывания видео на android.

Доброго времени сутки у меня при вызове запроса сервер возвращает wav файл потоками, как мне собрать обратно из потоков wav файл? у меня аппликаце сделана на ОС Android на десктоп аппликаце все легко там пользуюсь Winapi.Mmsystem и все работает хорошо но Android не знает модуль Winapi.Mmsystem как можно решать эту проблему? заранее спасибо

В стандартных примерах Embarcadero есть пример использования на мобильном устройстве TMediaPlayer. Пример есть и на паскале и на С++. На С++ он тут: C:\Users\Public\Documents\Embarcadero\Studio\14.0\Samples\CPP\Mobile Snippets\VideoPlayback Видео нормально воспроизводится на моем андроид устройстве. Как заставить видео работать в зацикленном режиме? Мне надо чтобы видео играло по кругу. TMediaPlayer может сделать зацикливание при воспроизведении видео? Эта функция есть у всех стандартных плеерах. Спасибо.

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

Существует ли способ растягивания видео до нужных размеров? Если нет, есть ли какой иной компонент под FM для вывода видео с произвольными шириной и высотой?