Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];
Вниз
Помогите Mpeg2!!!!!! Найти похожие ветки
← →
Andrey.Ru (2006-03-19 18:11) [0]Мастера!!! Help...
Мне необходимо в своей программе узнать продолжительность mpeg2 фильма... ТОЛЬКО продолжительность "мин:сек".. Если кто знает как это сделать прошу ответить...
Спасибо...
← →
Andy BitOff © (2006-03-19 18:57) [1]Могу предложить такой вариант:
uses
..., VfW;
var
pFile: PAVIFile;
AVIStream: PAVIStream;
AviInfo: TAVIFILEINFOW;
...
AVIFileInit;
AVIFileOpen(pFile, PChar(FaleName), 0, nil);
AVIFileInfo(pFile, @AVIINFO, SizeOf(AVIINFO));
AVIFileGetStream(pFile, AVIStream, streamtypeVIDEO, 0);
aLastFrame:=AVIStreamEnd(AVIStream);
FrameRate := AviInfo.dwRate div AviInfo.dwScale;
FrameRate - количество кадров в секунду
aLastFrame - количество кадров
Дальше простая математика.
P.S. Но, наверное, есть и другие способы
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.046 c
