Проигрывания 3gp, Стандартными средствами Опции

[Klose]

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

[Altair]

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

[Klose]

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

[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]

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