LicenseManager Constructor (LicenseManager)

Imports Leadtools
Imports Leadtools.MediaStreaming

Public Class LicenseHolder
  Protected m_licmgr As LicenseManager
  Protected m_service As Boolean
  Protected m_verbose As Boolean
  Protected m_title As String

  Public Sub New(ByVal verbose As Boolean, ByVal title As String, ByVal service As Boolean)
     m_service = service
     m_verbose = verbose
     m_title = title
  End Sub
  Protected Overrides Sub Finalize()

  End Sub

  Protected Function IsDisplayEnabled() As Boolean
     Return (m_verbose AndAlso (Not m_service))
  End Function

  Protected Function DisplayLicenseError(ByVal message As String) As DialogResult
     Return MessageBox.Show(message, m_title, MessageBoxButtons.OK, MessageBoxIcon.Error)
  End Function

  Public Sub LoadLicenseManager()
     Try
       If m_licmgr Is Nothing Then
         m_licmgr = New LicenseManager()
       End If
     Catch ex As System.Exception
       If IsDisplayEnabled() Then
         DisplayLicenseError("Can't instantiate LEAD Media Streaming License Manager")
       End If

       Throw ex
     End Try
  End Sub

  Public Sub SetLicense(ByVal license As String, ByVal key As String, ByVal flags As SetLicenseFlags)
     LoadLicenseManager()

     Try
       ' Sets the license for the calling application
       m_licmgr.SetLicense(license, key, CInt(flags))
     Catch ex As System.Exception
       If IsDisplayEnabled() Then
         DisplayLicenseError("Your license file is missing, invalid or expired. The LEAD Media Streaming Library will not function. Please contact LEAD Sales for information on obtaining a valid license.")
         Process.Start("https://www.leadtools.com/downloads/evaluation-form.asp?evallicenseonly=true")
       End If

       Throw ex
     End Try
  End Sub
  Public Sub UnloadLicenseManager()
     m_licmgr.Dispose()
     m_licmgr = Nothing
  End Sub

End Class


Public _server As Server = Nothing
Public _result As Boolean = False

Public Sub LicenseHolderExample()
  Try
     ' create an instance of the LicenseHolder class
     Dim holder As LicenseHolder = New LicenseHolder(True, "Leadtools MediaStreaming Server", False)

     ' set the license
     holder.SetLicense("ltmsAppFolder\LEADTOOLS.LIC", "ltmsAppFolder\LEADTOOLS.LIC.KEY", SetLicenseFlags.LicenseIsFile Or SetLicenseFlags.KeyIsFile)

     ' create an instance of the server object
     _server = New Leadtools.MediaStreaming.Server()

     ' start the server
     _server.Start()

     ' confirm the running state for demonstration purposes
     If _server.State = State.Started Then
       ' display a message that the server is running and wait for OK
       MessageBox.Show("The server has started. Press OK to stop.", "LEADTOOLS Media Streaming Examples", MessageBoxButtons.OK, MessageBoxIcon.Information)
     End If

     ' stop the server
     _server.Stop()

     ' unload the license
     holder.UnloadLicenseManager()

     _result = True
  Catch e1 As Exception
     _result = False
  End Try
End Sub