MP3 länge auslesen

    • Allgemein

      MP3 länge auslesen

      VB NET: MP3 länge auslesen

      VB.NET-Quellcode

      1. Imports System
      2. Imports System.Collections.Generic
      3. Imports System.Text
      4. Imports Shell32
      6. Public Class Form1
      7. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
      8. Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Integer) As Integer
      10. Private Function GetMP3Length(ByVal strFileName As String) As Long
      12. Dim strBuffer As String
      13. Dim lRet As Long
      14. Dim sReturn As String
      16. ' Da die mciSendString Funktion mit langen Dateinamen
      17. ' nicht korrekt arbeitet, muss zuvor der kurze
      18. ' 8.3 Dateiname der MP3-Datei ermittelt werden.
      19. strBuffer = Space$(255)
      20. lRet = GetShortPathName(strFileName, strBuffer, Len(strBuffer))
      22. If lRet <> 0 Then
      23. strFileName = Microsoft.VisualBasic.Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
      24. End If
      26. ' MP3-Datei öffnen
      27. mciSendString("open " & strFileName & _
      28. " type MPEGVideo alias mp3audio", 0, 0, 0)
      30. ' Länge der Datei in Millisekunden auslesen
      31. sReturn = Space$(256)
      32. lRet = mciSendString("status mp3audio length", _
      33. sReturn, Len(sReturn), 0&)
      35. ' MP3-Datei schliessen
      36. mciSendString("close mp3audio", 0, 0, 0)
      38. GetMP3Length = Val(sReturn)
      39. End Function
      41. Private Function FormatTime(ByVal lMSec As Long) _
      42. As String
      44. Dim iMin As Integer
      45. Dim iSec As Integer
      47. iSec = Int(lMSec / 1000)
      48. iMin = Int(iSec / 60)
      49. iSec = iSec - (iMin * 60)
      51. FormatTime = Format$(iMin, "00") & ":" & _
      52. Format$(iSec, "00")
      53. End Function
      55. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      56. MsgBox(FormatTime(GetMP3Length("C:\000.mp3"))) 'wird länge MP3 angezeigt
      59. End Sub
      60. End Class

    Facebook
    Telefonspende