[cadil]

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

[<<D>>]

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

[lmikle]

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

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

[cadil]

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

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

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

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

Код:

// возвращает размер изображения 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 или любой другой формат? Заранее спасибо!