| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как узнать частоту кадров у AVI

hh_speed ©   (2006-02-21 16:48:00) 

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

---

AbrosimovA   (2006-02-27 15:24:00) [1]

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;

---

zxcv   (2006-02-22 14:46:00) [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

---

NailMan   (2006-02-22 00:28:00) [3]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1138619267&n=7

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

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

---

Наверх