ConcurrentDictionary Liste

BigBen2003 · 27. Juli 2018, 17:53

Hallo,

in einer ConcurrentDictionary-Liste sollen HostInformationen abgelegt werden.

Standardmäßig werden im Key keine doppelte Werte zugelassen.

In diesem Falle handelt es sich beim Key um einen eigenen Typ "HostInfosKey". Damit "ConcurrentDictionary" doppelte Keys prüfen kann, müssen zwei Methoden vorhanden sein:

GetHashCode
Equals

Quelle: stackoverflow.com/questions/27…-same-keys-more-than-once
Die Info steht in der Antwort auf die in der Webseite gestellte Frage.

Beide Methoden sind in der Klasse "HostInfosKey" vorhanden.

Im Beispiel werden auch für beide Variablen myKey1 und myKey2 identische HashWerte ausgegeben.
Dennoch werden immer in der Liste myHosts zwei Einträge mit identischem Key angelegt.

Im Beispiel werden beide Variablen myKey1 und myKey2 mit equals miteinander verglichen und als identisch ausgegeben.

Wenn zweimal der Befehl TryAdd mit der identischer Variable ausgeführt wird, wird in der Liste myHosts korrekterweise nur ein Eintrag angelegt:

VB.NET-Quellcode

myHosts.TryAdd(key:=myKey1, value:="systemA")
myHosts.TryAdd(key:=myKey1, value:="SystemB")

Kann mir jemand erklären, warum das so ist?

Spoiler anzeigen

VB.NET-Quellcode

