Помогите Mpeg2!!!!!! [D7, WinXP]
Andrey.Ru © (2006-03-19 18:11:00)
Мастера!!! Help...
Мне необходимо в своей программе узнать продолжительность
mpeg2 фильма... ТОЛЬКО продолжительность "мин:сек".. Если кто знает
как это сделать прошу ответить...
Спасибо...
Andy BitOff (2006-03-19 18:57:00) [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. Но, наверное, есть и другие способы
Наверх 
ЧАТ |
Орешник |
|
