无法将System.Collections.Hashtable强制转换为System.Collections.Generic.IDictionary类型

时间:2016-03-01 12:03:34

标签: vb.net logging casting exception-handling enterprise-library-5

我正在使用Enterprise library 5.0,实际上是日志块。在某些情况下,如果与远程终点的连接不成功,我将处理以下异常:

Public Function Connect(ByVal sender As Socket) As Integer
    Dim result As Integer

    result = -1

    Try
        ' Connect the socket to the remote endpoint.
        sender.Connect(remoteEP)

        Logger.Write("Socket connected to remote endpoint {0}", _
                     sender.RemoteEndPoint.ToString())

        result = 0

    Catch ... another exception
    Catch ... another exception

    Catch ex As System.Net.Sockets.SocketException
        Using New Tracer(Common.LOGGING_SOCKETCONNECTIONERROR)
            Dim contextInfo As IDictionary = New Hashtable()
            contextInfo.Add("Additional Info (Stack Trace)", ex.StackTrace)

            Dim provider As DebugInformationProvider = New DebugInformationProvider()
            provider.PopulateDictionary(contextInfo)

            Dim logEntry As LogEntry = New LogEntry()
            logEntry.Categories.Add(Common.LOGGING_CRITICAL_ERRORS_CATEGORY)
            logEntry.Message = String.Format("An error occurred when attempting to access the socket: {0}", ex.Message)
            logEntry.ExtendedProperties = contextInfo

            Logger.Write(logEntry)
        End Using

  End Try

  Return result
End Function

当触发上述异常时,我得到一个转换错误:

provider.PopulateDictionary(contextInfo)

转换错误如下:

System.InvalidCastException was unhandled
  Message="Unable to cast object of type 'System.Collections.Hashtable' to type 'System.Collections.Generic.IDictionary`2[System.String,System.Object]'."

我做错了什么?

1 个答案:

答案 0 :(得分:1)

更改:

Dim contextInfo As IDictionary = New Hashtable()

由:

Dim contextInfo As IDictionary = New Dictionary(Of String, Object)

解决了这个问题。