VisualBasic Über Windows Media Player MP3 Länge auslesen

[Dejay]

Also ich habe folgendes Problem...
Ich hab eine sammlung von MP3 files und von denen Möchte ich einzelnd die dauer auslesen, da bin ich auf die idee gekommen das über den Windows Media Player zu machen.
wenn ich dann den folgenden Code benutze wird mir als länge 0 angezeigt

Dim s As String
        With OpenFileDialog1
            .Filter = "MP3 files|*.mp3"
            .ShowDialog()

        End With

        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        AxWindowsMediaPlayer1.Ctlcontrols.play()
        
        s = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
        MsgBox(s)

ich hoffe mir kann da jmd bei helfen...

 

[Stefan-]

Ohne deinen Code im Detail nachzuvollziehen:

http://www.activevb.de/tipps/vb6tipps/tipp0331.html

Da gibt es die Lösung für VB6 in den Kommentaren.

http://www.visual-basic5.de/vbclassic/dezem04/quartzdl.htm

Das ist ebenfalls eine Lösungsmöglichkeit.

http://forums.devshed.com/visual-basic-programming-52/getting-mp3-duration-547121.html

Und hier gibt es eine Lösung mit mci.

 

[Dejay]

naja aber die Ganzen sachen funktionieren in vb2008 nicht mehr so wie es sein sollte....

 

[Stefan-]

Also reden wir hier nicht über Visual Basic, sondern VB.Net 2008? Okay, das macht es sogar einfacher:

http://www.id3.org/Implementations

Schau mal unter .net Libraries. Ansonsten kannst du das hier benutzen:

http://forum.vb-paradise.de/allgeme...torials/multimedia/19402-mp3-laenge-auslesen/

 

[Dejay]

Diesen Script von vb paradise hab ich auch schon ausprobiert jedoch wird auch hier nur eine 0 als ergebniss ausgegeben...

 

[Stefan-]

Was ist mit den Implementations?
Hast du dir die Methoden dort einmal angesehen?
Was für eine Mp3 legst du zu Grunde?
Welche Bitrate hat diese bzw. ist die Bitrate konstant oder variabel?
Die Berechnung der Bitrate ohne mci kann anhand einer einfachen Formel vorgenommen werden. Welche Werte enthalten die einzelnen Teile der Formel?

 

[schmidmi]

Hast du es mal so versucht?

MediaPlayer1.Filename = "C:\test.mp3"

Dim Sekunden As Integer
Sekunden = Int(MediaPlayer1.Duration)