Länge einer Video-Datei ermitteln

[Tubos]

Könntest du den Code hier posten für andere die dasselbe Problem haben?

edit:
es ist nicht wirklich intelligent seine emailadresse in nem öffentlich zugänglichen forum zu posten, die bots der spamversender finden das garantiert
denselben fehler habe ich auch einmal gemacht und dann massig spam bekommen
--> emailadresse löschen müssen :mrgreen:

[k0aru]

jetzt besser :P

[Master_BB]

heya,
mich würde auch mal interessieren wie ich die informationen der Microsoftwebsite der AVIFileinformationen verwerten kann.

Delphi-Quellcode:

typedef struct { 
    DWORD dwMaxBytesPerSec; 
    DWORD dwFlags; 
    DWORD dwCaps; 
    DWORD dwStreams; 
    DWORD dwSuggestedBufferSize; 
    DWORD dwWidth; 
    DWORD dwHeight; 
    DWORD dwScale; 
    DWORD dwRate; 
    DWORD dwLength; 
    DWORD dwEditCount; 
    char  szFileType[64]; 
} AVIFILEINFO;

da wird dort aufgeführt. OK aber wie kann ich diese jetzt in meinem programm nutzen? welche unit muß ich dafür
einbinden? shellapi?
wie würde die verwendung gehen? die haben dort keine parameter oder so genannt.
kann ja nicht einfach sagen AVIBildBreite := dwWidth(pfad)

[franktron]

Hier ist das prog.

[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

[Garfield]

Hallo,

ich will auch die Länge von Videos bestimmen. Für AVI scheine ich in diesem Thread die Lösung gefunden zu haben. Man bekommt die Informationen also aus dem Header.

Bei MPEG ist es allerdings nicht so einfach. Das ist ein Streamingformat und man muss die Frames zählen. Im Gleitz|Doom9-Forum wurden dafür zwei Beispielprogramme genannt: MPEGWALK von LigH und Mpeg2Schnitt von Martin Dienert. Von beiden sind die Sourcen verfügbar.

http://forum.gleitz.info/showthread.php?t=14159
http://www.mdienert.de/mpeg2schnitt - Ist im Moment wohl nicht erreichbar, vielleicht Trafficgrenze erreicht?

[scp]

Ich habe ein Programm geschrieben, das Infos aus allen geläufigen Video-Formaten (10-15 Stück) rauszieht. Werde es mal bei Gelegenheit als OpenSource rausgeben. Im Moment hätte das keinen Sinn, weil der ganze Code in einer DLL drinsteckt, die auch noch ein IContextMenu drin hat usw., ist halt ziemlich komplex.

[Steve]

imho sind mpegs prinzipiell auch avis, halt bloß codiert (Stichpunkt Codec).
Speicher mal avis/mpegs unter der jeweils anderen Endung.. solange der entsprechende Codec installiert ist, sollte es imho immer funzen..

Gruß
Stephan

[scp]

Zitat:

Zitat von Steve

imho sind mpegs prinzipiell auch avis, halt bloß codiert (Stichpunkt Codec).
Speicher mal avis/mpegs unter der jeweils anderen Endung.. solange der entsprechende Codec installiert ist, sollte es imho immer funzen..

Das stimmt so nicht. Das man die Endung .avi verwenden kann und umgekehrt .mpg für .avi usw. liegt an der "Intelligenz" des Media Players. Dieser schaut nicht nach der Dateieendung sondern nach dem Inhalt.

[Garfield]

Zitat:

Zitat von Steve

imho sind mpegs prinzipiell auch avis, ...

Stimmt wohl nicht. Meines Wissen haben AVIs Datei- und MPEGs Sequenzheader. Du kannst den Dateien Endungen verpassen, wie Du willst. Denn ein Programm entscheidet anhand der Header, was es damit macht, egal welche Endung die Datei hat.

@scp
Kannst Du zufällig auch die Länge für eine Datei aus dem VirtualDub(Mod)-Frameserver bestimmen?