IsVideoPreviewAvailable Method

Imports Leadtools 
      Imports Leadtools.Codecs 
      Imports Leadtools.Wia 
 
      <TestMethod()> _ 
#If Not LEADTOOLS_V19_OR_LATER Then 
      Public Sub IsVideoPreviewAvailableExample(ByVal parent As IWin32Window) 
#Else 
      Public Sub IsVideoPreviewAvailableExample(ByVal parent As IntPtr) 
#End If ' #If LEADTOOLS_V19_OR_LATER Then 
         If (Not wiaSession.IsAvailable(WiaVersion.Version1)) Then 
            MessageBox.Show("WIA version 1.0 not installed.") 
            Return 
         End If 
         Dim session As WiaSession = New WiaSession() 
         session.Startup(WiaVersion.Version1) 
 
         Dim res As DialogResult = session.SelectDeviceDlg(parent, WiaDeviceType.StreamingVideo, WiaSelectSourceFlags.NoDefault) 
         If res <> DialogResult.OK Then 
            MessageBox.Show("Error selecting WIA device.") 
            session.Shutdown() 
            Return 
         End If 
 
         ' start the video preview 
         wiaSession.StartVideoPreview(parent, False) 
 
         ' determine whether a video preview is available 
         Dim available As Boolean = wiaSession.IsVideoPreviewAvailable() 
         If (Not available) Then 
            MessageBox.Show("No streaming video available.") 
            wiaSession.EndVideoPreview() 
            wiaSession.Shutdown() 
            Return 
         End If 
 
         'Resize the video preview area to fit the parent window. 
         'I am calling this resize function here only for demonstration purposes, but you 
         'should call it in your window resize event. 
         wiaSession.ResizeVideoPreview(True) 
 
         ' acquire an image from the video source. 
         Dim takenPictureFileName As String = wiaSession.AcquireImageFromVideo() 
 
         Dim strMsg As String = String.Format("Acquired image was saved to the following path:\n{0}", takenPictureFileName) 
         MessageBox.Show(strMsg) 
 
         wiaSession.EndVideoPreview() 
         session.Shutdown() 
      End Sub