MP3 abspielen

    • VB.NET

      MP3 abspielen

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
      4. Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Integer) As Integer
      6. #Region " MP3-Datei abspielen "
      7. Public Function MP3_Play(ByVal sFile As String, _
      8. ByVal sAlias As String) As Boolean
      10. Dim bResult As Boolean
      13. Dim sBuffer As String
      14. Dim lResult As Long
      16. sBuffer = Space$(255)
      17. lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
      19. If lResult <> 0 Then
      20. sFile = Microsoft.VisualBasic.Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
      22. ' MCI öffnen
      23. lResult = mciSendString("open " & sFile & _
      24. " type MPEGVideo alias " & sAlias, 0, 0, 0)
      26. If lResult = 0 Then
      27. ' MP3 abspielen
      28. If mciSendString("play " & sAlias & _
      29. " from 0", 0, 0, 0) = 0 Then
      30. bResult = True
      31. End If
      32. End If
      33. End If
      35. MP3_Play = bResult
      36. End Function
      37. #End Region
      39. #Region " Wiedergabe stoppen und MCI schließen "
      40. Private Sub MP3_Stop(ByVal sAlias As String)
      41. mciSendString("stop " & sAlias, 0, 0, 0)
      42. mciSendString("close " & sAlias, 0, 0, 0)
      43. End Sub
      44. #End Region
      46. Private Sub cmdPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlay.Click
      47. OpenDialog.DefaultExt = "mp3"
      48. OpenDialog.ShowDialog()
      49. TextBox_mp3.Text = OpenDialog.FileName
      51. MP3_Play(TextBox_mp3.Text, "MyAlias")
      52. End Sub
      54. Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPause.Click
      55. mciSendString("pause " + TextBox_mp3.Text, 0, 0, 0)
      56. End Sub
      58. Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
      59. MP3_Stop("MyAlias")
      60. End Sub
      62. End Class

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Agent“ ()