Clear Method (LiveStreams)

Imports Leadtools 
Imports Leadtools.MediaStreaming 
 
 
Public _server As Server = Nothing 
Public _result As Boolean = False 
 
Public Sub DeleteLiveStreamExample() 
   Try 
      Dim strPath As String = "Live/Stream1" ' live stream's path to delete 
 
      ' create an instance of the server object 
      _server = New Leadtools.MediaStreaming.Server() 
 
      ' retrieve a copy of the Live Streams 
      Dim Streams As LiveStreams = _server.GetLiveStreams() 
 
      ' search for existing stream with same path 
 
      Dim bStreamFound As Boolean = False 
      Dim nIndex As Integer = 0 
      Do While nIndex < Streams.Count 
         Dim stream As LiveStream = Streams.GetLiveStream(nIndex) 
 
         If stream.Path = strPath Then 
            bStreamFound = True 
 
            ' remove it 
            Streams.Remove(nIndex) 
            Exit Do 
         End If 
         nIndex += 1 
      Loop 
 
      If (Not bStreamFound) Then 
         ' remove all the streams 
         Streams.Clear() 
      End If 
 
      _server.SetLiveStreams(Streams) 
 
      _result = True 
   Catch e1 As Exception 
 
      _result = False 
   End Try 
End Sub