CheckConnection Method

'Declaration
 
<DispIdAttribute(1)>
Sub CheckConnection( _
   ByVal URL As String, _
   ByVal Flags As Integer, _
   ByVal Timeout As Integer _
) 

Public _result As Boolean = False
Public _serverAndClient As CaptureAndPlayCtrlForm = New CaptureAndPlayCtrlForm()
Private _msgSent As Boolean = False
Private _captureCtrl As CaptureCtrl
Private _playCtrl As PlayCtrl

Private Const _networkUrl As String = "ltsf://127.0.0.1:27015" ' network stream url
Private Const _testMessage As String = "LEAD NETWORK"

Public Sub NetworkSourceExample()
  ' reference the capture control
  _captureCtrl = _serverAndClient.CaptureCtrl

  ' reference the play control
  _playCtrl = _serverAndClient.PlayCtrl

  Try
     ' try to find a video camera
     If _captureCtrl.VideoDevices("Logitech") Is Nothing Then
       Throw New Exception("No Logitech video device available")
     End If

     _captureCtrl.VideoDevices("Logitech").Selected = True

     ' select a video compressor
     _captureCtrl.VideoCompressors.Mpeg4.Selected = True

     ' set the target output file
     _captureCtrl.TargetFormat = TargetFormatType.NET
     _captureCtrl.TargetFile = _networkUrl

     If _captureCtrl.IsModeAvailable(CaptureMode.Video) Then
       ' just 10 seconds of capture time
       _captureCtrl.TimeLimit = 10
       _captureCtrl.UseTimeLimit = True

       _captureCtrl.FrameRate = 30
       _captureCtrl.UseFrameRate = True

       _captureCtrl.Preview = True

       ' subscribe to the started and progress events for this example
       ' we will connect a client after the capture starts
       AddHandler _captureCtrl.Started, AddressOf CaptureCtrl_Started

       ' ready the capture graph in order to get the LNMetMux instance
       _captureCtrl.ReadyCapture(CaptureMode.Video)

       ' start capture
       _captureCtrl.StartCapture(CaptureMode.Video)

       ' we'll loop on the state and pump messages for this example.
       ' but you should not need to if running from a Windows Forms application.
       Do While _captureCtrl.State = CaptureState.Running OrElse _playCtrl.State = PlayState.Running
         Application.DoEvents()
       Loop
     End If
  Catch e1 As Exception
     _result = False
  End Try
End Sub

Private Sub CaptureCtrl_Started(ByVal sender As Object, ByVal e As EventArgs)
  StartClient()
End Sub

Private Sub StartClient()
  Try
     Dim netSrc As LMNetSrc = New LMNetSrc()
     netSrc.CheckConnection(_networkUrl, 0, 5000)
     _result = True
     Marshal.ReleaseComObject(netSrc)
  Catch cex As COMException
     ' could not connect
     _result = False
     Return
  End Try

  ' connects the client player
  _playCtrl.SourceFile = _networkUrl
End Sub