[cadil]

В типовой набор инструментов Delphi входит видеоплеер, который работает с avi-файлами. А как организовать работу плеера, чтобы он видел и воспроизводил mpeg2 без предварительной конвертации в avi? Спасибо!

[<<D>>]

Найди и Скачай компонент DSPack. Он читает почти все форматы видео, в том числе и DVD-Video.
P.S. Помоему TMediaPlayer читает mpeg2

[lmikle]

Поставить соотв. кодек. Дело в том, что этот медиаплеер является "оберткой" над системным плеером и поддерживает все то, что и системный.

Можно отказаться от собственно TMediaPlayer и написать свой на DirectX (там для собственно проигрывания нужно всего строк 10 кода).

[cadil]

Сообщение от lmikle

Поставить соотв. кодек. Дело в том, что этот медиаплеер является "оберткой" над системным плеером и поддерживает все то, что и системный.

Можно отказаться от собственно TMediaPlayer и написать свой на DirectX (там для собственно проигрывания нужно всего строк 10 кода).

Я, похоже, был неправ. Выбор avi-файла определяет процедура DimAvi:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

// возвращает размер изображения AVI файла procedure DimAvi(f: string; var w,h: integer); var     fst: TFileStream;     // структуру заголовка AVI файла можно     // найти, например, в  ..\CBuilder\Include\aviriff.h     header: record         RIFF: array[1..4] of char;    // 'RIFF'         nu1:  array[1..5] of LongInt; // не используеися (в данном случае)         AVIH: array[1..4] of char;    // 'avih'         nu2:  array[1..9] of LongInt; // не используеися (в данном случае)         Width:  LongInt;         Height: LongInt;     end; ....  OpenDialog.Title := 'Выбор клипа';     if not OpenDialog.Execute       then exit;       DimAvi(OpenDialog.FileName,width,height); ....

А как написать (или где можно найти) процедуру, чтобы задать mpeg2 или любой другой формат? Заранее спасибо!