DirectShow è un progetto di software di acquisizione video open-source. Utilizzando la sua base di codice, è possibile sviluppare un'applicazione in grado di registrare video vengono trasmessi al computer da un dispositivo di input come ad esempio una webcam o una fotocamera digitale. Il codice è basato nel linguaggio di programmazione Visual Basic .NET di Microsoft, per cui al fine di sviluppare una applicazione fotocamera DirectShow, è necessario Microsoft Visual Studio.

istruzione

1 Avviare Visual Studio e creare un nuovo documento per codificare l'applicazione DirectShow.

2 Importare le librerie di codice appropriato per l'applicazione DirectShow utilizzando il codice seguente:

Imports System
Importazioni System.Diagnostics
Le importazioni System.Drawing
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Le importazioni DirectShowLib
Importazioni System.Runtime.InteropServices.ComTypes

3 Creare uno spazio dei nomi e impostare le variabili per l'applicazione; per esempio:

Spazio dei nomi Capture_The_Webcam Public Class Form1
System.Windows.Forms.Form eredita

End Class

End Namespace

enum visualizzarloState

Stopped = 0
Paused = 1
Running = 2
Init = 3

End Enum
Dim currentState Come visualizzarloState = PlayState.Stopped

4 Impostare le subroutine che lancerà ed eseguire l'applicazione una volta che è stato compilato:

Private Sub InitializeComponent ()

Dim resources As System.Resources.ResourceManager =
New System.Resources.ResourceManager(GetType(Form1))

Me.AutoScaleBaseSize = Nuovo System.Drawing.Size (5, 13)
Me.ClientSize = Nuovo System.Drawing.Size (320, 320)
Me.Icon = CType ((resources.GetObject (& quot; $ this.Icon & quot;)), System.Drawing.Icon)
Me.Name = & quot; Form1 & quot;
Me.Text = & quot; Video Capture di anteprima (PlayCap) & quot;
Debug.WriteLine (& quot; Ho cominciato Sub InitializeComponent & quot;)

End Sub

5 Impostare la classe che è responsabile per la cattura video utilizzando il codice seguente come guida per codificare la propria applicazione:

Public Sub CaptureVideo ()

Dim sourceFilter As IBaseFilter = Nothing
Try
Big chunk of code
Catch ex As Exception
MessageBox.Show("An unrecoverable error has occurred.With error : " &
ex.ToString)
End Try

End Sub

hr Dim As Integer = 0

6 Compilare il codice VB in un'applicazione eseguibile e quindi eseguire l'applicazione per iniziare a usarlo come un programma di registrazione video.