使用 Json.NET 将 JSON 反序列化为 byrefrence ParametrizedConstructor 对象

Question

下面是我的 JSON 格式的字符串

{"AliasName": "ysiCountryInfo", "DataClass": {"Description":"United States 111","Code":"usa","WriteOffTaxPointAdjustment":0,"IndexationRounding":6} On

我想将对象反序列化到下面的类中

Option Explicit 选项严格导入

BaseApp.ysiBaseData 导入 Common.DataClass 导入系统命名

空间数据类

Public Class JSONFormatClass(Of ItemType)

    Private _Alias As String
    Public Property AliasName() As String
        Get
            Return _Alias
        End Get
        Set(ByVal value As String)
            _Alias = value
        End Set
    End Property

    Private _DataClass As ItemType
    Public Property DataClass() As ItemType
        Get
            Return _DataClass
        End Get
        Set(ByVal value As ItemType)
            _DataClass = value
        End Set
    End Property

End Class

结束命名空间

其中属性“DataClass”是“Common.DataClasses”中任何类的类型。

其中的所有类都有接受 ByRef LoginCredential 对象的参数化构造函数。

我的代码如下：

Dim loginData As New ysiLoginData()

   With loginData
     .Server = "xxxxx"
     .Platform = ServerType.SqlServer
     .Database = "xxxx"    
     .UserName = "xx"
     .Password = "xxxxx"
     .DeveloperMode = True
  End With

Dim SessionKey As New ysiSessionKey(loginData)

Dim strJSON As String = HttpUtility.UrlDecode(context.Request.Form.ToString())

Dim objJSON As JSONFormatClass(Of ysiCountryInfo) = JsonConvert .DeserializeObject(Of JSONFormatClass(Of ysiCountryInfo))(strJSON)

json 字符串格式：{"AliasName": "ysiCountryInfo", "DataClass": {"Description":"United States 111","Code":"usa"," WriteOffTaxPointAdjustment":0,"IndexationRounding":6}}

这里的“ysiCountryInfo”是我想将“DataClass”属性转换为的类类型。 “ysiCountryInfo”具有参数化构造函数，需要引用“ysiSessionKey”参数。

Dim objCountryInfo as New ysiCountryInfo(ysiSessionKey)

我在 JSON 的 JsonSerializerInternalReader.js 文件第 # 808 行处遇到错误

object createdObject = Contract.ParametrizedConstructor.Invoke(constructorParameters.Values.ToArray());

因为 constructorParameters.Values 为 Null

请帮我尽快解决这个问题。

谢谢 迪伦·米斯特里

Answer 1

抱歉，我的实施不正确。

我通过修改我的通用类 DataClass 属性解决了这个问题，如下所示。

Private _DataClass As ItemType
Public Property DataClass() As ItemType
            Get
                If _DataClass Is Nothing Then
                    Dim loginData As New ysiLoginData()
                    With loginData
                        .Server = "xxxx"
                        .Platform = ServerType.SqlServer
                        .Database = "xxx"
                        .UserName = "xx"
                        .Password = "xxx"
                        .DeveloperMode = True
                    End With

                    Dim SessionKey As New ysiSessionKey(loginData)

                    Dim args As Object() = {SessionKey}

                    _DataClass = DirectCast(Activator.CreateInstance("YSI.Common", String.Format("{0}", GetType(ItemType).ToString()), True, BindingFlags.Instance Or BindingFlags.Public, Nothing, args, Nothing, Nothing).Unwrap(), ItemType)

                End If
                Return _DataClass
            End Get
            Set(ByVal value As ItemType)
                _DataClass = value
            End Set
        End Property