Помощь - Поиск - Пользователи - Календарь
Полная версия: Проигрывания 3gp
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Klose
Можно ли сделать так, чтобы MediaPlayer проигрывал 3gp формат, без использования сторонних библиотек(если вообще таковые есть)?
Altair
Нету даже кодеков для видновс медиа плееера ...
Klose
Жалко, очень жалко. mega_chok.gif
Malice
Вот здесь посмотри:

http://www.darklegion.ru/modules.php?name=...ew_file&lid=134
Klose
Кодек то у меня есть и все играет, но мне нужно, чтобы моя прога читала этот формат.
Bill Gates
Читать можно и при помощи стандартных компонентов, лишь бы были кодеки.
Но дело в том, что компонент 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.
Klose
Хм, интересненько, надо попробывать, спасиб.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.