vb.net-Instanz von MemoryCache gibt immer nichts aus dem Cache

Question

Ich versuche, eine Instanz der MemoryCache-Klasse zu erstellen, um einige Dokument Informationen zwischenzuspeichern. Problem ist, dass, obwohl ich keine Ausnahmen bekomme, die MemoryCache-Instanz immer 'Nothing' zurückgibt. Ich verwende die folgenden Code-Teile;

Bau der Instanz:

Private Shared ObjInfoCache As MemoryCache 
Public Sub New() 
    Dim CacheSettings As NameValueCollection = New NameValueCollection(3) 
    CacheSettings.Add("CacheMemoryLimitMegabytes", 1024.ToString()) 
    CacheSettings.Add("physicalMemoryLimitPercentage", 50.ToString()) 
    CacheSettings.Add("pollingInterval", TimeSpan.FromMinutes(2).ToString()) 
    ObjInfoCache = New MemoryCache("TestCache", CacheSettings) 
End Sub 

Code, speichert/ruft die Informationen (die immer in die if-Anweisung springt):

arrayOfPropValues = ObjInfoCache(docID) 
If arrayOfPropValues Is Nothing Then 
    arrayOfPropValues = GetDocumentInfo(docID, arrayOfPropNames) 
    ObjInfoCache.Add(docID, arrayOfPropValues, New CacheItemPolicy() With {.AbsoluteExpiration = DateTimeOffset.Now.AddMinutes(60)}) 
End If 

Durch Tests ich gefunden habe, mit, dass die Standard-Memory Beispiel ObjInfoCache = MemoryCache.Default funktioniert perfekt. Es lässt mich jedoch nicht die Limit-Eigenschaften festlegen, die ich brauche. Ich habe auch versucht, eine neue MemoryCache-Instanz zu erstellen, ohne die Einstellungen ObjInfoCache = new MemoryCache("TestCache") hinzuzufügen, die immer noch Nothing zurückgibt.

Ich bin mit .NET Framework 4

Answer 1

über die Rückkehr; Ich meinte es nichts zurückgegeben, wenn eine Variable aus dem Cache-Instanz aufrufen

Ich vermute, dass Sie mehrere Instanz der Klasse erstellen, die ObjInfoCache.

Sie definiert ObjInfoCache als Shared, erklärt haben, damit ihre Referenz ist gemeinsam, alle Instanzen der Klasse. Sie initialisieren diese Referenz jedoch im Klasseninstanzkonstruktor (Public Sub New()). Ändern Sie den Konstruktor in Shared, sodass es nur einmal ausgeführt wird, wenn auf den Typ verwiesen wird.

Shared Sub New() 
    Dim CacheSettings As NameValueCollection = New NameValueCollection(3) 
    CacheSettings.Add("CacheMemoryLimitMegabytes", 1024.ToString()) 
    CacheSettings.Add("physicalMemoryLimitPercentage", 50.ToString()) 
    CacheSettings.Add("pollingInterval", TimeSpan.FromMinutes(2).ToString()) 
    ObjInfoCache = New MemoryCache("TestCache", CacheSettings) 
End Sub