mciSendString Api kein Ton

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    mciSendString Api kein Ton

    Hiho
    Habe mal Problemm. :)

    Ich bastle mir gerade nen kleinen Button der mir ein mp3 file abspielt, über das mciSendString API.
    Alles Scheint OK zu Sein kein Fehler garnix, Nur ich höre Nix. hier mein Code.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private mp3 As New CMultimedia
    3. Public Class CMultimedia
    4. Private _File As String
    5. Private _Alias As String
    6. Private _Guid As Guid
    8. Property File() As String
    9. Get
    10. Return _File
    11. End Get
    12. Set(ByVal value As String)
    13. _File = value
    14. _Guid = Guid.NewGuid
    15. _Alias = _Guid.ToString
    16. End Set
    17. End Property
    19. Private Declare Function mciSendString Lib "winmm.dll" _
    20. Alias "mciSendStringA" ( _
    21. ByVal lpszCommand As String, _
    22. ByVal lpszReturnString As String, _
    23. ByVal cchReturnLength As Integer, _
    24. ByVal hwndCallback As Integer) As Integer
    26. Public Function PlayFile() As Boolean
    27. Dim blnResult As Boolean = False
    28. If mciSendString(" open " & Chr(34) & _File & Chr(34) & _
    29. " type MPEGVideo alias " & _Alias, 0, 0, 0) = 0 Then
    30. If mciSendString(" play " & _Alias & "from 0", 0, 0, 0) Then
    31. blnResult = True
    32. End If
    33. End If
    35. Return blnResult
    37. End Function
    38. End Class
    40. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    42. End Sub
    44. Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
    45. mp3.File = "D:\test.mp3"
    46. mp3.PlayFile()
    47. End Sub
    48. End Class


    Vieleicht weiss es einer von Euch bin schon am verzweifeln.
    Ach ja genutzt wird das VB 2010 Express.