Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.45 MB
Время: 0.057 c
3-1152192063
mefisto
2006-07-06 17:21
2006.09.10
"Наглядный" SQL Запрос : )


15-1155654600
Parus
2006-08-15 19:10
2006.09.10
HTML


15-1155792416
vidiv
2006-08-17 09:26
2006.09.10
webmoney в инет-магазине.


3-1151661967
MsGuns
2006-06-30 14:06
2006.09.10
Информация о таблице с помощью sp_help


2-1156101306
Vazelin
2006-08-20 23:15
2006.09.10
Распаковка проги





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский