【发布时间】:2015-03-20 15:39:56
【问题描述】:
我正在尝试以 JSON 格式将数据发布到网站,但无论我做什么,都会收到 500 内部错误。
我打算创建的字符串是这样的:{"orders":[{"id":"7","invoice_number":"1007"},{"id":"8","invoice_number" :"1008"},{"id":"11","invoice_number":"1011"}]} ,我可以通过 JSON.net 轻松获得
网站站长发给我这个命令是为了发布数据
curl -vvvvvvvv "http://staging.voltige2001.net/fr/api/update-orders" --data '{"orders":[{"id":"7","invoice_number":"1007"},{"id":"8","invoice_number":"1008"},{"id":"11","invoice_number":"1011"}]}' -X PATCH
但我不知道什么是 curl 以及这与我所做的有何不同。
这是我的代码:
Dim strInvNumber As String
If Not IsNothing(oDsFacture) AndAlso oDsFacture.Tables.Count > 0 AndAlso oDsFacture.Tables(0).Rows.Count > 0 Then
strInvNumber = oDsFacture.Tables(0).Rows(0)("No_Facture")
Else
strInvNumber = "9999" ' Pas de facture
End If
Dim oOrder As New Confirmation.Order With {.ID = oCommande.ID, .InvoiceNumber = strInvNumber}
Dim oConfirmation As New Confirmation With {.Orders = New List(Of Confirmation.Order) From {oOrder}}
Dim strResponse As String = JsonConvert.SerializeObject(oConfirmation)
Dim data = Encoding.UTF8.GetBytes(strResponse)
Dim req As WebRequest = WebRequest.Create(_ResponseURL)
req.ContentType = "application/json"
req.Method = "POST"
'req.ContentLength = strResponse.Length
Using oStream As New StreamWriter(req.GetRequestStream)
oStream.Write(strResponse)
oStream.Flush()
oStream.Close()
End Using
Try
Dim response As HttpWebResponse = req.GetResponse
Using oSReader As New StreamReader(response.GetResponseStream)
End Using
Catch ex As Exception
End Try
这是我用来转换为 JSON 的类
Public Class Confirmation
Public Class Order
<JsonProperty("id")> Public Property ID As String
<JsonProperty("invoice_number")> Public Property InvoiceNumber As String
End Class
<JsonProperty("orders")> Public Property Orders As List(Of Order)
End Class
【问题讨论】: