VB.net e Json Patch

lunedì 11 settembre 2017 - 18.01

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | .NET 4.0

atealecogn Profilo | Newbie

1 messaggi | Data Invio: lun 11 set 2017 - 18:01

Salve,
devo usare il metodo Patch Json,
riesco tramite lo strumento di Google Chrome "Boomerang"
ma non riesco tramite vb.net in visual studio 2013, dove riesco a usare invece GET e POST

ecco tutti i dati impostati in Boomerang, quindi funzionanti :

l'url è "https://rcs01-management.fftech.info/v1/merchantOrders/ATE2651386/documents/ATE26513861"
il metodo deve essere PATCH
imposto gli headers Content-Type (application/json) e Authorization (Beare ...)
il body Json è così "
[
{
"value":"Test-005",
"path":"/ExternalId",
"op":"replace"
}
,
{
"value":"2017-09-04T11:25:43.511Z",
"path":"/UpdatedDate",
"op":"replace"
}
]
"

in vb.net ho ho fatto diverse prove ma niente ...

sia con HttpWebRequest (tramite il quale Post e Get funzionano):

Dim request As Net.HttpWebRequest = Net.WebRequest.Create(url & id)
request.Method = "PATCH"
request.Timeout = 600000
request.ContentType = "application/json"
request.Headers("Authorization") = Token
request.ContentLength = data.Length
Dim m_Stream As Stream = request.GetRequestStream
m_Stream.Write(data, 0, data.Length)
m_Stream.Close()
Try
Dim response As Net.HttpWebResponse = request.GetResponse
m_Stream = response.GetResponseStream()
Dim reader As New StreamReader(m_Stream)
result = reader.ReadToEnd()
m_Stream.Dispose()
reader.Dispose()
response.Close()
Catch ex As Exception
Return "ERROR " & ex.Message
End Try

che con Rest:

Dim body2 As Byte() = Encoding.UTF8.GetBytes(" " & _
" { " & _
" ""value"":""" & NumeroFattura & """, " & _
" ""path"":""/ExternalId"", " & _
" ""op"":""replace"" " & _
" } " & _
" ")

Dim request = New RestRequest()
request.Method = Method.PATCH
urlManagement1 = urlManagement1 & risorsa
request.Resource = risorsa ' "api/data/documents/unid/{DocUNID}"
request.RequestFormat = DataFormat.Json
request.AddBody(body2)

Dim client As New RestClient(urlManagement1)
request.AddHeader("Content-Type", "application/json")
request.AddHeader("Authorization", Token)
Dim response = client.Execute(request)
Dim errore = response.Content
If response.StatusCode <> 200 Then
Throw New ApplicationException(response.StatusDescription)
End If

dove ottengo un errore 400 BadRequest

qualcuno ha suggerimenti o soluzioni alternative o esempi di codice .net funzionante con Patch Json?

grazie

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !