DirectShow is een open - source video capture software project . Door het gebruik van de code base , kunt u een toepassing die video wordt verzonden naar uw computer vanaf een invoerapparaat , zoals een webcam of digitale camera kan opnemen ontwikkelen . De code is gebaseerd op Visual Basic . NET programmeertaal van Microsoft , dus om een DirectShow camera- applicatie te ontwikkelen , zult u Microsoft Visual Studio nodig . Wat je nodig hebt Microsoft Visual Studio Toon Meer Aanwijzingen Launch Visual Studio 1 en maak een nieuw document aan uw DirectShow applicatie code . Import 2 de juiste code bibliotheken voor de DirectShow- toepassing met behulp van de volgende code : Imports SystemImports System.DiagnosticsImports System.DrawingImports System.Runtime.InteropServicesImports System.Windows.FormsImports DirectShowLibImports System.Runtime.InteropServices . ComTypes 3 Maak een namespace en stel de variabelen voor de toepassing , bijvoorbeeld: namespace Capture_The_Webcam Public Class Form1Inherits System.Windows.Forms.FormEnd ClassEnd namespace < br Enum spelenState > Gestopt = 0Paused = 1Running = 2Init = 3End EnumDim currentState Zoals spelenState = PlayState.Stopped 4 Stel de subroutines die zal starten en start de applicatie als het eenmaal is samengesteld : Private Sub InitializeComponent ( ) op Dim middelen Zoals System.Resources.ResourceManager = Nieuw System.Resources.ResourceManager ( GetType ( Form1 ) ) op Me . AutoScaleBaseSize = Nieuw System.Drawing.Size ( 5 , 13 ) Me.ClientSize = Nieuwe System.Drawing.Size ( 320 , 320 ) Me.Icon = C ( ( resources.GetObject ( " $ this.Icon " ) ) , System.Drawing.Icon ) Me.Name = " Form1 " Me.Text = " Video Capture Previewer ( PlayCap ) " Debug.WriteLine ( "Ik begon Sub InitializeComponent " ) End Sub 5 Stel de klasse die verantwoordelijk is voor het vastleggen van video met behulp van de volgende code als leidraad voor uw eigen toepassing te coderen : Public Sub CaptureVideo ( ) Dim sourceFilter zoals IBaseFilter = NothingTryBig brok codeCatch ex zoals ExceptionMessageBox . Show ( " een onherstelbare fout heeft occurred.With error : " & ex.ToString ) End Sub TryEnd Dim hr As Integer = 0 6 Compileer de VB -code in een uitvoerbaar applicatie en voer vervolgens de applicatie te gaan gebruiken als een video-opname -programma .
|