Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Проигрывания 3gp

Автор: Klose 19.06.2006 0:12

Можно ли сделать так, чтобы MediaPlayer проигрывал 3gp формат, без использования сторонних библиотек(если вообще таковые есть)?

Автор: Altair 19.06.2006 0:16

Нету даже кодеков для видновс медиа плееера ...

Автор: Klose 19.06.2006 2:30

Жалко, очень жалко. mega_chok.gif

Автор: Malice 19.06.2006 3:54

Вот здесь посмотри:

http://www.darklegion.ru/modules.php?name=Files&go=view_file&lid=134

Автор: Klose 19.06.2006 15:59

Кодек то у меня есть и все играет, но мне нужно, чтобы моя прога читала этот формат.

Автор: Bill Gates 27.06.2006 1:35

Читать можно и при помощи стандартных компонентов, лишь бы были кодеки.
Но дело в том, что компонент 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 27.06.2006 3:10

Хм, интересненько, надо попробывать, спасиб.