Получение значений объекта JSON с использованием webmeothd в vb.net

Question

Я застрял, получая значение объекта JSON в vb.net. Мой запрос JSON сообщений данных, как приведено ниже:

function submitEmail() { 
    var ClientsPersonalInfo = { 
     FullName: $("#FullName").val(), 
     PhoneNumber: $("#PhoneNumber").val(), 
     EmailAddress: $("#EmailAddress").val(), 
     DOB: $("#DOB").val(), 
     Occupation: $("#Occupation").val(), 
     NINumber: $("#NINumber").val(), 
     FullAddress: $("#FullAddress").val() 
    } 

    var ClientsData = {}; 
    ClientsData.ClientsPersonalInfo = ClientsPersonalInfo; 

    var d = '{"ClientsData":' + JSON.stringify(ClientsData) + '}' 

    $.ajax({ 
     type: "POST", 
     url: "add-new-client.aspx/SubmitEmail", // WebMethod Call 
     data: d, 
     contentType: "application/json; charset=utf-8", 
     dataType: "json", 
     success: function (response) { 
      alert(response) 
     }, 
     failure: function (msg) { 
      alert(msg); 
     } 
    }); 
} 

JSON объект выглядит как

{ 
"ClientsPersonalInfo": { 
    "FullName": "", 
    "PhoneNumber": "", 
    "EmailAddress": "", 
    "DOB": "", 
    "Occupation": "", 
    "NINumber": "", 
    "FullAddress": "" 
    } 
} 

выше запрос возвращает объект в vb.net

VB код:

<WebMethod()> _ 
    Public Shared Function SubmitEmail(ByVal ClientsPersonalInfo As Object) As String 
     'What to do next to get object "ClientsPersonalInfo" 
     'I want to access properties of the object like 
     'Dim name As String = ClientsPersonalInfo.FullName 

     Return "Successfully Converted." 
    End Function 

Нет. Я хочу получить значения этого объекта и его нужно использовать для приложения. конец в таблице. Пожалуйста, подскажите, как получить значения вышеуказанного объекта? Я новичок в vb.net. Пожалуйста, направляйте. Благодаря!

Answer 1

Во-первых, вам нужно добавить ClientsData и ClientsPersonalInfo классы для вашего веб-сервиса:

Public Class ClientsPersonalInfo 
    Public Property FullName As String 
    Public Property PhoneNumber As String 
    Public Property EmailAddress As String 
    Public Property DOB As String 
    Public Property Occupation As String 
    Public Property NINumber As String 
    Public Property FullAddress As String 
End Class 

Public Class RootObject 
    Public Property ClientsPersonalInfo As ClientsPersonalInfo 
End Class 

Теперь, вы можете просто изменить тип параметра в методе веб-службы и .Net двигатель будет делать синтаксический анализ для вы:

<WebMethod()> _ 
Public Shared Function SubmitEmail(ByVal MyClientsPersonalInfo As ClientsPersonalInfo) As String 
    'You can access properties of the object like 
    Dim name As String = MyClientsPersonalInfo.FullName 

    Return "Successfully Converted." 
End Function