MP3 im Loop abspielen Dieses Beispiel zeigt, wie sich der Abspielvorgang einer MP3-Datei beim Beenden autom. wiederholen lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  24.376
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 36 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man eine MP3-Datei abspielt, haben wir Ihnen bereits in früheren Tipps & Tricks gezeigt, u.a. auch die API-Variante. Und genau auf dieser Variante baut unser heutiger Tipp auf.

Diesmal zeigen wir Ihnen, wie sich eine MP3-Datei im Loop abpsielen lässt, d.h. sobald der Abspielvorgang beendet ist, beginnt das Szenario wieder von vorne. Alles, was wir hierzu brauchen, ist ein Timer-Control, das uns ständig über die Restdauer informiert, so dass der Abspielvorgang bei einer Restdauer von 0 von vorne beginnen kann.

Erstellen Sie ein neues Projekt und plazieren auf die Form zwei CommandButtons: cmdPlay und cmdStop. Und natürlich ein Timer-Control - Timer1. Alles andere erledigen wir dann per Code.

Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" ( _
  ByVal lpstrCommand As String, _
  ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Long, _
  ByVal hwndCallback As Long) As Long
 
Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Enabled = False
  Timer1.Interval = 100
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  ' Abspielvorgang beenden und MP3 schließen
  cmdStop.Value = True
End Sub

' MP3-Datei öffnen
Private Sub OpenMP3(ByVal sFile As String)
  Dim sBuffer As String
  Dim lResult As Long
  Dim sReturn As String
 
  ' Da die mciSendString Funktion mit langen Dateinamen
  ' nicht korrekt arbeitet, muss zuvor der kurze
  ' 8.3 Dateiname der MP3-Datei ermittelt werden.
  sBuffer = Space$(255)
  lResult = GetShortPathName(sFile, sBuffer, _
    Len(sBuffer))
 
  If lResult <> 0 Then
    sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  End If
 
  ' MP3-Datei öffnen
  mciSendString "open " & sFile & _
    " type MPEGVideo alias myMP3", 0, 0, 0
End Sub
 
' MP3-Datei schließen
Private Sub CloseMP3()
  mciSendString "close myMP3", 0, 0, 0
End Sub
 
' Kommando senden und "Ergebnis" zurückgeben
Private Function SendCommand(ByVal sCmd As String) As Long
  Dim lResult As Long
  Dim sReturn As String
 
  sReturn = Space$(256)
  lResult = mciSendString(sCmd, sReturn, Len(sReturn), 0&)
 
  SendCommand = Val(sReturn)
End Function

Private Sub cmdPlay_Click()
  Dim sFile As String
 
  ' MP3-Datei, die abgespielt werden soll
  sFile = "c:\temp\IrgendEine.mp3"
 
  ' MP3 öffnen
  OpenMP3 sFile
 
  ' Abpsielvorgang starten
  SendCommand "play myMP3 from 0"
 
  ' Timer aktivieren
  Timer1.Enabled = True
End Sub

Private Sub cmdStop_Click()
  ' Stoppen und schließen
  Timer1.Enabled = False
  CloseMP3
End Sub

Private Sub Timer1_Timer()
  ' Status abfragen und ggf. Abspielvorgang von
  ' vorne beginnen
  Dim lCurPos As Long
  Dim lLength As Long
 
  ' aktuelle Position
  lCurPos = SendCommand("status myMP3 position")
 
  ' Gesamtspielzeit
  lLength = SendCommand("status myMP3 length")
 
  ' Prüfen, ob am Ende angelangt und ggf.
  ' Abspielvorgang von vorne beginnen
  If lCurPos >= lLength Then
    SendCommand ("play myMP3 from 0")
  End If
End Sub