Скачать: CL | DM;

Помогите 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.025 c