Module Module2
Public Class HostInfosKey
Enum HostProperty
Hostname = 0
PingReply = 1
Ping = 2
IPAddress = 3
MacAddress = 4
End Enum
Public HostID As Double
Public Name As HostProperty
Overrides Function ToString() As String
Return HostID.ToString & "/" & Name.ToString
End Function
''' <summary>
''' Hash-Code bilden
''' </summary>
''' <returns>Integer-Wert</returns>
Overrides Function GetHashCode() As Integer
Dim myText = Me.ToString
Dim myHash = myText.GetHashCode
Console.WriteLine("String: {0}, Hash: {1}", myText, myHash)
Return myHash
End Function
''' <summary>
''' Vergleicht zwei HostInfosKey-Werte
''' </summary>
''' <param name="value">zu vergleichender HostInfosKey-Wert</param>
''' <returns></returns>
Overloads Function Equals(value As HostInfosKey) As Boolean
Return CBool(value.HostID = Me.HostID And value.Name = Me.Name)
End Function
End Class
Public myHosts As New Concurrent.ConcurrentDictionary(Of HostInfosKey, Object)
Sub Main()
Dim myHosts As New Concurrent.ConcurrentDictionary(Of HostInfosKey, Object)
Dim myKey1 = New HostInfosKey With {.HostID = 0, .Name = HostInfosKey.HostProperty.Hostname}
Dim myKey2 = New HostInfosKey With {.HostID = 0, .Name = HostInfosKey.HostProperty.Hostname}
Dim myHash1 = myKey1.GetHashCode
Dim myHash2 = myKey2.GetHashCode
If myKey1.Equals(myKey2) Then
Console.WriteLine("identisch!")
End If
myHosts.TryAdd(key:=myKey1, value:="systemA")
myHosts.TryAdd(key:=myKey2, value:="SystemB")
Console.WriteLine("Anzahl Einträge in myHosts: {0}", myHosts.Count)
Console.WriteLine("")
Console.WriteLine("Auslesen aller Werte")
Console.WriteLine("=========================")
For Each myItem In myHosts
Console.WriteLine("Eintrag: HostID: {0} / Property: {1} / Value: {2}", myItem.Key.HostID, myItem.Key.Name.ToString, myItem.Value)
Next
Console.WriteLine("Ende.. beliebige Taste betätigen")
Console.ReadKey()
End Sub
End Module

RodFromGermany · 27. Juli 2018, 18:56

@BigBen2003 Es sieht so aus, als wäre das ein Framework-Fehler.
Ich hab Deinen Code probiertr und sdann nochmal mit .GetOrAdd(...), geht auch nicht.

BigBen2003 · 27. Juli 2018, 20:15

Hallo RodFromGermany,

vielen Dank für die hilfreiche Information. Da kann man ja lange nach dem Fehler im Code suchen.

Bluespide · 27. Juli 2018, 20:41

Überschreib in dem HostInfosKey die Equals mit Object als parameter nicht HostInfosKey, dann gehts.

RodFromGermany · 27. Juli 2018, 20:58

@Bluespide Jou.
@BigBen2003 So sieht das dann aus:

VB.NET-Quellcode

Public Overloads Overrides Function Equals(obj As Object) As Boolean
Dim value As HostInfosKey = CType(obj, HostInfosKey)
Return CBool(value.HostID = Me.HostID And value.Name = Me.Name)
End Function

ErfinderDesRades · 28. Juli 2018, 00:07

Der Fehler liegt darin, dass Equals überladen wurde, statt es zu überschreiben - so gehts:

VB.NET-Quellcode

Public Overrides Function Equals(obj As Object) As Boolean
Dim value = TryCast(obj, HostInfosKey)
Return value IsNot Nothing AndAlso value.HostID = Me.HostID AndAlso value.Name = Me.Name
End Function

RodFromGermany · 28. Juli 2018, 10:49

@ErfinderDesRades Mein Code ist aus der MSDN.
Freundlicherweise funktionieren unsere beiden Codes.

ErfinderDesRades · 28. Juli 2018, 13:51

MSDN ist echt ein Grotten-Coder, odr?

Und ups - hatte garnet gesehen, dasses ja schon gelöst ist.

RodFromGermany · 28. Juli 2018, 16:59

ErfinderDesRades schrieb:

odr

msdn.microsoft.com/de-de/library/336aedhh(v=vs.100).aspx
Nur dass das Studio die Attribute umgedreht hat.

ErfinderDesRades · 28. Juli 2018, 21:51

Du meinst die Modifizierer (Public Overrides Overloads), odr? Weil Attribute sind was anneres.

Darauf bezog sich meine Beurteilung als "GrottenCode" aber garnet.
Sondern dass die kein TryCast verwenden - sogar gar keinen Cast, sondern das langsamere CType.
Und dass da ein Boolean-Ausdruck nochmal ganz unnötig mit CBool() behandelt wird. Und die TeilAusdrücke werden dort mit And verknüpft statt mit AndAlso.
Und wenn das HostInfosKey mal mit einem FileInfo verglichen wird (was ja eine legale Operation ist), gibts eine InvalidCastException.
Derlei Ineffizienz und sogar Fehlverhalten bezeichne ich mit GrottenCode - vor allem, wenns von MS ihmselbst kommen soll - die müsstens eiglich können.

BigBen2003 · 13. August 2018, 00:24

Hallo Zusammen,

hatte gerade gesehen, dass noch weitere Beiträge geschrieben worden, sind, obwohl das Thema schon längs gelöst wurde.

Dennoch vielen Dank für die weiteren Informationen.

BigBen2003 · 6. September 2018, 20:12

In einem Projekt wurde eine Liste mit einem Benutzerdefiniertem Key-Typ erstellt (Test-Uniy -Klasse siehe unten).

In der Klasse mit dem Benutzerdefiniertem Key-Typ wurden Equals in allen möglichen Varianten angelegt. Dennoch werden mehrfache identische Key-Einträge nicht erkannt.

Zum Testen muss im Visual Studio ein VB.net-Untity-TestProjekt erstellt werden und in der Test-Klasse der nachstehende Code eingesetzt werden.

Vielleicht findet ja jemand eine Lösung?

Solange keine doppelten Key-Einträge mit benutzerdefinierten Key-Typen erkannt werden, muss als Key immer ein "String"-als Typ herhalten, in dem anschließend die Zusammengesetzte Information von HostID und "Name" verglichen werden.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting
''' <summary>
''' Test: Dictionary HostInfosKey
''' </summary>
<TestClass()> Public Class HostInfosKey
Class TestKey
Public HostID As Double
Public Name As String
Public ReadOnly Property HostIDName As String
Get
Return Me.ToString()
End Get
End Property
Public Overloads Function Equals(objA As Object, objB As Object)
If objA IsNot Nothing AndAlso objB IsNot Nothing Then
Return Equals(valA:=CType(objA, TestKey), valB:=CType(objB, TestKey))
Else
Return False
End If
End Function
Public Overloads Function Equals(Obj As Object) As Boolean
If Obj IsNot Nothing Then
If Obj.GetType.Equals(Me.GetType) Then
Return Equals(value:=CType(Obj, TestKey))
End If
End If
Return False
End Function
Public Overloads Function Equals(valA As TestKey, ValB As TestKey) As Boolean
Return valA.Equals(ValB)
End Function
Public Overloads Function Equals(value As TestKey) As Boolean
Return HostID.Equals(value.HostID) And Name.Equals(value.Name)
End Function
Public Overloads Function GetHashCode() As Integer
Return Me.ToString.GetHashCode
End Function
Public Shadows Function [ToString]() As String
Return HostID.ToString & "/" & Name
End Function
End Class
<TestCategory("Scanning HostInfos Concurent-Dictionary")>
<TestMethod()> Public Sub Initialize()
Dim nameHostProperty = "HostName"
Dim myHosts As New Concurrent.ConcurrentDictionary(Of TestKey, Object)
Assert.IsTrue(myHosts.TryAdd(key:=New TestKey With {.HostID = 0, .Name = nameHostProperty}, value:="systemA"))
Assert.IsTrue(myHosts.TryAdd(key:=New TestKey With {.HostID = 1, .Name = nameHostProperty}, value:="systemB"))
' HostID 0 nochmals einfügen, darf nicht erfolgreich sein.
Assert.IsTrue(myHosts.TryAdd(key:=New TestKey With {.HostID = 0, .Name = nameHostProperty}, value:="systemC"), "")
Dim myItems = From hosts In myHosts Select hosts Order By hosts.Key.HostIDName
Dim lastID As String = String.Empty
For Each item In myItems
If item.Key.HostIDName = lastID Then
Assert.Fail("Mehrfache HostIDName-Einträge", "HostIDName: " & item.Key.HostIDName & " ist mehrfach vorhanden")
Else
lastID = item.Key.HostIDName
End If
Next
End Sub
End Class

