Reproduced:线程安全的 Singleton - Visual Basic
来源:互联网 发布:redhat linux rm恢复 编辑:程序博客网 时间:2024/04/20 10:57
大抵而言,Singleton 模式应该是设计模式中相当常用的一种了。它能够节省宝贵的 CPU 或内存资源,避免不必要的创建对象开销。然而,在多线程应用中,对于那些非线程安全的数据库组件,传统的 Singleton 将容易造成不稳定。如果使用 Synclock 进行同步,性能损耗可能将更大,特别在并发访问高的 ASP.net 应用中。
前十几天和装配脑袋聊天的时候,他把 ThreadwiseSingleton 发给了我,我随后改写成泛型类。事实上,它基于 Threadslot 构建,因此达到了线程隔离的效果。您需要传入一个 Func(Of TResult) 完成初始化的工作。如果您的类中含有非托管资源,并无法预见可能的错误时,请使用一个 Try...Finally... 包裹将要运行的程序。同时感到抱歉的是,拖延了很久很久才发出来。
前十几天和装配脑袋聊天的时候,他把 ThreadwiseSingleton 发给了我,我随后改写成泛型类。事实上,它基于 Threadslot 构建,因此达到了线程隔离的效果。您需要传入一个 Func(Of TResult) 完成初始化的工作。如果您的类中含有非托管资源,并无法预见可能的错误时,请使用一个 Try...Finally... 包裹将要运行的程序。同时感到抱歉的是,拖延了很久很久才发出来。
Imports System.Threading
''' <summary>
''' 一个线程隔离的 Singleton。
''' </summary>
Public Class ThreadwiseSingletonClass ThreadwiseSingleton(Of T As IDisposable)
Private Shared _Factory As Func(Of T)
''' <summary>
''' 获取构建此实例的工厂类。
''' </summary>
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
''' <summary>
''' 获得线程中的唯一实例。
''' </summary>
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
''' <summary>
''' 私有的构造函数。
''' </summary>
Private Sub New()Sub New()
End Sub
''' <summary>
''' 释放此 Singleton 实例使用的资源。请不要直接调用 Instance.Dispose()。
''' </summary>
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
''' <summary>
''' 一个线程隔离的 Singleton。
''' </summary>
Public Class ThreadwiseSingletonClass ThreadwiseSingleton(Of T As IDisposable)
Private Shared _Factory As Func(Of T)
''' <summary>
''' 获取构建此实例的工厂类。
''' </summary>
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
''' <summary>
''' 获得线程中的唯一实例。
''' </summary>
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
''' <summary>
''' 私有的构造函数。
''' </summary>
Private Sub New()Sub New()
End Sub
''' <summary>
''' 释放此 Singleton 实例使用的资源。请不要直接调用 Instance.Dispose()。
''' </summary>
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
- Reproduced:线程安全的 Singleton - Visual Basic
- singleton 线程安全的singleton
- 线程安全的singleton
- 线程安全的singleton
- 线程安全的singleton
- 线程安全的singleton实例
- 线程安全的C++的Singleton实现
- 编写线程安全的单件(Singleton)
- c# SingleTon的线程安全(存档)
- python 线程安全的单例 singleton
- ace allocator 和 singleton 的线程安全
- C++实现线程安全的Singleton
- Spring中Singleton模式的线程安全
- Spring中Singleton模式的线程安全
- Spring中Singleton模式的线程安全
- Spring中Singleton模式的线程安全
- Spring中Singleton模式的线程安全
- 线程安全的 C++ Singleton 实现
- Reproduced:Investing 101: Introduction
- ffmpeg笔记
- Hibernate为什么会如此流行
- 在vdsp(bf561)中自定义Stack和Heap
- 告诉你真实的韩国
- Reproduced:线程安全的 Singleton - Visual Basic
- 西欧简介
- VPN简介
- 我的javascript学习之路(三) 对象之this
- Ogre与Equalizer的集成
- Linux 汇编语言开发指南
- 表单验证,包括复选框
- 我的javascript学习之路(四) 对象之function
- EJB 最佳实践: 业务委派模式