Do you know which one that API uses though? That is the important question. I found it on planet-source-code a long time ago. I really don't understand any of this stuff...
here is the 'connect' function, which might help answer the question for someone who knows what they are talking about.
VB Code:
Private Function Connect() As Boolean Dim lpszName As String * 100 Dim lpszVer As String * 100 Dim Caps As CAPDRIVERCAPS '//Create Capture Window capGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100 '// Retrieves driver info lwndC = capCreateCaptureWindowA(lpszName, WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, _ ScaleX(2000, vbTwips, vbPixels), _ ScaleX(100, vbTwips, vbPixels), _ 100, _ 120, _ Me.hWnd, 0) '// Set title of window to name of driver SetWindowText lwndC, lpszName '// Set the video stream callback function capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback capSetCallbackOnError lwndC, AddressOf MyErrorCallback '// Connect the capture window to the driver If capDriverConnect(lwndC, 0) Then '///// '// Only do the following if the connect was successful. '// if it fails, the error will be reported in the call '// back function. '///// '// Get the capabilities of the capture driver capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps) '// If the capture driver does not support a dialog, grey it out '// in the menu bar. ' If Caps.fHasDlgVideoSource = 0 Then mnuSource.Enabled = False ' If Caps.fHasDlgVideoFormat = 0 Then mnuFormat.Enabled = False ' If Caps.fHasDlgVideoDisplay = 0 Then mnuDisplay.Enabled = False '// Turn Scale on capPreviewScale lwndC, True '// Set the preview rate in milliseconds capPreviewRate lwndC, 66 '// Start previewing the image from the camera capPreview lwndC, True '// Resize the capture window to show the whole image ResizeCaptureWindow lwndC Connect = True Else Connect = False End If End Function




Reply With Quote