Как оперделить размеры кадра в видеофайле?

[froggy]

Собственно, сабж.
Есть видеофайл, нужно определить какие в этом файле размеры кадра (ширина и высота)

[Ozerich]

Если файл Avi то подожди счас напишу код

[froggy]

avi, mpeg, wmv...
Пиши для AVI

[Ozerich]

uses vfw;
var
 hAvi    : PAVIFile;
 infoAvi : TAVIFileInfo;
filename:string;
begin
FileName :='1.avi';
 Try
  // инициализация и открытие файла
  AVIFileInit; // иниц. API
  AVIFileOpen (hAvi, PChar(filename), OF_READ, nil); // открытие файла
  // Информация взятая из заголовка
  AVIFileInfo (hAvi, infoAvi, SizeOf(infoAvi)); // получение инфы
  with InfoAvi do
  begin
      // Размер
      Size.Caption       := IntToStr(dwWidth) + ' x ' +  IntToStr(dwHeight);
  end;

  // все выгружаем и закрываем
  AVIFileRelease (hAvi); // закрытие файла
  AVIFileExit; // закрытие API
 except
 end;
end;

если нету Vfw.pas пиши

[froggy]

Vfw.pas нету

[Ozerich]

Радуйся!

[froggy]

hAvi : PAVIFile;

Вот тут ошибку выдает: undeclared identifier

[Ozerich]

Извини я недодал тебе один модуль!