Selbst programmierter Media Player öffnet Dateien von außen nicht

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    Selbst programmierter Media Player öffnet Dateien von außen nicht

    Hallo liebe Comm

    ich habe ein Problem mit einem Media Player, den ich gecodet habe. Das Problem ist wie folgt:
    Wenn ich eine .mp3 oder andere Media Dateien öffne (Musik) erscheint dieser Dialog:




    Weiß jemand warum?

    Das ist der Code den ich verwende:

    [Der Code] (Sry muss den so posten weil er beim Absenden wieder in eine Zeile rückt...)

    If My.Application.CommandLineArgs.Count > 0 Then
    Dim v As Array
    Dim mypath As String
    Dim commandlineargs As String = Environment.CommandLine
    v = Split(commandlineargs, """ ")
    mypath = v(1)
    AxWindowsMediaPlayer1.URL = (mypath)
    End If
    [Ende]

    Wenn jemand den Fehler weiß bitte melden :)




    Liebe Grüße

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Shaymin123[CRI09]“ ()

    "Selbstprogrammiert"
    a) Ist an nem Mediaplayercontrol mit nem Designer auf ne Form ziehen nix "selbst" dran
    b) Verwend was anständiges


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Zur Frage b (Was anderes), da haste einiges zur Auswahl ;D
    Ich verwende bei Player-Angelegenheiten meine dafür erstellte Klasse:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MediaPlayer
    2. Private Declare Function mciSendString Lib "Winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturn As Integer, ByVal hwndCallback As IntPtr) As Integer
    3. Private strFileName As String
    4. Private ctrWindow As Control
    5. Private strAlias As String = "video1"
    6. Private bOpened As Boolean = False
    7. Private bPlaying As Boolean = False
    8. Private iVolume As Integer
    9. Private iSpeed As Integer
    11. Public Property Filename() As String
    12. Get
    13. Return strFileName
    14. End Get
    15. Set(ByVal strValue As String)
    16. strFileName = strValue
    17. End Set
    18. End Property
    20. Public Property MediaWindow() As Control
    21. Get
    22. Return ctrWindow
    23. End Get
    24. Set(ByVal ctrValue As Control)
    25. ctrWindow = ctrValue
    26. End Set
    27. End Property
    29. Public ReadOnly Property Status() As String
    30. Get
    31. Dim strStatus As String = Space(128)
    32. If mciSendString("STATUS " & strAlias & " MODE", strStatus, Len(strStatus), IntPtr.Zero) = 0 Then
    33. strStatus = Replace(Trim(strStatus), Chr(0), "")
    34. Return strStatus
    35. End If
    36. End Get
    37. End Property
    39. Public Property Volume() As Integer
    40. Get
    41. Return iVolume
    42. End Get
    43. Set(ByVal Value As Integer)
    44. iVolume = Value
    45. mciSendString("SETAUDIO " & strAlias & " VOLUME TO " & iVolume, 0&, 0, IntPtr.Zero)
    46. End Set
    47. End Property
    49. Public Property Speed() As Integer
    50. Get
    51. Return iSpeed
    52. End Get
    53. Set(ByVal Value As Integer)
    54. iSpeed = Value
    55. mciSendString("SET " & strAlias & " SPEED " & iSpeed, 0&, 0, IntPtr.Zero)
    56. End Set
    57. End Property
    59. Public ReadOnly Property Opened() As Boolean
    60. Get
    61. Return bOpened
    62. End Get
    63. End Property
    65. Public Function Open() As Boolean
    66. If bOpened = False And mciSendString("OPEN """ & strFileName & """ alias " & strAlias & " TYPE MPEGVIDEO PARENT " & ctrWindow.Handle.ToString & " STYLE CHILD", 0&, 0, IntPtr.Zero) = 0 Then
    67. bOpened = True
    68. End If
    70. Return bOpened
    71. End Function
    73. Public Function Close() As Boolean
    74. If bOpened = True And mciSendString("CLOSE " & strAlias, 0&, 0, IntPtr.Zero) = 0 Then
    75. bOpened = False
    76. End If
    78. Return Not bOpened
    79. End Function
    81. Public Function Play() As Boolean
    82. If bPlaying = False And mciSendString("PLAY " & strAlias, 0&, 0, IntPtr.Zero) = 0 Then
    83. bPlaying = True
    84. End If
    86. Return bPlaying
    87. End Function
    89. Public Function [Stop]() As Boolean
    90. If bOpened = True And mciSendString("STOP " & strAlias, 0&, 0, IntPtr.Zero) = 0 Then
    91. mciSendString("SEEK " & strAlias & " TO START", 0&, 0, IntPtr.Zero)
    92. bPlaying = False
    93. End If
    95. Return Not bPlaying
    96. End Function
    98. Public Function Pause() As Boolean
    99. If bPlaying = True And mciSendString("PAUSE " & strAlias, 0&, 0, IntPtr.Zero) = 0 Then
    100. bPlaying = False
    101. End If
    103. Return Not bPlaying
    104. End Function
    106. Public Function Fit() As Boolean
    107. Dim strSize As String = Space(128)
    109. If mciSendString("WHERE " & strAlias & " source", strSize, Len(strSize), IntPtr.Zero) = 0 Then
    111. Dim coords() As String = Split(Trim(strSize), " ")
    112. Dim Size As New Size(CInt(coords(2)), CInt(coords(3)))
    114. If Not Size.IsEmpty Then
    115. Dim dblRatio As Double
    117. dblRatio = ctrWindow.Width / Size.Width
    119. If Size.Height * dblRatio > ctrWindow.Height Then
    120. dblRatio = ctrWindow.Height / Size.Height
    121. End If
    123. Dim iWidth As Integer = CInt(Size.Width * dblRatio)
    124. Dim iHeight As Integer = CInt(Size.Height * dblRatio)
    125. Dim iLeft As Integer = CInt((ctrWindow.Width - iWidth) / 2)
    126. Dim iTop As Integer = CInt((ctrWindow.Height - iHeight) / 2)
    128. Return (mciSendString("PUT " & strAlias & " WINDOW AT " & CStr(iLeft) & " " & CStr(iTop) & " " & CStr(iWidth) & " " & CStr(iHeight), 0&, 0, IntPtr.Zero) = 0)
    129. Else
    130. Return False
    131. End If
    133. End If
    135. End Function
    137. Public Function GetTotalTime() As Integer
    138. Dim strTime As String = Space(128)
    139. mciSendString("SET " & strAlias & " TIME FORMAT MS", 0&, 0, IntPtr.Zero)
    140. If mciSendString("STATUS " & strAlias & " LENGTH", strTime, Len(strTime), IntPtr.Zero) = 0 Then
    141. Return CInt(Trim(strTime))
    142. End If
    143. Return 0
    144. End Function
    146. Public Function GetPosition() As Integer
    147. Dim strPos As String = Space(128)
    148. mciSendString("SET " & strAlias & " TIME FORMAT MS", 0&, 0, IntPtr.Zero)
    149. If mciSendString("STATUS " & strAlias & " POSITION", strPos, Len(strPos), IntPtr.Zero) = 0 Then
    150. Return CInt(Trim(strPos))
    151. End If
    152. Return 0
    153. End Function
    155. Public Function SetPosition(ByVal Pos As Integer) As Boolean
    156. Dim strPos As String = Space(128)
    158. If bPlaying = True Then
    159. If mciSendString("PLAY " & strAlias & " FROM " & Pos, 0&, 0, IntPtr.Zero) = 0 Then
    160. Return True
    161. End If
    162. Else
    163. If mciSendString("SEEK " & strAlias & " TO " & Pos, 0&, 0, IntPtr.Zero) = 0 Then
    164. Return True
    165. End If
    166. End If
    168. Return False
    169. End Function
    171. Public Function GetHMS(ByVal ms As Integer) As String
    172. Dim intSeconds As Integer
    173. Dim intMinutes As Integer
    174. Dim intHours As Integer
    176. intSeconds = ms / 1000
    179. If (intSeconds > 3600) Or (intSeconds = 3600) Then
    180. intHours = Int(intSeconds / 3600)
    181. intSeconds = intSeconds - (intHours * 3600)
    182. Else
    183. intHours = 0
    184. End If
    187. If (intSeconds > 60) Or (intSeconds = 60) Then
    188. intMinutes = Int(intSeconds / 60)
    189. intSeconds = intSeconds - (intMinutes * 60)
    190. Else
    191. intMinutes = 0
    192. End If
    194. Dim Time As Date = CStr(intHours) & ":" & CStr(intMinutes) & ":" & CStr(intSeconds)
    196. Return CStr(Time)
    198. End Function
    199. End Class


    Einfach dazukopieren und ansprechen. Für Videos einfach ne PicBox verwenden ;D

    mfg

    gfc

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

    Muss ich das in einer neuen Funktion zu hauen oder in den Form1.vb setzen?

    EDIT: Habs als Modul einfefügt

    Habe 2 Fehler:


    Warnung 1 Von der Eigenschaft "Status" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten. C:\Users\Twilight Sparkle\documents\visual studio 2010\Projects\AMP4W\AMP4W\MediaPlayer.vb 37 13 AMP4W

    Warnung 2 Die Fit-Funktion gibt nicht für alle Codepfade einen Wert zurück. Fehlt eine Return-Anweisung? C:\Users\Twilight Sparkle\documents\visual studio 2010\Projects\AMP4W\AMP4W\MediaPlayer.vb 136 9 AMP4W

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Shaymin123[CRI09]“ ()

    @gfcwfzkm: Kannst Du bitte um Deinen Code herum einen Expander bauen :?:

    Shaymin123[CRI09] schrieb:

    Habe 2 Fehler:
    Lesen und verstehen

    VB.NET-Quellcode

    1. Public Function xxx(ByVal value As Integer) As Integer
    2. Select Case value
    3. Case 1 : Return 1
    4. Case 2 : Return 2
    5. Case 3 : Return 3
    6. Case Else
    7. ' nix
    8. End Select
    9. ' nix
    10. End Function
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Am besten verwendest du eine Bibliothek wie die Bass.dll.
    Bei der mciSendString Methode hast du nämlich recht wenig Möglichkeiten und wirklich ne Ganze Bibliothek ist für dich viel zu viel Arbeit.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

Facebook
Telefonspende