84 lines
2.5 KiB
VB.net
84 lines
2.5 KiB
VB.net
|
Public Class UtsAppManager
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备运行APP列表,键为APP名称，值为App对象
|
|||
|
|
''' </summary>
|
|||
|
|
Private _appDic As Dictionary(Of String, UtsApp)
|
|||
|
|
|
|||
|
|
Private _clientDic As Dictionary(Of Net.Sockets.TcpClient, UtsApp)
|
|||
|
|
|
|||
|
|
Sub New()
|
|||
|
|
_appDic = New Dictionary(Of String, UtsApp)
|
|||
|
|
_clientDic = New Dictionary(Of Net.Sockets.TcpClient, UtsApp)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub AddApp(app As UtsApp)
|
|||
|
|
If _appDic.ContainsKey(app.Name) = False Then
|
|||
|
|
_appDic.Add(app.Name, app)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 判断App是否存在队列中
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="appName"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Function AppExists(appName As String) As Boolean
|
|||
|
|
Return _appDic.ContainsKey(appName)
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取UtsApp对象，没有则添加对象至队列后再返回
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="appName"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Function GetApp(appName As String) As UtsApp
|
|||
|
|
Static lock As New Object
|
|||
|
|
|
|||
|
|
SyncLock lock
|
|||
|
|
If _appDic.ContainsKey(appName) = False Then
|
|||
|
|
ServiceLog.WriteDebugLog($"{appName} Add!")
|
|||
|
|
_appDic.Add(appName, New UtsApp())
|
|||
|
|
End If
|
|||
|
|
End SyncLock
|
|||
|
|
|
|||
|
|
Return _appDic(appName)
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取当前App列表
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Function GetAllApps() As List(Of UtsApp)
|
|||
|
|
Return _appDic.Values.ToList()
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Function GetClientBindApp(client As Net.Sockets.TcpClient) As UtsApp
|
|||
|
|
If _clientDic.ContainsKey(client) Then
|
|||
|
|
Return _clientDic(client)
|
|||
|
|
Else
|
|||
|
|
Return Nothing
|
|||
|
|
End If
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Sub BindClientAndApp(client As Net.Sockets.TcpClient, app As UtsApp)
|
|||
|
|
Static lock As New Object
|
|||
|
|
|
|||
|
|
SyncLock lock
|
|||
|
|
If _clientDic.ContainsKey(client) = False Then
|
|||
|
|
_clientDic.Add(client, app)
|
|||
|
|
ServiceLog.WriteDebugLog($"{_clientDic(client).Name} Connect!")
|
|||
|
|
End If
|
|||
|
|
End SyncLock
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Sub CancelClientBind(client As Net.Sockets.TcpClient)
|
|||
|
|
If _clientDic.ContainsKey(client) Then
|
|||
|
|
ServiceLog.WriteDebugLog($"{_clientDic(client).Name} Disconnect!")
|
|||
|
|
_clientDic(client).Status = UtsApp.AppStatus.Closed
|
|||
|
|
_clientDic(client).Client = Nothing
|
|||
|
|
_clientDic.Remove(client)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
End Class
|