DirectShow ist eine Open-Source- Video-Capture- Software-Projekt . Durch die Verwendung ihrer Code-Basis , können Sie eine Anwendung entwickeln , die Video ist in Ihren Computer von einem Eingabegerät wie eine Webcam oder eine Digitalkamera übertragen aufzeichnen kann . Der Code in Visual Basic von Microsoft . NET-Programmiersprache basiert, so um einen DirectShow Kamera -Anwendung zu entwickeln , benötigen Sie Microsoft Visual Studio. Things You
Microsoft Visual Studio
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Visual Studio, und erstellen Sie ein neues Dokument , um Ihre Anwendung DirectShow codieren.
2

Import die entsprechenden Code-Bibliotheken für die DirectShow -Anwendung mithilfe der folgenden Code:

Importe SystemImports System.DiagnosticsImports System.DrawingImports System.Runtime.InteropServicesImports System.Windows.FormsImports DirectShowLibImports System.Runtime.InteropServices . ComTypes
3

erstellen Namespace und setzen Sie die Variablen für die Anwendung , zum Beispiel:

Namespace Capture_The_Webcam Public Class Form1Inherits System.Windows.Forms.FormEnd ClassEnd Namespace

Enum PlayState

Stopped = 0Paused = 1Running = 2Init = 3End EnumDim currentState Wie PlayState = PlayState.Stopped
4

bis die Unterprogramme, die Einführung und den Betrieb der Anwendung wird Set sobald es zusammengestellt :

private Sub InitializeComponent ( ) Dim

Ressourcen System.Resources.ResourceManager = New System.Resources.ResourceManager ( GetType ( Form1) )

Me . AutoScaleBaseSize = New System.Drawing.Size ( 5, 13) = Me.ClientSize New System.Drawing.Size (320, 320) Me.Icon = CType ( ( resources.GetObject ("$ this.Icon " ) ) , System.Drawing.Icon ) Me.Name = " Form1 " Me.Text = "Video Capture Previewer ( PlayCap ) " Debug.WriteLine ( "Ich begann Sub InitializeComponent ") End Sub
5 < p> Richten Sie die Klasse, die verantwortlich für die Video-Aufnahme , indem Sie den folgenden Code als Leitfaden für Ihre eigene Anwendung Kodex :

Public Sub CaptureVideo () Dim SourceFilter wie IBaseFilter = NothingTryBig Batzen codeCatch ex As ExceptionMessageBox . Show ( " Es ist ein Fehler hat occurred.With Fehler :" & ex.ToString ) Ende TryEnd Sub