Iβve been working on a VB .NET app to capture video from a webcam. The app started off using a for-pay ActiveX control that I was never particularly happy with. It was expensive, didnβt work very well, and was a pain to distribute.
Imagine my great surprise when I learned that all of the video-capture functionality I needed was available through the Windows API (specifically avicap32.dll). Apparently, DirectShow can also be used but my needs are pretty basic and DirectShow seemed like overkill.
Iβll go into some of the details of actually capturing video in a later post. For now, I want to talk about handling Windows API Callbacks. There are a number of events that the video capture API can fire (real-time status messages, etc) and the only way to handle those events is by registering a callback.
For a very thorough description of whatβs actually going on, take a look at Implementing Callback Notifications Using Delegates (Ted Pattison). Iβm just to cover the basic code to get something working.
In this example, weβre going to set up a callback to handle video capture status messages. This is done by sending a WM_CAP_SET_CALLBACK_STATUS message to the capture hWnd along with a pointer to the callback function. In VB .NET, this is handled using a function Delegate.
Define the delegate
The callback function weβre implementing is capStatusCallback() so our delegate will look like this:
Public Delegate Sub capStatusCallback(ByVal hwnd As Integer, ByVal nID As Integer, ByVal lpsz As String)
Define the function to pass the appropriate message
Most Windows API windowing functions involve sending various messages to window handles. This is true even for the video capture functions.
Youβve probably seen code like this for defining the SendMessage function
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Integer, ByVal Msg As Integer, _ ByVal wParam As Integer, _ ByVal lParam As Object) As Integer
In this case, our function will look exactly like the above except the last parameter will be the capStatusCallback delegate type instead of an Object.
Public Declare Function SendStatusCallbackMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Integer, ByVal Msg As Integer, _ ByVal wParam As Integer, _ ByVal lParam As capStatusCallback) As Integer
Define the callback function to be called
This is a regular VB function that has the same signature as the delegate we defined above.
Public Sub HandleStatusCallBack(ByVal hwnd As Integer, ByVal nID As Integer, ByVal lpsz As String) debug.print(lpsz)End Sub
Register the callback
The final step is to send the message that actually registers the callback with the window.
SendStatusCallbackMessage(hWnd, WM_CAP_SET_CALLBACK_STATUS, 0, AddressOf HandleStatusCallBack)
Weβre send the appropriate message (WM_CAP_SET_CALLBACK_STATUS) to the window along with the address of the function to be called.
Thereβs a lot of extra stuff happening behind the scenes in terms of actually wiring up your callback function to the Windows API but you donβt necessarily have to understand it to use it.