WMV-Dauer ermitteln

[stahli]

Hallo zusammen,

ich lasse díe User über Buttons WMV-Videos abspielen:

Delphi-Quellcode:

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:

Zitat von Bummi (Beitrag 1078521)

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:

Zitat von Neutral General (Beitrag 1078520)

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

:wink: 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:

Zitat von stahli (Beitrag 1078657)

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!