Πώς να αναπτύξετε μια εφαρμογή DirectShow κάμερα

DirectShow είναι ένα βίντεο συλλαμβάνει πρόγραμμα λογισμικού ανοικτού κώδικα . Με τη χρήση του κωδικού της βάσης , μπορείτε να αναπτύξετε μια εφαρμογή που μπορεί να καταγράψει βίντεο που μεταδίδονται στον υπολογιστή σας από μια συσκευή εισόδου, όπως μια κάμερα ή μια ψηφιακή κάμερα . Ο κώδικας βασίζεται σε Visual Basic της Microsoft . NET γλώσσα προγραμματισμού , έτσι ώστε να αναπτυχθεί μια εφαρμογή της κάμερας DirectShow , θα χρειαστείτε το Microsoft Visual Studio . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Visual Studio και να δημιουργήσετε ένα νέο έγγραφο για να κωδικοποιήσει την εφαρμογή DirectShow σας .
Η 2

εισαγωγή των κατάλληλων βιβλιοθήκες κώδικα για την εφαρμογή DirectShow , χρησιμοποιώντας τον ακόλουθο κώδικα :

εισαγωγές SystemImports System.DiagnosticsImports System.DrawingImports System.Runtime.InteropServicesImports System.Windows.FormsImports DirectShowLibImports System.Runtime.InteropServices . ComTypes εικόνων
3

Δημιουργήστε ένα χώρο ονομάτων και ορίστε τις μεταβλητές για την εφαρμογή ? ​​για παράδειγμα :

Περιοχή Capture_The_Webcam Δημόσιας Τάξης Form1Inherits System.Windows.Forms.FormEnd ClassEnd Περιοχή

κλικΑπαρίθμηση PlayState

έπαψε = 0Paused = 1Running = 2Init = 3End EnumDim currentState Όπως PlayState = PlayState.Stopped
Η

4 Ρυθμίστε τις υπορουτίνες που θα ξεκινήσει και εκτελέστε την εφαρμογή τη στιγμή που θα έχουν συνταχθεί :

Private Sub InitializeComponent ( )

Dim πόροι Όπως System.Resources.ResourceManager = Νέα System.Resources.ResourceManager ( gettype ( Φόρμα1 ) )

Me . AutoScaleBaseSize = Νέα System.Drawing.Size ( 5 , 13 ) Me.ClientSize = Νέα 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 ( «Άρχισα Sub InitializeComponent " Sub ) End
5

Ρυθμίστε την τάξη που είναι υπεύθυνος για τη λήψη βίντεο , χρησιμοποιώντας τον ακόλουθο κώδικα ως οδηγός για την κωδικοποίηση δική σας εφαρμογή :

Public Sub CaptureVideo ( ) Dim sourceFilter όπως IBaseFilter = NothingTryBig κομμάτι της codeCatch πρώην όπως ExceptionMessageBox . Εμφάνιση ( " ανεπανόρθωτο σφάλμα έχει occurred.With λάθους: " & ex.ToString ) End Sub TryEnd

Dim ώρα As Integer = 0
Η 6

Συντάξτε τον κώδικα VB σε μια εκτελέσιμη εφαρμογή και , στη συνέχεια, εκτελέστε την εφαρμογή για να αρχίσετε να το χρησιμοποιείτε ως ένα πρόγραμμα εγγραφής βίντεο .
Η
εικόνων