获取AVI文件持续时间-Java 学习之路

我在WinAPI上使用JEDI包装器的VFW单元 .

我写的代码旨在搜索用户驱动器并检测warez（注意：判断某些文件是否合法超出了此问题的范围） . 我们做MP3，WMA和一些图形文件搜索 . 现在我们要检测非法电影 . 我想打开AVI文件，从中读取一些细节并关闭它 . 我有以下代码：

uses WFV; //from JEDI api wrappers

procedure TForm1.Button1Click(Sender: TObject);
var
  lInfo : TAVIFILEINFOW;
  lFile : IAVIFILE;
  lFileType : string;
  lLenMinutes : integer;
  lFPS : integer;
begin
  {init file}
  AVIFileInit;
  try
    {Open file - note: since we search for warez this is perfely "warezy" file}
    AVIFileOpen(lFile, 'e:\Sideways KLAXXON\Sideways KLAXXON.avi', OF_READ, nil);
    try
      {Get file info} 
      AVIFileInfoW(lFile, lInfo, sizeof(lInfo));
      lFPS:=Round(lInfo.dwRate /lInfo.dwScale);
      lLenMinutes := Round(lInfo.dwLength  / lFPS / 60);
      lFileType := lInfo.szFileType;
      {just for show: prepare some memo to see what we get}
      memo1.Lines.Clear;
      memo1.Lines.Add('File lenght [min]: ' + IntToStr(lLenMinutes));
      memo1.Lines.Add('Width: ' + IntToStr(lInfo.dwWidth));
      memo1.Lines.Add('Height: ' + IntToStr(lInfo.dwHeight));
      memo1.Lines.Add('File type: ' + lFileType);
    finally
      {Closing the file}
      AVIFileRelease (lFile);
      Pointer(lFile) := nil;
    end;
  finally
    {Releasing library}
    AVIFileExit;
  end;
end;

所以lLenMinutes等于98，而电影长约121分钟 . 这是一个巨大的差异 . 我究竟做错了什么？ dwRate是100万，dwScale是40k，所以FPS是25 . dwLength是147k MSDN says：“单位由dwRate和dwScale定义” .

注意：这是follow-up from this question，但由于崩溃问题已经解决，我关闭了另一个问题并在此处移动了改进的内容 .

1 回答

2

MSDN对 AVIFILEINFO 的 dwScale 成员说：

任何流都可以定义自己的时间刻度来取代文件时间刻度 .

你确定这些流不会覆盖 AVIFILEINFO 结构中给出的速率和比例吗？流的速率和比例存储在AVISTREAMINFO结构中 .

回复于 2024-04-28T18:56:14+08:00

获取AVI文件持续时间

1 回答

相关问题