Directshow Problem

  • VB.NET

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

    Directshow Problem

    Hi.

    Ich habe im Anhang ein Directshow Beispiel.

    Alles funktioniert auch.

    Ich möchte aber nun 2 Panel haben und 2 Verschiedene Videos abspielen können.
    Habe echt alles probiert aber nie hat es funktioniert.
    Ich kann nur 1 Video abspielen.
    Kann mir einer den Source unten so bearbeiten, dass das Panel1 Das Video vom Openfiledialog1 ist und im Panel2 das Video vom Openfiledialog2 ist oder das Projekt ändern?

    Das wäre sehr nett weil ich nicht mehr durchblicke..
    Habe schon alles verdoppelt und überall eine 2 hinter gemacht aber immer kommt dann "Keine Objektinstanz" etc. und nur das eine Panel spielt ab..
    Danke!

    Mfg. TGS

    Source:


    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections
    3. Imports System.ComponentModel
    4. Imports System.Drawing
    5. Imports System.Runtime.InteropServices
    6. Imports System.Windows.Forms
    7. Imports DirectShowLib
    9. Public Class mainApp1
    11. Enum PlayState
    12. Stopped
    13. Paused
    14. Running
    15. Init
    16. End Enum
    18. Enum MediaType
    19. Audio
    20. Video
    21. End Enum
    24. Private Const WMGraphNotify As Integer = 13
    25. Private Const VolumeFull As Integer = 0
    26. Private Const VolumeSilence As Integer = -10000
    28. Private graphBuilder As IGraphBuilder = Nothing
    29. Private mediaControl As IMediaControl = Nothing
    30. Private mediaEventEx As IMediaEventEx = Nothing
    31. Private videoWindow As IVideoWindow = Nothing
    32. Private basicAudio As IBasicAudio = Nothing
    33. Private basicVideo As IBasicVideo = Nothing
    34. Private mediaSeeking As IMediaSeeking = Nothing
    35. Private mediaPosition As IMediaPosition = Nothing
    36. Private frameStep As IVideoFrameStep = Nothing
    38. Private filename As String = String.Empty
    39. Private isAudioOnly As Boolean = False
    40. Private isFullScreen As Boolean = False
    41. Private currentVolume As Integer = VolumeFull
    42. Private currentState As PlayState = PlayState.Stopped
    43. Private currentPlaybackRate As Double = 1.0
    44. Private UseHand As IntPtr
    45. Private UseCtrl As System.Windows.Forms.Control
    46. Private FsDrain As IntPtr = IntPtr.Zero
    47. Private Event MedClose()
    48. #If DEBUG Then
    49. Private rot As DsROTEntry = Nothing
    50. #End If
    52. '----------------Start--------------------------------------------------------
    53. Private Sub OpenFile(ByVal fName As String, ByVal VidHand As IntPtr, ByVal VidCtrl As System.Windows.Forms.Panel)
    54. filename = ""
    55. CloseClip()
    56. UseHand = VidHand 'Handle to Display Video if any
    57. UseCtrl = VidCtrl 'Control to Display Video if any
    58. filename = fName
    59. currentState = PlayState.Stopped 'Reset State to Stopped
    60. currentVolume = VolumeFull 'Reset Volume
    61. PlayMedia(fName) 'Call Main Sub
    62. End Sub
    64. Private Sub PlayMedia(ByVal fName As String)
    65. Dim hr As Integer = 0
    66. If fName = Nothing Then Exit Sub
    67. Try
    68. graphBuilder = DirectCast(New FilterGraph, IFilterGraph2) 'Load Graph Builder Device
    69. hr = graphBuilder.RenderFile(fName, Nothing) ' Initialize Graph Builder
    70. DsError.ThrowExceptionForHR(hr)
    71. mediaControl = DirectCast(graphBuilder, IMediaControl)
    72. mediaEventEx = DirectCast(graphBuilder, IMediaEventEx)
    73. mediaSeeking = DirectCast(graphBuilder, IMediaSeeking)
    74. mediaPosition = DirectCast(graphBuilder, IMediaPosition)
    75. videoWindow = DirectCast(graphBuilder, IVideoWindow)
    76. With videoWindow
    77. .put_Owner(Panel1.Handle)
    78. .put_AutoShow(OABool.True)
    79. .put_WindowState(DirectShowLib.WindowState.ShowMaximized)
    80. .put_WindowStyle(WindowStyle.Child Or WindowStyle.ClipSiblings Or WindowStyle.ClipChildren)
    81. End With
    82. 'videoWindow.put_WindowState(DirectShowLib.WindowState.ShowMaximized)
    83. basicAudio = DirectCast(graphBuilder, IBasicVideo)
    84. basicVideo = DirectCast(graphBuilder, IBasicAudio)
    85. If isAudioOnly = False Then
    86. hr = mediaEventEx.SetNotifyWindow(UseHand, WMGraphNotify, IntPtr.Zero)
    87. DsError.ThrowExceptionForHR(hr)
    88. hr = videoWindow.put_Owner(UseHand)
    89. DsError.ThrowExceptionForHR(hr)
    90. hr = videoWindow.put_WindowStyle(WindowStyle.Child And WindowStyle.ClipSiblings And WindowStyle.ClipChildren)
    91. DsError.ThrowExceptionForHR(hr)
    92. End If
    93. #If DEBUG Then
    94. rot = New DsROTEntry(graphBuilder)
    95. #End If
    96. Me.Focus()
    97. hr = mediaControl.Run
    98. DsError.ThrowExceptionForHR(hr)
    99. currentState = PlayState.Running
    100. If isAudioOnly = False Then
    101. DsError.ThrowExceptionForHR(hr)
    102. End If
    103. Catch ex As Exception
    104. MsgBox("Error " & ex.Message, MsgBoxStyle.Critical, "Error")
    105. RaiseEvent MedClose()
    106. End Try
    107. End Sub
    109. Private Sub CloseClip()
    110. Try
    111. Dim hr As Integer = 0
    112. currentState = PlayState.Stopped
    113. isAudioOnly = True
    114. isFullScreen = False
    115. filename = ""
    116. Call CloseInterfaces()
    117. currentState = PlayState.Init
    118. Catch ex As Exception
    119. MsgBox("Errpr " & ex.Message, MsgBoxStyle.Critical, "Error")
    120. RaiseEvent MedClose()
    121. End Try
    122. End Sub
    124. Private Sub CloseInterfaces()
    125. Try
    126. Dim hr As Integer = 0
    127. If isAudioOnly = False Then
    128. hr = videoWindow.put_Visible(OABool.False)
    129. DsError.ThrowExceptionForHR(hr)
    130. hr = videoWindow.put_Owner(IntPtr.Zero)
    131. DsError.ThrowExceptionForHR(hr)
    132. End If
    133. If mediaEventEx Is Nothing = False Then
    134. hr = mediaEventEx.SetNotifyWindow(IntPtr.Zero, 0, IntPtr.Zero)
    135. DsError.ThrowExceptionForHR(hr)
    136. End If
    137. #If DEBUG Then
    138. If rot Is Nothing = False Then
    139. rot.Dispose()
    140. rot = Nothing
    141. End If
    142. #End If
    143. mediaEventEx = Nothing
    144. mediaSeeking = Nothing
    145. mediaPosition = Nothing
    146. mediaControl = Nothing
    147. basicAudio = Nothing
    148. basicVideo = Nothing
    149. videoWindow = Nothing
    150. frameStep = Nothing
    151. Marshal.ReleaseComObject(graphBuilder)
    152. graphBuilder = Nothing
    153. GC.Collect()
    154. Catch ex As Exception
    155. End Try
    156. End Sub
    160. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    161. CloseClip()
    162. End Sub
    164. Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
    165. Dim TmpFileExt As String
    166. With OpenFileDialog1
    167. TmpFileExt = "Mp3 File(*.mp3)|*.mp3|Wav File(*.wav)|*.wav|Mpeg Video(*.mpg)|*.mpg|Windows Video(*.avi)|*.avi|Wmp Video(*.wmv)|*.wmv|All Files(*.*)|*.*"
    168. .Filter = TmpFileExt
    169. .Title = "Open Media File"
    170. .Multiselect = False
    171. .ShowDialog()
    172. End With
    173. TmpFileExt = Nothing
    174. End Sub
    176. Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
    177. CloseClip()
    178. filename = Nothing
    179. End Sub
    183. Private Sub StopToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    184. mediaControl.Stop()
    185. mediaPosition.put_CurrentPosition(0)
    186. End Sub
    188. Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    189. 'If e.Cancel = True Then Exit Sub
    190. 'Call The Sub to Open the File. OpenFile(FilePath, Handle of Window, Control Name)
    191. 'OpenFile(OpenFileDialog1.FileName, Panel1.Handle, Panel1)
    192. End Sub
    200. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    201. OpenFile(OpenFileDialog1.FileName, Panel1.Handle, Panel1)
    202. mediaControl.Run()
    203. End Sub
    205. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    206. mediaControl.Pause()
    207. End Sub
    209. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    210. mediaControl.Stop()
    211. mediaPosition.put_CurrentPosition(0)
    214. End Sub
    215. End Class


    Projekt im Anhang.
    Diesmal das projekt von ErfinderDesRades da er wohl eine Virenfreie DLL gefunden hat :)
    Dateien

    • Directshow.rar

      (375,32 kB, 52 mal heruntergeladen, zuletzt: )

    Kann mir da keiner helfen?
    Was muss ich denn alles ändern, um ein 2 mal ein video öffnen zu können in einem neuen panel?

    Alles gut, habs geschafft :)
    Hatte vergessen bei einem Sub eine 2 hinter zu machen!

    Mfg. TGS

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