Major Опубликовано 17 апреля, 2017 Поделиться Опубликовано 17 апреля, 2017 Господа, из-за чего может возникать эта ошибка под Андроидом в программе, написанной на Delphi? Спасибо. Цитата Ссылка на комментарий
0 Модераторы Равиль Зарипов (ZuBy) Опубликовано 18 апреля, 2017 Модераторы Поделиться Опубликовано 18 апреля, 2017 пример кода который вызвал эту ошибку в студию, мы не экстрасенсы Цитата Ссылка на комментарий
0 Major Опубликовано 18 апреля, 2017 Автор Поделиться Опубликовано 18 апреля, 2017 Выяснил, что это TMediaPlayer. На некоторых аудиофайлах вызывает эту ошибку. Причем подавление try-except не помогает. M_FName := TPath.GetDocumentsPath + PathDelim + M1; MediaPlayer1.FileName := M_FName; try MediaPlayer1.Play; except end; Цитата Ссылка на комментарий
0 Модераторы Равиль Зарипов (ZuBy) Опубликовано 18 апреля, 2017 Модераторы Поделиться Опубликовано 18 апреля, 2017 какое расширение имеет аудио файлы? судя по сорсам, вот что поддерживает TMediaPlayer // видео TMediaCodecManager.RegisterMediaCodecClass('.mov', SVMOVFiles, TMediaType.Video, TAndroidVideoCodec); TMediaCodecManager.RegisterMediaCodecClass('.m4v', SVM4VFiles, TMediaType.Video, TAndroidVideoCodec); TMediaCodecManager.RegisterMediaCodecClass('.mp4', SVMP4Files, TMediaType.Video, TAndroidVideoCodec); TMediaCodecManager.RegisterMediaCodecClass('.3gp', SV3GPFiles, TMediaType.Video, TAndroidVideoCodec); // аудио TMediaCodecManager.RegisterMediaCodecClass('.mp3', SVMP3Files, TMediaType.Audio, TAndroidMediaCodec); TMediaCodecManager.RegisterMediaCodecClass('.caf', SVCAFFiles, TMediaType.Audio, TAndroidMediaCodec); Цитата Ссылка на комментарий
0 Major Опубликовано 18 апреля, 2017 Автор Поделиться Опубликовано 18 апреля, 2017 mp3 файл. Часть проигрывает, на парочке дает ошибку. Кстати, MediaPlayer midi тоже проигрывает. Цитата Ссылка на комментарий
0 Rusland Опубликовано 18 апреля, 2017 Поделиться Опубликовано 18 апреля, 2017 2 часа назад, Major сказал: Выяснил, что это TMediaPlayer. На некоторых аудиофайлах вызывает эту ошибку. Причем подавление try-except не помогает. M_FName := TPath.GetDocumentsPath + PathDelim + M1; MediaPlayer1.FileName := M_FName; try MediaPlayer1.Play; except end; Пример такого файла выложите Цитата Ссылка на комментарий
Вопрос
Major
Господа, из-за чего может возникать эта ошибка под Андроидом в программе, написанной на Delphi?
Спасибо.
Ссылка на комментарий
5 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.