ОШИБКА: InvalidOperationException не обрабатывался пользовательским кодом при сериализации объекта класса в строку XML - PullRequest
Новая
       19

ОШИБКА: InvalidOperationException не обрабатывался пользовательским кодом при сериализации объекта класса в строку XML

0 голосов
/ 30 августа 2018

Получение ошибки: InvalidOperationException не обрабатывался кодом пользователя при попытке позвонить в мой веб-сервис. Я пытаюсь сериализовать объект класса, который я получаю через свой веб-сервис, и вернуть его обратно в виде строки XML, но натолкнулся на ошибку. Я уже изменил поля объекта с приватного на публичный, но это, похоже, не проблема. Это ошибка, которая выдается, но когда я заканчиваю сеанс, я также получаю сообщение об ошибке: удаленный сервер вернул ошибку: 500 внутренняя ошибка сервера и выделил: 

 Dim respond As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)

Не уверен, почему это происходит, когда я смотрю на это. Предложения?

Мой веб-сервис 

 <Route("Contents/{ordNbr}")>
 <HttpGet>
 Public Function GetOrderContents(ByVal ordNbr As String) As String

    Dim retValue As ReturnVal
    retValue = GetOrderInformation(ordNbr)
    Dim sp = New Sharepoint()
    Dim t = sp.GetOrderContent(retValue.Year, retValue.SONumber)
    Dim contentFolder = New SPFolderOver()
    contentFolder = SPFolderOver.LoadFolder(t)
    contentFolder.FolderName = t.FullPath

    Dim result = String.Empty
    Dim serializer As XmlSerializer = New XmlSerializer(contentFolder.[GetType]())
    Using writer As StringWriter = New StringWriter()
        serializer.Serialize(writer, contentFolder)
        Return result = writer.ToString()
    End Using
End Function

Моя форма Вызов в службу 

Public Sub SubmitOrder_Click(sender As Object, e As EventArgs) Handles SubmitOrder.Click

    Dim orderString As String = orderNumber.Text
    If orderString = "" Then
        MsgBox("Please Enter in Order Number")
        Exit Sub
    End If

    Dim apiUrl = "http://localhost:54754/orders/Contents/" + orderString

    Dim request As HttpWebRequest
    request = CType(WebRequest.Create(apiUrl), HttpWebRequest)
    request.Method = "GET"
    request.ContentType = "text/xml"

    Dim respond As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
    Dim myResponse = String.Empty
    Using sr As StreamReader = New StreamReader(respond.GetResponseStream())
        myResponse = sr.ReadToEnd()
    End Using

    Response.Write(myResponse)

End Sub
...