当前位置: 网学 > 编程文档 > VB > 正文

Visual Basic构建线程安全的Singleton

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
  大抵而言,Singleton 模式应该是设计模式中相当常用的一种了。它能够节省宝贵的 CPU 或内存资源,避免不必要的创建对象开销。然而,在多线程应用中,对于那些非线程安全的数据库组件,传统的 Singleton 将容易造成不稳定。如果使用 Synclock 进行同步,性能损耗可能将更大,特别在并发访问高的 ASP.net 应用中。

  前十几天和网友聊天的时候,他把 ThreadwiseSingleton 发给了我,我随后改写成泛型类。事实上,它基于 Threadslot 构建,因此达到了线程隔离的效果。您需要传入一个 Func(Of TResult) 完成初始化的工作。如果您的类中含有非托管资源,并无法预见可能的错误时,请使用一个 TryFinally 包裹将要运行的程序。同时感到抱歉的是,拖延了很久很久才发出来。

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 
  • 上一篇资讯: VB利用GDI+显示PNG图像
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号