[Ansatz gelöst] Video- und Audio-Capturing in File

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Radium.

    [Ansatz gelöst] Video- und Audio-Capturing in File

    Also, ich beschäftige mich jetzt schon einige Wochen mit DirectShow. Ich kann zwar mittlerweile auf verschiedenste Weisen mein VideoCaptureDevice einbinden und sowohl ein Videofile speichern mit gleichzeitiger Preview anzeigen lassen. Aber dabei kann ich weder berücksichtigen, dass von der Audioquelle mit aufgezeichnet wird, noch dass ich das Video in MPEG2 abgespeichert wird. Ich weiß nur, dass ich eine Filterkette erstellen muss.
    Ich dachte, dass ich da bei GraphEdit vielleicht ein Codebeispiel bekomme, wie genau das geht. Immerhin kann ich da Filterketten testen und mir die ClassID etc. anzeigen lassen um diese dann entsprechend einbinden zu können. Eigentlich finde ich das DirectShowLib-2005.dll inklusive Samples ganz hilfreich. Aber ich habe das Gefühl, dass ich damit bei meinem Video/Audio-Projekt nicht mehr weiterkomme. Ich weiß nur, dass es ohne Filterkette nicht geht. Aber Infos dazu sind recht spärlich und verwirrend.


    Hier mal der Quelltext mit dem Anfang der Filterkette:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Collections
    3. Imports System.ComponentModel
    4. Imports System.Windows.Forms
    5. Imports System.Data
    6. Imports System.Runtime.InteropServices
    7. Imports System.Diagnostics
    9. Imports DirectShowLib
    12. Public Class Form1
    13. Implements ISampleGrabberCB
    14. Implements IDisposable
    16. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    17. Dim hr As Integer
    19. Dim m_graphBuilder As IFilterGraph2 = Nothing
    20. Dim m_mediaCtrl As IMediaControl = Nothing
    21. Dim m_videoWindow As IVideoWindow = Nothing
    23. Dim m_videoWidth As Integer = Panel1.Width
    24. Dim m_videoHeight As Integer = Panel1.Height
    26. Dim AllVideoInputDevices As DsDevice() = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
    27. Dim VideoInput As DsDevice = AllVideoInputDevices(0)
    30. Dim capFilter As IBaseFilter = Nothing
    31. Dim capGraph As ICaptureGraphBuilder2 = Nothing
    33. m_graphBuilder = DirectCast(New FilterGraph(), IFilterGraph2)
    34. m_mediaCtrl = DirectCast(m_graphBuilder, IMediaControl)
    35. capGraph = DirectCast(New CaptureGraphBuilder2(), ICaptureGraphBuilder2)
    36. m_videoWindow = DirectCast(m_graphBuilder, IVideoWindow)
    41. hr = capGraph.SetFiltergraph(DirectCast(m_graphBuilder, IGraphBuilder))
    42. hr = m_graphBuilder.AddSourceFilterForMoniker(VideoInput.Mon, Nothing, VideoInput.Name, capFilter)
    45. ' Microsoft MPEG2 Encoder-Filter erstellen
    46. Dim MPEG2EncoderGuid As Guid = New Guid("5F5AFF4A-2F7F-4279-88C2-CD88EB39D144")
    47. Dim t As Type = Type.GetTypeFromCLSID(MPEG2EncoderGuid)
    48. Dim encoder As IBaseFilter = DirectCast(Activator.CreateInstance(t), IBaseFilter)
    49. Dim encoderIn1 As IPin = Nothing
    50. Dim encoderIn2 As IPin = Nothing
    51. Dim encoderOut As IPin = Nothing
    52. hr = encoder.FindPin("In", encoderIn1)
    53. hr = encoder.FindPin("In", encoderIn2)
    54. hr = encoder.FindPin("Out", encoderOut)
    55. hr = m_graphBuilder.AddFilter(encoder, "Microsoft MPEG-2 Encoder")
    57. ' File Writer erstellen
    58. Dim pinInfo As PinInfo = Nothing
    59. Dim fetched As Integer = 0
    60. Dim fileWriterIn As IPin = Nothing
    61. Dim pin As IPin = Nothing
    62. Dim pins As IEnumPins = Nothing
    63. Dim FileWriterGuid As Guid = New Guid("8596E5F0-0DA5-11D0-BD21-00A0C911CE86")
    64. t = Type.GetTypeFromCLSID(FileWriterGuid)
    65. Dim fileWriter As IBaseFilter = DirectCast(Activator.CreateInstance(t), IBaseFilter)
    66. Dim sink As IFileSinkFilter = DirectCast(fileWriter, IFileSinkFilter)
    67. Dim MT As AMMediaType = New AMMediaType()
    68. MT.majorType = MediaType.Stream
    69. MT.subType = MediaSubType.RGB24
    70. MT.formatType = FormatType.MpegStreams
    71. sink.SetFileName("D:\newTest.mpg", MT)
    72. hr = m_graphBuilder.AddFilter(fileWriter, "File Writer")
    73. fileWriter.EnumPins(pins)
    74. pins.Next(1, fileWriterIn, fetched)
    76. ' Hole Video Capture Out
    77. Dim videoCaptureOut As IPin = Nothing
    78. While (fetched > 0)
    79. pins.Next(1, pin, fetched)
    80. If (fetched > 0) Then
    81. pin.QueryPinInfo(pinInfo)
    82. If pinInfo.dir = PinDirection.Output Then
    83. videoCaptureOut = pin
    84. End If
    85. End If
    86. End While
    88. ' Verbinde die Filterkette
    89. m_graphBuilder.Connect(videoCaptureOut, encoderIn1)
    90. m_graphBuilder.Connect(encoderOut, fileWriterIn)
    93. hr = capGraph.RenderStream(PinCategory.Preview, MediaType.Video, capFilter, Nothing, Nothing)
    94. If hr > 0 Then MsgBox(hr.ToString)
    96. ' VideoWindow initialisieren
    97. hr = m_videoWindow.put_Top(0)
    98. hr = m_videoWindow.put_Left(0)
    99. hr = m_videoWindow.put_Width(m_videoWidth)
    100. hr = m_videoWindow.put_Height(m_videoHeight)
    101. hr = m_videoWindow.put_WindowStyle(WindowStyle.Visible)
    102. hr = m_videoWindow.put_Owner(Panel1.Handle)
    104. m_mediaCtrl.Run()
    105. End Sub
    107. Public Function BufferCB(ByVal SampleTime As Double, ByVal pBuffer As System.IntPtr, ByVal BufferLen As Integer) As Integer Implements DirectShowLib.ISampleGrabberCB.BufferCB
    109. End Function
    111. Public Function SampleCB(ByVal SampleTime As Double, ByVal pSample As DirectShowLib.IMediaSample) As Integer Implements DirectShowLib.ISampleGrabberCB.SampleCB
    113. End Function
    114. End Class


    Ich hoffe, dass ich jetzt niemanden überfordere ;(
    Gibt es vielleicht bezüglich DirectShow eine verständlichere Documentation als das MSDN oder vielleicht gute Lektüre?

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

    Ok, ich hab ein anderes Programm gefunden, mit dem FilterGraphen getestet und entsprechend der SourceCode ausgegeben werden kann. Den gibt es zwar nur in C#/C++ aber dank Convert C# to VB.Net läßt sich das schnell beheben.

    Der GraphEditor nennt sich übrigens GraphEditPlus und ist als Freeversion eingeschränkt im Kopieren des Quellcodes. Man muß also abtippen. Aber das ist auch nicht schlimm, immerhin geht mir mehr um die Funktionsweise, wie so ein Filtergraph erstellt, verbunden und lauffähig gemacht wird.

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