WMV-Dauer ermitteln

[Bummi]

oder so:

Delphi-Quellcode:

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

[stahli]

Zitat von Bummi:

oder so:

Delphi-Quellcode:

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

Funktioniert im Grunde perfekt, Open dauert aber zu lange (1-2 Sek). Da ich mehrere Werte ermitteln will, ist das etwas ungünstig.

Zitat von Neutral General:

In Delphi funktioniert es wahrscheinlich ganz genauso^^
Du musst den Code nur eben nach Delphi übersetzen

Bzw. schau mal hier: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Würde ich ja gern. Ich komme nur damit nicht klar.
Wenn das schneller wäre als die obige Lösung hätte ich schon Interesse...

[stahli]

Zitat von stahli:

Funktioniert im Grunde perfekt, Open dauert aber zu lange (1-2 Sek). Da ich mehrere Werte ermitteln will, ist das etwas ungünstig.

Ups, unter XP (in VM und auf anderem PC) geht das MediaPlayer.Open deutlich schneller als auf meinem Win7 !?
Ich werde es erst mal so belassen, falls jemand mal eine schnellere Lösung findet - immer her damit

[Cylence]

Hi,

in meinem Mediaplayer verwende ich die Mediainfo.dll, damit könnte man das auch machen.

http://www.delphipraxis.net/32578-ve...ainfo-dll.html

gruß

tom

[lbccaleb]

Oder das ganze mit DirectShow! Hab das mal nen test Proggy fertig gemacht, nur ist das vllt auch net die schnellste Variante??!!

Die DirectX Header Dateien von hier werden benötigt!

[stahli]

Ich habe gerade festgestellt, dass es unter Delphi (Debugmodus) sehr langsam läuft (die Debuginfos zeigen mehrfach Thread- und Modusl-Infos an).
Läuft das Programm selbnständig geht es schon schneller.
Ich werde es so belassen, da es als einfachster Weg erscheint.

Die DirectX-Variante funktioniert scheinbar gleichermaßen.

Danke Euch nochmal.

[lbccaleb]

Ich hab die DirectX Version noch einwenig überarbeitet, wenn dir das jetze nicht gefällt, dann weiß ich auch net