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