hb_jsonDecode() this Website

[Jimmy]

hi,

i try to use hb_jsonDecode() for "this" Website but i got NIL ...

---

my old working Way

Code: Select all  Expand view  RUN

  cUrl := "https://forums.fivetechsupport.com/viewtopic.php?t=42918"
   oHttp:Open( "GET", cUrl, .F. )
   oHttp:setRequestHeader( "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0" )

   oHttp:Send()

   IF nStatus = 200
      StrFile( oHttp:ResponseBody(), cFile )

this way i got Website from "cURL" as "cFile" in HTML Format which i try to "analyze" to get Information

...

1st Try :

Code: Select all  Expand view  RUN

PROCEDURE TestJSON()
LOCAL cFile, cMemo, aReturn,ii,nMax,aArray

   cFile := "d:\PHPFORUM\FWH\T0042918.HTML"
   cMemo := MEMOREAD(cFile)
   aReturn := hb_jsonDecode(cMemo, @aArray )
altd()

RETURN

i try to use cFile which i have download above
but aReturn is NIL and aArray is Empty ...

what i´m doing wrong

---

i try to change oHttp:setRequestHeader() to

Code: Select all  Expand view  RUN

  oHttp:setRequestHeader( "Content-Type", "text/xml; charset=utf-8")

and try

Code: Select all  Expand view  RUN

  * x1 := hb_jsonDecode( oHttp:responseText, @aArray )
   x1 := hb_jsonDecode( oHttp:ResponseBody(), @aArray )
   altd()

but still Result x1 is NIL and aArray is Empty ...

---

can somebody show me how use use hb_jsonDecode() for "this" Website
need some help please

[nageswaragunupudi]

hb_jsondecode( cJson, @hHash )
works only if the first parameter is a vaid json text.
If valid, second param by ref is filled with Hash.

In this case. the responsetext() is NOT json text.

[Jimmy]

hi,

thx for Answer.

hb_jsondecode( cJson, @hHash )
works only if the first parameter is a vaid json text.
If valid, second param by ref is filled with Hash.

In this case. the responsetext() is NOT json text.

ok understand
so hb_jsondecode() is not a Solution for phpBB System "generated" Website