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

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

Продолжительность клипа


vital ©   (2003-05-14 13:42:00) 

Как узнать продолжительность файла .avi не загружая его в плеер
Просто имеються названия файлов и нужно узнать длительность каждого в секундах, типа так как в винампе справа от трека, только для видео. Спасибо заранее.


ProgMan   (2003-05-15 12:42:00) [1]


procedure ReadAVIInfo(FN:String;Var X, Y, C, L: LongInt);
Var
FL:File of Longint;
begin
try
Assign(FL,FN);
Reset(FL);
Seek(FL,$08);
Read(FL,L);
Seek(FL,$0C);
Read(FL,C);
Seek(FL,$10);
Read(FL,X);
Read(FL,Y);
Close(FL);
except
X:=0;
Y:=0;
C:=0;
L:=0;
end;
end;


X ширина в пикселях
Y высота в пикселях
C количество кадров
L длина кадра (вроде, в микросекундах)


NailMan   (2003-05-15 10:07:00) [2]

Если не влом писать потрошилку заголовков видеофайлов, то найди описание нужных форматов и клавиатура в руки. Подробное описание формат AVI(RIFF) можно найти в DirectX SDK. По другому никак.


Наверх

Титульная страница Поиск, карта сайта Написать письмо