Problem with Json

[Marco Turco]

Hi all.
I need to create this json to send it via http post
My problem is that this row return me an array access error
ahash["posta_options"]["sender"]["indirizzo"] = "Via Zama 4"

Any ideas ? This is the full code:


aHash := hash()
ahash["sender"] = "LOGIC SRL"
ahash["posta_options"] := hash()
ahash["posta_options"] := hash()["sender"] := hash()
ahash["posta_options"]["sender"]["indirizzo"] = "Via Zama 4"
ahash["posta_options"]["sender"]["cap"] = "20110"
ahash["posta_options"]["sender"]["citta"] = "Milano"
ahash["posta_options"]["sender"]["provincia"] = "MI"
ahash["posta_options"]["sender"]["nazione"] = "Italia"

cJson := hb_jsonEncode(ahash,.f.)

[Enrico Maria Giordano]

Marco,

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL aHash := hash()

    LOCAL cJson

    ahash["sender"] = "LOGIC SRL"
    ahash["posta_options"] := hash()
    ahash["posta_options"]["sender"] := hash()
    ahash["posta_options"]["sender"]["indirizzo"] = "Via Zama 4"
    ahash["posta_options"]["sender"]["cap"] = "20110"
    ahash["posta_options"]["sender"]["citta"] = "Milano"
    ahash["posta_options"]["sender"]["provincia"] = "MI"
    ahash["posta_options"]["sender"]["nazione"] = "Italia"

    cJson := hb_jsonEncode(ahash,.f.)

    ? cJson

    RETURN NIL

EMG

[Marco Turco]

It is fine. Thank you very much Enrico.