IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Проигрывания 3gp, Стандартными средствами
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской

Репутация: -  0  +


Можно ли сделать так, чтобы MediaPlayer проигрывал 3gp формат, без использования сторонних библиотек(если вообще таковые есть)?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Мужской

Репутация: -  0  +


Читать можно и при помощи стандартных компонентов, лишь бы были кодеки.
Но дело в том, что компонент MediaPlayer распознает тип файла по расширению, и 3gp, по его мнению, на самом деле .mpg.
Т.е. чтобы играть файлы, нужно сначала создавать временную копию исходного файла .3gp с расширением .mpg, а потом играть его.
Вот код события OnCanClose для OpenDialog (предположим, мы имя файла получаем из него):
procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
CopyFile(PAnsiChar(OpenDialog1.FileName),'C:\My3gpPlayerTemp.mpg',true);
MediaPlayer1.FileName:='C:\My3gpPlayerTemp.mpg';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;


При закрытии формы нужно удалять временный файл процедурой DeleteFile.

зы. Для воспроизведения нужны кодеки , у меня стоит KLite Codec Pack 1.52.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 22:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name