Текущий архив: 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