Re: [vfp] Consulta verbo POST y json

[FLEXSOLUCIONES]

por que no usas elxBaseWebsite y usas fecht  

El vie, 6 oct 2023 a las 11:41, martin bonansea (<bonanse...@gmail.com>) escribió:

Buenos días colegas, estoy trabado en este paso

Tengo el siguiente endpoint en el que mediante un post me envían el json y no logro poder parsear mediante las funciones de AVFP.

Mi deseo es pasar el json recibido a un cursor u objeto.

(Dejo el código comentado de mis pruebas)

PROCEDURE quetipo

This.OpenData()
oResponse.ContentType = "application/json;charset=utf-8"
lnByteCount = oRequest.oRequest.TotalBytes
lcStr = oRequest.oRequest.BinaryRead(lnBytecount)
*!* RETURN TRANSFORM(lcStr)
*!* lmartin = oAVFP.parseCursor(lcStr , pcAlias, pnDataSessionID)
*!* lmartin = oAVFP.parseCursor(pcJSONString, pcAlias, pnDataSessionID)
*!* RETURN lmartin  
lcStr = Strconv(lcStr,9)
lcStr2 = TRANSFORM(lcStr)
*!* RETURN TRANSFORM(lcStr2) &&aca devuelve json ok
lcCursor=oAVFP.oJson.parseCursor(lcStr2, "miCursorJson", 0)
*!* RETURN TRANSFORM(oAVFP.oJson.version)
*AVEvalJSON(lcStr2)
*!* SELECT miCursorJson
*!* COPY TO c:\temp\miCursorJson.dbf

*!* oObject = AVEvalJSON(lcStr2)
*!* lcCursor = AVEvalJSON(lcStr2)
RETURN (oAVFP.oJson.lastError)
*!* RETURN AVTojSon(oObject) &&asi sabemos como viene el json.
*!* RETURN "Su usuarios es " + ALLTRIM(oObject.usuario) + " y su password es " + ALLTRIM(oObject.contra)

*RETURN this.verb && TRANSFORM(lcStr)&&oObject

Endproc

Saludos cordiales.

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/a700171e-bcce-426f-b071-2a44f596a4f6n%40googlegroups.com.

[Aarón Delgado]

El response JSON tómalo como una cadena string, ubica los campos y valores.

Saludos cordiales;

DELGADO JAIMES, Roberto Aarón
Fijo: 013969545 /  Movistar: 988316319

[sixto diaz]

Yo lo paso a Object.. asi..

lnByteCount = oRequest.oRequest.TotalBytes
lcStr = oRequest.oRequest.BinaryRead(lnBytecount)

lcStr = Strconv(lcStr,9)
obj = AVEvalJSON(lcStr)

** luego 

_idusuario = obj.usuario  

** etc.. deacuerdo a tu json

[Victor Espina]

Dentro de un controller REST de ActiveVFP+ seria simplemente:

_idusuario = THIS.Data.usuario

Victor Espina