WMV-Dauer ermitteln

[stahli]

Hallo zusammen,

ich lasse díe User über Buttons WMV-Videos abspielen: ShellExecute(Handle, 'open', PChar(ClipName), '', '', SW_NORMAL);
Nun möchte ich vorher die Clipdauer im Button-Hint anzeigen.

Wie kann ich die am einfachsten ermitteln?

[mkinzler]

Dazu müsstest du die Metadaten der Datei auswerten
http://www.codeproject.com/KB/audio-...ataReader.aspx

[stahli]

Gibt es auch eine Lösung für Delphi?
Ich finde auch im Netz keinen Ansatz...

[stahli]

*push*

[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

[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!