info video - получить информацию о видео файле

[Toxa]

подскажите как получить информацию о видео файле (avi,mpeg, wmv и т.д.)

[Alar]

Сообщение от Toxa

подскажите как получить информацию о видео файле (avi,mpeg, wmv и т.д.)

Получить информацию о видео-файле: разрешении видео, продолжительность видио, битрейт видио, не используя 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 -