DirectShow är ett open-source video capture programvara projektet . Genom att använda sin kodbas , kan du utveckla ett program som kan spela in video som överförs till din dator från en inmatningsenhet som en webbkamera eller digitalkamera . Koden är baserad på Microsofts Visual Basic . NET programmeringsspråk , så för att utveckla ett DirectShow kamera program , behöver du Microsoft Visual Studio . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Starta Visual Studio och skapa ett nytt dokument för att koda din DirectShow ansökan .
2
Importera lämpliga kodbibliotek för DirectShow ansökan med hjälp av följande kod :
Import SystemImports System.DiagnosticsImports System.DrawingImports System.Runtime.InteropServicesImports System.Windows.FormsImports DirectShowLibImports System.Runtime.InteropServices . ComTypes Addera 3
Skapa ett namespace och ställ in variablerna för ansökan , till exempel :
namespace Capture_The_Webcam Public Class Form1Inherits System.Windows.Forms.FormEnd ClassEnd namespace
Enum PlayState
Stoppad = 0Paused = 1Running = 2Init = 3End EnumDim currentState som PlayState = PlayState.Stopped
4
Ställ upp subrutiner som kommer att lansera och driva programmet när den har sammanställts :
Private Sub InitializeComponent ( ) katalog
Dim resurser Som System.Resources.ResourceManager = Ny System.Resources.ResourceManager ( getType ( Form1 ) ) katalog
Me . AutoScaleBaseSize = Ny System.Drawing.Size ( 5 , 13 ) Me.ClientSize = Ny System.Drawing.Size ( 320 , 320 ) Me.Icon = ctyp ( ( resources.GetObject ( " $ this.Icon " ) ) , System.Drawing.Icon ) Me.Name = " Form1 " Me.Text = " Video Capture Previewer ( PlayCap ) " Debug.WriteLine ( " jag började Sub InitializeComponent " ) End Sub
5
Ställ in den klass som är ansvarig för video fånga med hjälp av följande kod som en guide för att koda din egen applikation :
Public Sub CaptureVideo ( ) Dim sourceFilter som IBaseFilter = NothingTryBig bit av codeCatch ex som ExceptionMessageBox . Visa ( " Ett oåterkalleligt fel har occurred.With error : " & ex.ToString ) Avsluta TryEnd Sub
Dim hr As Integer = 0
6
Kompilera VB-kod till ett körbart program och sedan köra programmet för att börja använda det som en videoinspelning program .
