Json problema de Tamaño

[AidTIC]

Hola,

Tengo una aplicación en la que hago una consulta a una url y me devuelve un json.

La aplicación me funciona en Windows 7 sin problemas , pero cundo la ejecuto en Windows 10, si el json que me devuelve es mayor de 10.000 lineas, mas o menos) no lo recibo.

Sabeis como puedo solucionarlo ?

Gracias
+ + + + + + + traducido por Google + + + + + + + + +

Hello,

I have an application where I query a url and it returns a json.

The application works for me in Windows 7 without problems, but when I run it in Windows 10, if the json it returns is greater than 10,000 lines, more or less) I do not receive it.

Do you know how I can solve it?

Thanks

Code: Select all

#include <hmg.ch>

Function Main
    
	LOCAL oHttp:=CreateObject("MSXML2.XMLHTTP.6.0") , jDocument , rRespuesta
	Local cUrl := "https://www.ejemplo.net/?name="
	SET CodePage To Spanish
        SET DELETED ON
        SET CENTURY ON
        SET DATE TO ITALIAN
	
	MSGINFO("Mando")
	cUrl := cUrl + "prueba.pdf"
        oHttp:Open( 'GET', cUrl, .F. )
	oHttp:SetRequestHeader("Accept" ,"application/xml")
        oHttp:SetRequestHeader("Content-Type","application/json")
	oHttp:Send()
	rRespuesta:=Alltrim(oHttp:responseText)

	msgdebug(rRespuesta)   // En windows 10 json es de mas de 10.000 Lineas no se muestra

	MSGINFO( rRespuesta , valtype(rRespuesta) )    // Se muestra vacio tipo H en windows 10
	
	hb_jsondecode(rRespuesta , @jDocument)
	
	msgdebug(jDocument)    // En windows 10 json es de mas de 10.000 Lineas no se muestra
	
	msginfo ('Terminado')
		
Return Nil

[AidTIC]

Parece que el problema estaba en :
rRespuesta:=Alltrim(oHttp:responseText)
hb_jsondecode(rRespuesta , @jDocument)

lo he solucionado con :

jDocument := hb_jsonDecode( oHttp:responseText )

Por si a alguien le pueda ser util