|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.12.2006, 11:22 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
info video - получить информацию о видео файле
подскажите как получить информацию о видео файле (avi,mpeg, wmv и т.д.)
Пишу на Delphi за еду
|
04.12.2006, 17:02 | #2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,530
|
Получить информацию о видео-файле: разрешении видео, продолжительность видио, битрейт видио, не используя TMediaPlayer?
uses AVIFile32; ... procedure TForm1.Button1Click(Sender: TObject); const fnAvi : string = 'D:\Video\Event Horizon.avi'; // имя avi-файла var hAvi : PAVIFile; infoAvi : TAVIFileInfo; r : real; begin AVIFileInit; // иниц. API AVIFileOpen (hAvi, PChar(fnAvi), OF_READ, nil); // открытие файла AVIFileInfo (hAvi, infoAvi, SizeOf(infoAvi)); // получение информации о видео файле AVIFileRelease (hAvi); // закрытие видеофайла AVIFileExit; // закрытие API with ListBox1.Items, infoAvi do begin Clear; Add('Streams count: ' + IntToStr(dwStreams)); Add('Width: ' + IntToStr(dwWidth)); Add('Height: ' + IntToStr(dwHeight)); Add('FPS: ' + IntToStr(Round(dwRate/dwScale))); Add('Length: ' + TimeToStr(dwLength/(dwRate/dwScale) / SecsPerDay)); if dwEditCount <> 0 then Add('Edit count: ' + IntToStr(dwEditCount)); if dwMaxBytesPerSec <> 0 then Add('Max BPS: ' + IntToStr(dwMaxBytesPerSec)); if dwSuggestedBufferSize <> 0 then Add('Suggested buffer size: '+IntToStr(dwSuggestedBufferSize)); Add('File type: ' + szFileType); end; end; Модуль AVIFile32 - |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как узнать информацию о PE файле | Smoke | Win Api | 5 | 02.10.2007 13:10 |
поток, который по завершению (Terminate) передает в основную форму информацию о файле | 1Andrey1 | Общие вопросы Delphi | 5 | 10.09.2007 19:40 |
Как прочесть txt файл www.site.ru/info.txt | BR17UY | Работа с сетью в Delphi | 1 | 16.04.2007 13:01 |
Работа с DVD-Video | Vasya | Софт | 1 | 20.03.2007 20:55 |