|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Видеоплеер, работа с mpeg2
В типовой набор инструментов Delphi входит видеоплеер, который работает с avi-файлами. А как организовать работу плеера, чтобы он видел и воспроизводил mpeg2 без предварительной конвертации в avi? Спасибо!
|
#2
|
||||
|
||||
Найди и Скачай компонент DSPack. Он читает почти все форматы видео, в том числе и DVD-Video.
P.S. Помоему TMediaPlayer читает mpeg2 Кому я должен - всем прощаю!!!! |
#3
|
|||
|
|||
Поставить соотв. кодек. Дело в том, что этот медиаплеер является "оберткой" над системным плеером и поддерживает все то, что и системный.
Можно отказаться от собственно TMediaPlayer и написать свой на DirectX (там для собственно проигрывания нужно всего строк 10 кода). |
#4
|
|||
|
|||
Цитата:
Я, похоже, был неправ. Выбор 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); .... |