Laufzeit von mehreren Video-Dateien auslesen (Addieren)

[thomas2009]

Hallo

ich habe mehrere Videos (avi) in einem Ordner
Ich möchte mit einem Code wissen, wie lang insgesamt ist die Laufzeit aller Videos.

[Bummi]

IMHO am unaufwändigsten

Delphi-Quellcode:

Mediaplayer1.TimeFormat := tfMilliseconds;
Mediaplayer1.Open;
Showmessage(FormatDatetime('hh:nn:ss', Mediaplayer1.Length / 1000 / (24*60*60)));

http://www.delphipraxis.net/157931-w...ermitteln.html

[thomas2009]

Ich bekomme : 00:00:00 !

[Bummi]

jepp, sorry ich habe WMA und AVI verwürfelt...

[lbccaleb]

Also,der verlinkte Thread beinhaltet einen Code, mit dem sollte es ohne Probleme möglich sein....

Edit:

Richtig ist das:

http://www.delphipraxis.net/1079162-post12.html

[thomas2009]

Das Demo dort fordert die Units DirectDraw und DirectShow

Gibt es nicht was einfaches ?
Ich möchte die Zeitdauer einer Video-Datei in Sekunden anzeigen lassen

Delphi-Quellcode:

{$R *.dfm}
function gettimefromfile(FileName: String): Double;
var
  Duration:  Double;
  wFileName: PWideChar;

  begin;
    ClearDirectShow;
    Result := 0;

    wFileName := StringToOleStr(FileName);
    try
      hr := CoCreateInstance(CLSID_MediaDet, nil, CLSCTX_INPROC, IMediaDet, MediaDet);
      if (hr <> S_OK) then
        begin
          ShowMessage('(Error Code : ' + inttohex(hr, 8) + ')');
          ClearDirectShow;
          Exit;
        end;

     hr := MediaDet.put_Filename(wFileName);
      if (hr <> S_OK) then
        begin
          ShowMessage('(Error Code : ' + inttohex(hr, 8) + ')');
          ClearDirectShow;
          Exit;
        end;

     hr := MediaDet.get_StreamLength(Duration);
      if (hr <> S_OK) then
        begin
          ShowMessage('Konnte die Länge nicht aus der Datei lesen');
          ClearDirectShow;
          Exit;
        end;
     result := duration;

    finally
      SysFreeString(wFileName);
    end;
    ClearDirectShow;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Time: double;
begin

  if opendialog1.Execute then
    begin;
      Time := gettimefromfile(opendialog1.FileName);
      if Time > 0 then
        Label1.Caption := 'Länge: ' +  FormatDatetime('hh:nn:ss', Time / {One_Second /} (24*60*60))
      else
        Label1.Caption := 'Länge: Datei auswählen'
    end;
end;

[wicht]

Du wirst vermutlich immer DirectShow oder eine Decoder-Bibliothek brauchen. Vielleicht gibt es auch Dateiformate, bei denen man die Länge aus dem Header auslesen kann. Einfacher werden diese Methoden aber wohl alle nicht sein. Es gibt eben nicht für alles einen Einzeiler...

[lbccaleb]

Zitat:

Zitat von thomas2009 (Beitrag 1085360)

Gibt es nicht was einfaches ?

Die Lösung auf diese Frage wurde bereits in Beitrag 2 beantwortet. Liest du die dir gegebenen Hilfestellungen eigentlich auch durch?

Oder lässt du die Leute hier aus Spaß posten und machst dir daraus nen Joke?

[Bummi]

Zitat:

Die Lösung auf diese Frage wurde bereits in Beitrag 2 beantwortet. Liest du die dir gegebenen Hilfestellungen eigentlich auch durch?

wurde leider falsch von mir beantwortet wie #3 zeigt.

[himitsu]

Klar geht das Ganze auch ohne irgendeine große Lib.

Du mußt dir nur die Spezifikationen der entsprechenden Dateiformate ansehn, die Dateien manuell "parsen" und dir die gewünschten Infos dort rausziehen.