topic-32854

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Archivo JSON
Posted: Tue Aug 23, 2016 11:27 AM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Archivo JSON
Posted: Tue Aug 23, 2016 12:03 PM

Si puedes descargarlo a tu equipo y despues analizarlo

Code (fw): Select all Collapse

#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...

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Archivo JSON
Posted: Tue Aug 23, 2016 12:15 PM

Gracias! Perfecto!!!!!

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Archivo JSON (Encode)
Posted: Wed Aug 24, 2016 07:15 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Archivo JSON
Posted: Wed Aug 24, 2016 07:22 PM

Mira, se ayuda:

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Archivo JSON
Posted: Wed Aug 24, 2016 07:28 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Archivo JSON
Posted: Wed Aug 24, 2016 08:13 PM

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