SnowMaker. Azure 용 닷넷 라이브러리

Question

내 vb.net 웹 앱에서 위의 라이브러리를 사용하고 있습니다. 스노우 메이커를 개발 한 사람은 ID를 원할 때마다 새로운 인스턴스를 생성해서는 안되며 기본 싱글 톤을 사용해야한다고 말했다.

나는 싱글 톤이 무엇인지는 알고 있지만 사용하지는 않았다. 내가 스택 오버플로 여기

Public NotInheritable Class MySingleton 
    Private Shared ReadOnly _instance As New Lazy(Of MySingleton)(Function() New 
     MySingleton(), System.Threading.LazyThreadSafetyMode.ExecutionAndPublication) 

    Private Sub New() 
    End Sub 

    Public Shared ReadOnly Property Instance() As MySingleton 
     Get 
      Return _instance.Value 
     End Get 
    End Property 
End Class 

에 걸쳐 온 내가 생성하는 데 사용하고 코드 인 ID의

작동하지만, 어떻게 싱글 톤 클래스에 있음을 통합 할

Dim storageAccount As CloudStorageAccount = CloudStorageAccount.Parse(ConfigurationManager.ConnectionStrings("blobStorage").ConnectionString) 
Dim ds As New BlobOptimisticDataStore(storageAccount, "container-name") 

Dim generator = New UniqueIdGenerator(ds) 
Dim ret = generator.NextId(table) 

그래서 I 내 웹 앱에서 한 번만 호출 할 수 있습니까?

Answer 1

싱글 톤은 원하는만큼 여러 번 호출 할 수 있고 한 번에 하나의 호출 만 실행하도록 보장 할 수있는 정적 개체입니다.

싱글 톤을 인스턴스화하지 않습니다. 클래스 레벨이나 방금 호출 한 전역 개체와 같습니다. 당신은 UniqueIdGenerator에 대한 코드를 포함 havent 한, 그러나 당신의 코드를 다음과 같이 보일 수 있습니다 :

Imports SnowMaker 
Imports Microsoft.WindowsAzure.Storage 

Module Module1 

    Sub Main() 
     Dim storageAccount = CloudStorageAccount.Parse("xxxxxxxxxxxxxxxxxxxxxxxxxxxxx") 
     Dim ds As New BlobOptimisticDataStore(storageAccount, "vhds") 

     MySingleton.Instance.DataSource = ds 
     MySingleton.Instance.Table = "table" 
     Dim myid = MySingleton.Instance.NextId 
     Dim myid2 = MySingleton.Instance.NextId 
     Dim myid3 = MySingleton.Instance.NextId 
     Dim myid4 = MySingleton.Instance.NextId 

    End Sub 

End Module 

이 그런 다음 싱글 코드가 발생하여 도움을

Imports SnowMaker 

Public NotInheritable Class MySingleton 
    Private Shared ReadOnly _instance = New Lazy(Of MySingleton)(Function() New MySingleton(), System.Threading.LazyThreadSafetyMode.ExecutionAndPublication) 
    Private _generator As UniqueIdGenerator 

    Private Sub New() 
    End Sub 

    Public Shared ReadOnly Property Instance() As MySingleton 
     Get 
      Return _instance.Value 
     End Get 
    End Property 

    Private _ds As BlobOptimisticDataStore 
    Public Property DataSource() As BlobOptimisticDataStore 
     Get 
      Return _ds 
     End Get 
     Set(ByVal value As BlobOptimisticDataStore) 
      _ds = value 
     End Set 
    End Property 

    Private _tableName As String 
    Public Property Table() As String 
     Get 
      Return _tableName 
     End Get 
     Set(ByVal value As String) 
      _tableName = value 
     End Set 
    End Property 

    Private _Id As Integer 
    Public ReadOnly Property NextId() As Integer 
     Get 
      If _generator Is Nothing Then 
       _generator = New UniqueIdGenerator(_ds) 
      End If 
      Return _generator.NextId(_tableName) 
     End Get 
    End Property 

End Class