Archivo JSON

[TOTOVIOTTI]

Hola amigos,
me envían un archivo JSON a una dirección de internet:

'http://xxx.xxx.xxx.xxx/testing/distribuidora/webservice/api/obtenerProductos'

y necesito descargar la info y parsearla para descargarla en mi sistema, estuve leyendo
y probando ejemplos con el hb_JsonDecode, pero no puedo hacerla funcionar con mi
dirección, probablemente me esté faltando información.

Alguien tendrá un ejemplo para construir esta descarga?

Desde ya, muchas gracias!
Roberto

[cmsoft]

Si puedes descargarlo a tu equipo y despues analizarlo

Code: Select all  Expand view

#include "fivewin.ch"

function Main()
       
   local nRet
   local cFile  := "c:\fwh\temp.txt"
 
   nRet := DOWNLOADFILE( "http://xxx.xxx.xxx.xxx/testing/distribuidora/webservice/api/obtenerProductos/archivo.json", ;
                         cFile  )
    MsgStop( nRet )

RETURN NIL

#pragma BEGINDUMP

#include <Windows.h>
#include <hbapi.h>
#include "hbapiitm.h"
#include "hbstack.h"
#include <hbvm.h>
#include <urlmon.h>
HB_FUNC( DOWNLOADFILE )

{
   HRESULT hr;

   hr = URLDownloadToFile( NULL, hb_parc( 1 ), hb_parc( 2 ), 0, NULL );
 
   hb_retnl( hr ) ;
}

#pragma ENDDUMP

Es una idea nomas... no se si te deja un archivo en ese sitio...

[TOTOVIOTTI]

Gracias! Perfecto!!!!!

[TOTOVIOTTI]

Amigos,
después de decodificar un JSON que me enviaron, debo actualizar info y volverla
a generar en JSON.
Tengo una matriz, que contiene el Código del Artículo, Descripción y Precio Unitario, por ejemplo.
Como hago para volver a generar un archivo JSON para subirlo a una url?
Creo que se usa la función inversa hb_JsonEncode, pero no encuentro material
para ver los parámetros que se usan...
Muchas gracias!
Roberto

[karinha]

Mira, se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?p=191101#p191101

[TOTOVIOTTI]

Eso lo usé para descargar el Json, ahora necesito armar un archivo Json... se entiende?
El proceso inverso... subir info de una matriz a un archivo Json.
Gracias!
Roberto

[TOTOVIOTTI]

Amigos... lo hice medio casero... pero funciona, capaz hay algo un poco más sofisticado...
Por ahí le sirve a alguno:

FUNCTION GENERARJSON()
Local hJson := hash()
local cJson := '{"clientes":['
(bclientes)->(dbgotop())
while !(Bclientes)->(eof())
hJson["Código"] := (bclientes)->codigo
hJson["Razón Social"] := alltrim(hb_OemToAnsi((bclientes)->NOMBRE))
hJson["Dirección"] := alltrim(hb_OemToAnsi((bclientes)->direccion))
hJson["Teléfono"] := alltrim((bclientes)->te)
hJson["C.U.I.T."] := alltrim((bclientes)->cuit)
cJson += hb_JsonEncode( hJson,.f. )
(bclientes)->(dbskip())
IF !(Bclientes)->(eof())
cJson +=","
ENDIF
enddo
cJson+=']}'
MemoWrit( "clientes.json", cJson )
RETURN NIL

Saludos...

[LuisPonce]

Buenas noches

En que libreria está hb_JsonEncode( )

Gracias

[TOTOVIOTTI]

Es una función de Harbour...
Saludos

[elmoiquique]

Buenas noches

En que libreria está hb_JsonEncode( )

Gracias

Hola

sabes en que libreria esta y desde que version,,, tengo entendido que funciona tanto en Harbour como en Xharbour