Länge einer Video-Datei ermitteln

[Steve]

Delphi-Quellcode:

uses 
 VfW; { downloaden! } 

function GetAviLength(aviFN: string): Word; 
var 
  pFile  : PAVIFile; 
  AviInfo: TAVIFILEINFOW; 
begin 
  Result := 0; 
  AVIFileInit; 

  // AVI öffnen
  IF AVIFileOpen(pFile, PChar(avifn), 0, nil) <> 0 THEN
  BEGIN
    AVIFileExit; 
    ShowMessage('Fehler'); 
    Exit; 
  end; 

  // AVI-Informationen auslesen
  if AVIFileInfo(pFile, @AVIINFO, SizeOf(AVIINFO)) = AVIERR_OK then 
  with aviinfo do
  begin 
    // Länge ermitteln
    result := (dwRate div dwScale) * dwLength;
  end; 

  // Aufräumen
  AVIFileRelease(pFile); 
  AVIFileExit; 
end;

Abgewandelt von Torry.

Vollkommen ungetestet!

Gruß
Stephan