DirectShow es un proyecto de software de captura de vídeo de código abierto . Mediante el uso de su base de código, se puede desarrollar una aplicación que puede grabar vídeo se transmiten al ordenador desde un dispositivo de entrada, como una webcam o la cámara digital. El código se basa en el . Lenguaje de programación de Microsoft Visual Basic , por lo que con el fin de desarrollar una aplicación de cámara DirectShow , necesitarás Microsoft Visual Studio. Cosas que necesitará
Microsoft Visual Studio
Mostrar más instrucciones
1

lanzamiento de Visual Studio y crear un nuevo documento para codificar la aplicación DirectShow .
2

Import las bibliotecas de códigos apropiados para la aplicación DirectShow mediante el siguiente código:

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

Crear un espacio de nombres y establecer las variables de la aplicación , por ejemplo:

Espacio de nombres Capture_The_Webcam Public Class Form1Inherits System.Windows.Forms.FormEnd ClassEnd Espacio de nombres < br >

Enum reproducirState

Detenido = 0Paused = 1Running = 2Init = 3End EnumDim currentState Como reproducirState = PlayState.Stopped
4

Configurar las subrutinas que pondrá en marcha y ejecutar la aplicación una vez que se ha compilado :

Private Sub InitializeComponent ()

recursos Dim Como System.Resources.ResourceManager = New System.Resources.ResourceManager ( GetType (Form1 ))

mí . 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 = " vista previa de captura de vídeo ( PlayCap ) " Debug.WriteLine ( "Empecé Sub InitializeComponent ") End Sub
5 < p > Configurar la clase que es responsable de la captura de vídeo utilizando el código siguiente como guía para codificar su propia aplicación :

Public Sub CaptureVideo () sourceFilter As IBaseFilter = NothingTryBig trozo de codeCatch ex As ExceptionMessageBox . Show ( " un error irrecuperable tiene occurred.With error :" & ex.ToString ) End Sub TryEnd

horas Dim As Integer = 0
6

Compilar el código VB en una aplicación ejecutable y ejecute la aplicación para comenzar a utilizarlo como un programa de grabación de vídeo.