Текущий архив: 2006.09.10;
Скачать: CL | DM;

Вниз

как узнать частоту кадров у AVI   Найти похожие ветки 

← →
hh_speed ©   (2006-02-21 16:48) [0]

подскажите как узнать частоту кадров у AVI

---

← →
NailMan ©   (2006-02-22 00:28) [1]

http://delphimaster.net/view/8-1138619267/

и пост №14 в частности

---
P.L.U.R. and WBR, NailMan aka 2:5020/3337.13

---

← →
zxcv   (2006-02-22 14:46) [2]

есть более простой способ

 Player.TimeFormat := tfFrames;
 Fr:=Player.Length;
 Player.TimeFormat := tfMilliseconds;
 Ti:=0.001*Player.Length;
 ShowMessage("F= " + floatToStr(Fr/ti));

P.S. спасибо  http://deeco.h1.ru/cgi-bin/file10.php?text=15#up

---

← →
AbrosimovA   (2006-02-27 15:24) [3]

uses VFW;

var
  hFile : PAVIFile;
  nameFile : array[0..254] of Char;
  infoVStream : TAVIStreamInfo;
  VideoStream : PAVIStream;
  Res: HResult;
begin
if OpenDialog1.Execute then
begin
 StrPCopy(nameFile,OpenDialog1.FileName);
 AVIFileInit;
 Res:=AVIFileOpen (hFile, nameFile, OF_READ, nil); // открытие файла
 if Res<>S_OK then Exit;
 AVIStreamInit;
 Res:=AVIFileGetStream(hFile, VideoStream, streamtypeVIDEO, OF_READ);
 if Res<>S_OK then Exit;
 AVIStreamInfo(VideoStream, @infoVStream, SizeOf(infoVStream));
 with infoVStream do
   Str:="Частота кадров: " + IntToStr(Round(dwRate/dwScale)) + " кадров/сек");
end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.06 c