find *.Avi width+height

Dum metode: tag screenshot af filmen, og behandl\' den i et billedprogram, hvor du så kan se w/h!

/vh
Simon

Er der forresten nogen som ved hvordan man bestemmer at alle bogstaver i en string shal være små?

a := lowercase (a)

hvor a er en string

Læg en TMemo, TButton og TOpenDialog på en form, og lav flg. OnClick:

procedure TForm1.Button1Click(Sender: TObject);
type
  TMainAVIHeader = record
    dwMicroSecPerFrame: DWORD;
    dwMaxBytesPerSec: DWORD;
    dwReserved1: DWORD;
    dwFlags: DWORD;
    dwTotalFrames: DWORD;
    dwInitialFrames: DWORD;
    dwStreams: DWORD;
    dwSuggestedBufferSize: DWORD;
    dwWidth: DWORD;
    dwHeight: DWORD;
    dwScale: DWORD;
    dwRate: DWORD;
    dwStart: DWORD;
    dwLength: DWORD;
  end;
var
  AVIStream: TFileStream;
  MainAVIHeader: TMainAVIHeader;
  MainAVIHeaderLength: Integer;
begin
  if OpenDialog1.Execute then
  begin
    AVIStream := TFileStream.Create(OpenDialog1.FileName, OF_READ);
    try
      // Skip \'RIFF\' (file length) \'AVI \'
      AVIStream.Seek(12, soFromBeginning);
      // Skip \'LIST\' (list length) \'hdrl\'
      AVIStream.Seek(12, soFromCurrent);
      // Skip \'avih\'
      AVIStream.Seek(4, soFromCurrent);
      // avih length
      AVIStream.Read(MainAVIHeaderLength, 4);
      Memo1.Lines.Add(\'avih length: \' + IntToStr(MainAVIHeaderLength div 4));
      AVIStream.Read(MainAVIHeader, MainAVIHeaderLength);
      Memo1.Lines.Add(\'Width:  \' + IntToStr(MainAVIHeader.dwWidth));
      Memo1.Lines.Add(\'Height: \' + IntToStr(MainAVIHeader.dwHeight));
    finally
      AVIStream.Free;
    end;
  end;
end;