Pagina 1 di 1

POST su ws REST inserisce record vuoto

Inviato: sab nov 20, 2021 9:51 am
da StefanoWx
Per cortesia, qualcuno ha soluzione ? Questo frammento di codice mi inserisce un record vuoto:
bufNewAspetto is Buffer
vAsp is Variant
sRisp is ANSI string
h is httpRequest
r is httpResponse

vAsp .Descrizione = "Inserito via POST2"
vAsp .ClientiID = 16
vAsp .Predefinito = False

bufNewAspetto = VariantToJSON(vAsp)

h.URL = "http://localhost:8026/Aspetto"
h.Method = httpPost
h.ContentType = "application/json"
h.Content = bufNewAspetto

r = RESTSend(h)
sRisp = r.Content
IF r.StatusCode = 200 THEN
Info("StatusCode " + r.StatusCode, sRisp)
ELSE
Info("Errore creando Aspetto " + r.StatusCode, sRisp)
END

Re: POST su ws REST inserisce record vuoto

Inviato: sab nov 20, 2021 9:55 am
da StefanoWx
Grazie, ho risolto con il codice suggeritomi da Marco:
-----------------------------------------------------------------------------
sRisp is ANSI string
vRequest is JSON
vRequest.Clienti.Nome = "Bravo "
vRequest.Clienti.Cognome = "Marco!"
vRequest.Clienti.Indirizzo = "via Collabora"
vRequest.Clienti.NCivico = 34
Info((vRequest))

oRequest is httpRequest
oResponse is httpResponse
oRequest..URL = "http://localhost:8026/Clienti"
oRequest..Method = httpPost
oRequest..ContentType = "application/json"
oRequest..Content = vRequest
// Runs the request and retrieves the response
oResponse = HTTPSend(oRequest)

sRisp = oResponse.Content
IF oResponse.StatusCode = 200 THEN
Info("StatusCode " + oResponse.StatusCode, sRisp)
ELSE
Info("Errore creando Aspetto " + oResponse.StatusCode, sRisp)
END