RodFromGermany · 7. September 2018, 06:18

@BigBen2003 Überlege Dir mal, was genau da passiert:
Es wird nachgesehen, ob zwei Instanzen denselben physischen Speicher belegen (Equals()) Dort musst Du eingreifen und den Inhalt der Instanzen überprüfen.
Also etwa so:

VB.NET-Quellcode

Public Overloads Function Equals(objA As Object, objB As Object)
If objA Is Nothing OrElse objB Is Nothing Then
Return False
End If
Dim a = CType(objA, TestKey)
Dim b = CType(objB, TestKey)
Return a.HostID = b.HostID AndAlso a.Name = b.Name
End Function

BigBen2003 · 7. September 2018, 07:39

Die Lösung liegt in der Funktion GetHashCode.

In einem anderen Forum hat jemand ein kleines Demo erstellt.

Entscheidend ist zusätzlich auch eine Equals-Funktion:

VB.NET-Quellcode

Public Overrides Function Equals(other As Object) As Boolean
' ...
end Function

Weitere Equals Aufrufe werde nicht benötigt.

jvbsl · 7. September 2018, 10:59

@ErfinderDesRades: Bei Reference-Types erzeugt CType exakt den selben Code wie DirectCast, also 0 performance unterschied. Bei ValueTypes siehts interessantererweise anders aus, wenn man von object->primitive hat, dann wird dabei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger aufgerufen(beim cast zu integer), wobei ich davon nur die .Net Core version und mono version überprüfen konnte. DirectCast geht nur, wenn es bereits genau derselbe Typ ist... Es gibt also kein VB.Net äquivalent zu "(int)floatVal", denn CInt macht dasselbe wie CType und ruft die komische compilerservices funktion auf und DirectCast geht bei soetwas gar nicht.
Bei CType von object->custom valuetype passiert etwas ganz interessantes(conversion a->b. Er erzeugt einen Code(in IL), der inetwa dem hier entspricht:

C#-Quellcode

object a = 1.2f;
MyStruct b = default(MyStruct)
if (a != null)
{
b = (MyStruct)a;
}

Natürlich schlägt der Code hier fehl(InvalidCast) ohne implizite Konvertierung von float zu MyStruct, soll aber ja nur veranschaulichen was im Hintergrund passiert. Aber da DirectCast bei "Nothing" fehlschlagen würde ist hier CType tatsächlich die bessere Wahl und ziemlich performant. Selbst schreiben könnte trotzallem noch etwas performanter sein, aber müsste man überprüfen, da die erzeugten Codes doch ziemlich unterschiedlich sind...

Viel mehr als über die Performance von CType würde ich mir bei equals jedoch darüber beschweren, dass z.B. bei einem vergleich von (1).Equals(1.2F) true rauskommen würde, da 1.2f über CType zu 1 wird.

ErfinderDesRades · 8. September 2018, 00:04

am meisten beschwere ich mich darüber, dass der von Rod gezeigte Code eine Exception verursacht, wenn mit einem inkompatiblem Typ verglichen wird.
Mit TryCast wär das nicht passiert.

Weiters beschwerte ich mich über das üflüssige CBool() und über das And - was seit Einführung von AndAlso nur noch als BitOperator verwendet werden sollte.
Wie gesagt: Wenn das von MS ist, haben die da aber ordentlich daneben gegriffen.

jvbsl · 8. September 2018, 09:35

Das mit der exception ist wahr. Hatte mich auch irwie verlesen und interpretiert "wenigstens DirectCast hätte man verwenden können" hast aber gar nicht^^
Und And fast nur als bit Operation. Es gibt Ausnahmen, wenn in jedem Fall auch der sekundäre operand ausgewertet werden soll...

ErfinderDesRades · 8. September 2018, 11:49

jvbsl schrieb:

Bei Reference-Types erzeugt CType exakt den selben IL-Code wie DirectCast

Das stimmt übrigens auch nicht immer:
Wenn eine Klasse den CType-Operator implementiert, wird beim CType-Aufruf dieser auch ausgeführt - bei DirectCast natürlich nicht.

jvbsl · 8. September 2018, 15:14

Kannst du dafür bitte ein konkretes Beispiel nennen?
Denn ich kann weder CType operator für base/derivate class machen, noch für object. Und für alle anderen Fälle, die mir ein gefallen sind erzeugt DirectCast gar keinen Code, weil man ja nicht von beliebigem Typ a zu beliebigem Typ b konvertieren kann...Ansonsten wenn es sich um eine sub/superclass handelt, erzeugt er bei up/downcast wieder denselben code..

ErfinderDesRades · 8. September 2018, 15:58

VB.NET-Quellcode

Public Sub String_CType()
Dim s As String = {"a"c, "s"c, "d"c, "f"c} 'widening CType-Operator (implizit)
Dim chars = CType("asdf", Char()) 'narrowing CType-Operator (explizit aufzurufen)
'chars = DirectCast("asdf", Char()) 'not valid
'chars = TryCast("asdf", Char()) 'not valid
Dim o As Object = "asdf"
chars = TryCast(o, Char()) ' valid, -> Nothing
End Sub

ConcurrentDictionary Liste

ConcurrentDictionary Liste

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

jvbsl schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben