List Video Devices Using Video for Windows (vfw)


Skip Navigation Links.
Introduction
Imports
Visual Basic Source Code
Private m_lstVideoSources As New ArrayList

Public Function ListVideoSources() As ArrayList
   Dim DriverName As String = Space(80)
   Dim DriverVersion As String = Space(80)
      For i As Integer = 0 To 9
         If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
            m_lstVideoSources.Add(DriverName.Trim)
         End If
      Next
Return m_lstVideoSources
End Function

Copyright 2004-2010 Excalibur software Solutions All rights reserved

Note: Any unsolicited email sent to Excalibur Software Solutions or any members of Excalibur Software Solutions, will be archived and a fee of $5.00 dollars US per email per month will be charged to the content owner of said email. The Content Owner must inform Excalibur Software Solutions in writing; they no longer require archive services for each email archived within 30 days of cancelation. The content holder is defined as the entities represented in email regardless of sender. The sender is the representative of the content holder.