Page 1 of 1

Descargar un JSON

Posted: Fri Dec 02, 2016 1:50 pm
by TOTOVIOTTI
Amigos,
estuve leyendo y releyendo los posts y no encuentro como solucionar esto por eso los molesto.
Tengo lo siguiente:

cRespuesta:=Alltrim(oHttp:responseText)
hb_jsondecode(cRespuesta,@aProductos)


Verifico el resultado:
xbrowse(aProductos["pedidos"])

Todo perfecto... pero no sé como llevar ese Hash a un vector...
Hice varias pruebas y no lo puedo hacer funcionar...

Muchas gracias y disculpas...
Roberto

Re: Descargar un JSON

Posted: Fri Dec 02, 2016 4:15 pm
by quim
Buenas ...
Prueba de iterar con for each

Code: Select all

aKeys    := {}
aValues := {}
for each e in aProductos
   aadd( aKeys, e:__enumKey )
   aadd( aValues, e:__enumValue )
next
 
Suerte !

Re: Descargar un JSON

Posted: Fri Dec 02, 2016 7:19 pm
by TOTOVIOTTI
Si, intenté usar el for each pero me da error....
Que puede ser?
Gracias

Re: Descargar un JSON

Posted: Sat Dec 03, 2016 9:05 am
by xmanuel
Si aProductos es una tabla hash

Para los valores:

prueba esto en harbour

aVal := HB_HVALUES( aProductos )

o en xHarbour

aVal := HGETVALUES( aProductos )

Para las claves


prueba esto en harbour

aKeys := HB_HKEYS( aProductos )

o en xHarbour

aKeys := HGETKEYS( aProductos )



:D

Re: Descargar un JSON

Posted: Mon Dec 05, 2016 1:57 pm
by TOTOVIOTTI
Estimados...
yo tengo que aProductos["pedidos"] es una tabla Hash.

Cuando hago en HVALUES o el HKEYS me da error de argumento.

también hago:

aVal:=aProductos["pedidos"]
vector:=HB_HVALUES(aVal)

Y me da error... pero a la vez cuando hago:
xbrowse(aProductos["pedidos"])

la información se visualiza perfecto....
Como hago para llevar ese Hash a una matriz?

Gracias...
Roberto

Re: Descargar un JSON

Posted: Mon Dec 05, 2016 10:32 pm
by xmanuel
Lo primero es saber que es aProductos["pedidos"].
Si hacer

Code: Select all

alert( ValType(aProductos["pedidos"])
Qué te dice?
Cuando haces

Code: Select all

xbrowse(aProductos["pedidos"])
que aparece por pantalla?

Si usas xHarbour deberias usa HVALUES o el HKEYS

Si esto

Code: Select all

aVal := HGETVALUES( aProductos )
Te da error, prueba:

Code: Select all

aVal := HGETVALUES( aProductos["pedidos"])
:( :shock:

PD: Pink Floyd, The wall, me encanta la tengo en mi top ten...

Re: Descargar un JSON (resuelto)

Posted: Tue Dec 06, 2016 2:10 pm
by TOTOVIOTTI
Ahí lo pude hacer funcionar!!!
Gracias!!

PD: Además del gusto por FW también por PFloyd!! Abrazo.

Re: Descargar un JSON

Posted: Wed Dec 07, 2016 7:46 pm
by xmanuel
Me alegro compañero!!!

Caballeros, debo recordarles que, mis probabilidades de éxito, aumentan en cada nuevo intento...