top
Loading...

VisualBasic構建線程安全的Singleton
本文轉自博客園，文中內容不代表本站觀點，僅提供參考

大抵而言，Singleton 模式應該是設計模式中相當常用的一種了。它能夠節省寶貴的 CPU 或內存資源，避免不必要的創建對象開銷。然而，在多線程應用中，對于那些非線程安全的數據庫組件，傳統的 Singleton 將容易造成不穩定。如果使用 Synclock 進行同步，性能損耗可能將更大，特別在并發訪問高的 ASP.net 應用中。

前十幾天和網友聊天的時候，他把 ThreadwiseSingleton 發給了我，我隨后改寫成泛型類。事實上，它基于 Threadslot 構建，因此達到了線程隔離的效果。您需要傳入一個 Func(Of TResult) 完成初始化的工作。如果您的類中含有非托管資源，并無法預見可能的錯誤時，請使用一個 Try...Finally... 包裹將要運行的程序。同時感到抱歉的是，拖延了很久很久才發出來。

Imports System.Threading

'''
''' 一個線程隔離的 Singleton。
'''
Public Class ThreadwiseSingletonClass ThreadwiseSingleton(Of T As IDisposable)
Private Shared _Factory As Func(Of T)

'''
''' 獲取構建此實例的工廠類。
'''
Public Shared Property Factory()Property Factory() As Func(Of T)
Get
Return _Factory
End Get
Set(ByVal value As Func(Of T))
_Factory = value
End Set
End Property
'''
''' 獲得線程中的唯一實例。
'''
Public Shared ReadOnly Property Instance()Property Instance() As T
Get
Dim threadSlot As LocalDataStoreSlot = Thread.GetNamedDataSlot(GetType(T).ToString)
Dim threadSlotObj As Object = Thread.GetData(threadSlot)

If threadSlotObj Is Nothing Then
'Create singleton instance
Dim ins As T = Factory.Invoke
Thread.SetData(threadSlot, ins)
Return ins
Else
Return DirectCast(threadSlotObj, T)
End If
End Get
End Property

'''
''' 私有的構造函數。
'''
Private Sub New()Sub New()

End Sub
'''
''' 釋放此 Singleton 實例使用的資源。請不要直接調用 Instance.Dispose()。
'''
Public Shared Sub Dispose()Sub Dispose()
Instance.Dispose()
'放空槽
Dim threadSlot As LocalDataStoreSlot = Thread.GetNamedDataSlot(GetType(T).ToString)
Thread.SetData(threadSlot, Nothing)
End Sub
End Class

查閱關于 VB 的全部文檔
作者：http://www.zhujiangroad.com
來源：http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